Membuat ProgressBar di VB 6.0

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

Pada kesempatan kali ini, saya akan membagikan tips atau tutorial tentang pemrograman visual basic yaitu mengenai Animasi Loading. Berikut langka-langkahnya dalam membuat animasi loading di visual basic:

1.Buatlah project baru di  Microsoft Visual Basic 6.0

2.Buatlah 2 Form sekaligus. Form1 untuk animasi loading dan Form2 untuk menampilkan setelah loading.

3.Di dalam form1 kalian tambahkan component ProgressBar dan Timer. ProgressBar bisa kalian dapatkan dengan menambahkan component Microsoft Windows Common Controls 6.0(SP6) seperti tampilan di bawah ini:

 

 

4.Gantilah interval pada timer menjadi 200

5.Lalu isikan coding di bawah ini caranya klik dua kali pada timer

Private Sub Timer1_Timer()If ProgressBar1.Value >= 100 Then
Unload Me
Form2.Show
Else
ProgressBar1.Value = ProgressBar1.Value + 10
End If
End Sub

 

6. Jika sudah silahkan jalankan. Maka progressbar akan jalan dan form2 pun muncul.

Tips di atas bisa kalian kembangkan sendiri misalnya digunakan saat login ataupun yang lainnya. Semoga tips pemrograman tentang animasi loading di visual basic di atas bermanfaat...

 

Mencetak Deret Bilangan ganjil

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

Lagi gak ada kerjaan, saya mau post lagi masih dalam kategori Algoritma Dan Pemrograman, yaitu mencetak deret bilangan ganji dari angka 1 s/d N dengan bahasa C++. Oke langsung aja.

Berikut Source Codenya :

//Mencetak bilangan ganjil dari angka 1 s/d N
#include <stdio.h>
#include <conio.h>
int i,N;
main(){
printf(“Mencetak deret bil ganjil dari angka 1 s/d N\n”);
printf(“Berapa N? :”);scanf(“%d”,&N);
for(i=1;i<=N;i++){
if(i%2!=0)
printf(” %d”,i);
}
getch();
}

dan berikut hasil outputnya :

Gambar Output:

misalnya kita masukkan N=20

Textbox hanya bisa diisi angka

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

Source code berikut untuk memfungsikan agar textbox hanya menerima input angka. Cocok digunakan untuk input kode pos atau no telepon.

Yang diperlukan :
1 Form
1 TextBox

Berikut Source codenya:

Public Sub HanyaAngka(ByRef KeyAscii As Integer)

If ((KeyAscii < 48 And KeyAscii <> 8 ) Or KeyAscii > 57) Then

KeyAscii = 0

End If

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

HanyaAngka KeyAscii

End Sub

atau juga bisa pake script dibawah ini :

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc(“0″) _
And KeyAscii <= Asc(“9″) _
Or KeyAscii = vbKeyBack) Then
Beep
KeyAscii = 0
End If
End Sub