Program aplikasi acak saat ini sedang populer dan sangat mudah dalam membuatnya. Bagi anda semua yang ingin mencoba aplikasi ini silahkan ikuti langkah-langkah berikut ini :
1. Silahkan buka aplikasi Microsoft Visual Basic 6. Buka New Project, Trus buat 5 kontrol label dan 3 kontrol command serta 1 kontrol timer. Lalu, aturlah desainnya seperti dibawah ini :
2. Ubahlah properti kontrol sebagai berikut :
Kontrol | Properti | Setting |
Label1, Label2, Label3, Label4, Label5 | Caption Border Style Font | Semua dikosongkan 1-FixedSingle Bold dan ukuran 28 |
Timer1 | Enabled Interval | False 100 |
Command1 | Caption | Start |
Command2 | Caption | Stop |
Command3 | Caption | Keluar |
3. Kemudian Klik ganda kontrol Timer, lalu isikan kode script dibawah ini :
Private Sub Timer1_Timer()
'label akan menampilkan bilangan acak 0-9'
Label1.Caption = Int(Rnd * 10)
Label2.Caption = Int(Rnd * 10)
Label3.Caption = Int(Rnd * 10)
Label4.Caption = Int(Rnd * 10)
End Sub
4. Klik ganda command1 (tombol start), kemudian ketikkan kode/script/listing berikut :
Private Sub Command1_Click()
'time diaktifkan'
Timer1.Enabled = True
'mengosongkan masing-masing label'
Label1.Caption = ""
Label2.Caption = ""
Label3.Caption = ""
Label4.Caption = ""
End Sub
5. Klik ganda command2 (tombol stop), kemudian ketikkan kode/script/listing berikut :
Private Sub Command2_Click(Index As Integer)
'time tidak diaktifkan'
Timer1.Enabled = False
'label 6 akan menampilkan hasil bilangan acak'
Label6.Caption = Label1.Caption & Label2.Caption & Label3.Caption & Label4.Caption
End Sub
6. Klik ganda command3(tombol Keluar),kemudian ketikkan kode/script/listing berikut :
Private Sub Command3_Click()
End
End Sub
7. Silahkan Tekan F5 untuk melihat hasilnya. Maka akan tampak hasilnya seperti dibawah ini :
Selamat Mencoba.. semoga sukses....!!!!!!!!!!!