Program Sederhana Pengacak Angka

Program sederhana ini bisa di gunakan untuk mengecek nomor-nomor undian....
kayak d tv2 itu lho...
program ini saya dedikasi untuk pribadi saya sendiri dan orng lain yg membutuhkan...
susah ngomong na,,,
heheh

ini screenShot coding nya bsrta .exe na..

Lihat Coding

Private Sub Command1_Click()
'time diaktifkan'
Timer1.Enabled = True
'mengosongkan masing-masing label'
Label2.Caption = ""
Label3.Caption = ""
Label4.Caption = ""
Label5.Caption = ""
End Sub

Private Sub Command2_Click()
'time tidak diaktifkan'
Timer1.Enabled = False
'label 5 akan menampilkan hasil bilangan acak'
Label8.Caption = Label2.Caption & Label3.Caption & Label4.Caption & Label5.Caption
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Timer1_Timer()
Label2.Caption = Int(Rnd * 10)
Label3.Caption = Int(Rnd * 10)
Label4.Caption = Int(Rnd * 10)
Label5.Caption = Int(Rnd * 10)

End Sub

Untuk mendownload FULL CODING
klik LIink d bawah ini
http://www.mediafire.com/?5l6hde11ud71r9c

Pass .RAR= www.blogmotivator.co.cc


Salam Informatika

Posting Lebih Baru Posting Lama