Membuat Program Acak-acak Angka Dengan VB 6.0

Bismillah... ini adalah postingan pertama di blog ku. Terimakasih yang sudah mampir disini baik yang disengaja maupun yang nyasar. Hehe, Ok to the point aja..

Pada postingan ini saya akan coba membahas tentang cara membuat program acak-acak angka menggunakan Microsoft Visual Basic 6.0. Langkah-langkahnya adalah sebagai berikut :

1. Buka Program Microsoft Visual Basic 6.0

2. Buatlah Project baru dengan pilih Standar EXE.

3. Tambahkan 5 Kontrol Label, 3 kontrol Command Button dan 2 kontrol Timer Pada Form. Desainlah form seperti pada gambar berikut:

4. Aturlah properti masing-masing kontrol seperti tabel dibawah ini:

Kontrol	Properti	Setting
Label1	Caption Border Style Font	PROGRAM ACAK-ACAK ANGKA 0 – None OCR A Extended, Bold, Ukuran 18
Label2, Label3, Label4	Caption Border Style Font	0 1-FixedSingle Courier, Bold dan ukuran 75
Label5	Caption Border Style Font	0 1-FixedSingle MS San Serif, Bold dan ukuran 24
Timer1	Enabled Interval	False 100
Timer2	Enabled Interval	False 100
Command1	Caption	Start
Command2	Caption	Stop
Command3	Caption	Keluar

5.  Masukkan kode seperti di bawah ini:

    Private Sub Command1_Click()

'mengaktifkan timer

Timer1.Enabled = True

Timer2.Enabled = True

'mengosongkan label

Label2.Caption = ""

Label3.Caption = ""

Label4.Caption = ""

Label5.Caption = ""

Command1.Enabled = False

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Command2_Click()

'menonaktifkan timer

Timer1.Enabled = False

Timer2.Enabled = False

'menampilkan hasil acak angka

Label3.Caption = Label2.Caption & Label3.Caption & Label4.Caption

Command1.Enabled = True

‘Menampilkan JACKPOT

If  Label2.Caption = Label3.Caption And Label2.Caption = Label4.Caption And Label3.Caption = Label4.Caption Then

Label5.Caption = "JACKPOT"

End If

End Sub

Private Sub Timer1_Timer()

‘Mengaktifkan acak angka

Label2.Caption = Int(Rnd * 10)

Label3.Caption = Int(Rnd * 10)

Label4.Caption = Int(Rnd * 10)

End Sub

Private Sub Timer2_Timer()

‘Mengaktifkan acak warna

Label2.BackColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)

Label3.BackColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)

Label4.BackColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)

End Sub