Game Acak Angka VB

Halo.. kali ini saya akan membagikan cara membuat game yang cukup sederhana dengan Visual Basic 6.0. Game yang akan dibuat adalah Games Acak Angka, cara memainkannya bila di tekan tombol "spin" maka angka akan berputar dengan acak sampai anda menghentikannya dengan tombol "Stop". Anda akan menang bila minimal 2 angka berangka sama. Selamat Mencoba !!

Tampilan setelah di debug.

Langkah pertama bukalah Aplikasi Visual Basic 6.0. yang anda butuhkan yaitu empat buah komponen Label A dan tiga buah komponen CommandButton. Aturlah Posisi seperti Gambar diatas, Untuk Properties Form1 silahkan Ubah Picture-nya sesuai Gambar yang anda inginkan.

Berikut Kode-nya :

Private Sub Command1_Click()

Command1.Caption = "Stop"
Command2.Enabled = False
Command3.Enabled = False

Timer1.Enabled = Not Timer1.Enabled

If Timer1.Enabled = False Then
Command1.Caption = "Spin"
Command2.Enabled = True
Command3.Enabled = True

If (Label1.Caption = Label2.Caption) Or (Label1.Caption = Label3.Caption) Or (Label2.Caption = Label3.Caption) Then
MsgBox "Kamu menang!!", vbInformation
End If

End If

End Sub

Private Sub Command2_Click()
Label1.Caption = "1"
Label2.Caption = "2"
Label3.Caption = "3"

End Sub

Private Sub Command3_Click()
Do Until Form1.Top >= Screen.Height
Form1.Top = Form1.Top + 1
Loop
End

End Sub

Private Sub Timer1_Timer()

Label1.Caption = Int(Rnd * 10)
Label2.Caption = Int(Rnd * 10)
Label3.Caption = Int(Rnd * 10)

End Sub

Private Sub Form_Load()
Me.Caption = "Acak Angka Game"

Randomize
Timer1.Interval = 100
Timer1.Enabled = False

Label1.Caption = "1"

Label2.Caption = "2"

Label3.Caption = "3"


Label4.Caption = "Anda menang bila minimal 2 kotak berangka sama"


Command1.Caption = "spin"


Command2.Caption = "reset"


Command3.Caption = "quit"


End Sub

Kalau Langkahnya bener pasti Game nya bisa dijalankan :)