MEMBUAT PROGRAM ACAK ANGKA DENGAN VISUAL BASIC

 

KALI INI SAYA AKAN MEMPOSTINGKAN GIMANA CARA MEMBUAT SEBUAH PEMROGRAMAN ACAK ANGKA DENGAN MENGGUNAKAN APLIKASI VISUAL BASIC

Pertama buka project visual basic

 

Setelah buka project visual basic, bikin 4 label di project tersebut dan susun seperti ini:

 

setelah itu tambahkan tombol timer seperti gambar di bawah ini:

 

Bikin 3 tombol command button dan tambahkan 1 tombol label

 

Setelah itu ubah nama command1 menjadi start

Command 2 menjadi stop

Command3 menjadi keluar

Ubah nama di caption

atur tombol timer, ubah enable menjadi false dan interval menjadi 100

setelah itu klik tombol timer 2 kali isikan script
Private Sub Timer1_Timer()
Label1.Caption = Int(Rnd * 10)
Label2.Caption = Int(Rnd * 10)
Label3.Caption = Int(Rnd * 10)
Label4.Caption = Int(Rnd * 10)

End Sub




setelah itu klik tombol start 2 kali, isikan dengan script
Private Sub Command1_Click()
Timer1.Enabled = True
Label5.Caption = ""
End Sub

klik tombol stop 2 kali, isikan dengan script
private Sub Command2_Click()
Timer1.Enabled = False
Label5.Caption = "angka yang keluar adalah:" & Label1 & Label2 & Label3 & Label4
End Sub
 klik tombol keluar 2 kali, isikan dengan script
end