Game Sederhana Pada VB (Tebak Angka)

Sebenarnya game ini sudah di buat sebulan yang lalu tapi admin baru bisa post hari ini hehe :D

buat yang lagi nyari-nyari game sederhana pake Bahasa Pemrograman VB 6 silahkan di pelajari

khususnya yg lagi nyari buat tugas nih hehe

listing Programnya Sangat Sederhana kok

Cek It :

Private Sub Command1_Click()
a = Int(Rnd * 10)
Text1.Text = a
Text2.SetFocus
If Text2.Text = Text1.Text Then
Label1.Caption = "SELAMAT TEBAKAN ANDA BENAR"
MsgBox "JACTPOT", vbOKOnly + vbInformation, "HASIL"
Else:
Label1.Caption = "TEBAKAN ANDA SALAH"
MsgBox "SILAHKAN COBA LAGI" + vbCrLf + "By :" + vbCrLf + "'djuneardy.blogspot.com'", vbExclamation, "HASIL"
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Timer1_Timer()
Label1.ForeColor = QBColor((Rnd) * 15)
Label1.BackColor = QBColor((Rnd) * 15)
End Sub

ini Preview Gamenya :

 

kalo butuh Source Code nya silahkan hubungi saya di akun-akun atau email yang sudah di pasang diblog ini , semoga dapat bermanfaat aamiin ^^:LC