Ms Visual Basic (VB)

MS. Visual Basic (VB)

nih aku punya game seru. tappi kalian harus punya syarat2 :
1)Window All
2)harus punya aplikasi Microsoft Visual basic
(kalo nggak punya download aja do Google)
3)harur pinter
4)dan lain-lain
udah gitu aja,ini dia tinggal copy paste aja.

Buka MVB(microsoft visual basic),trus muncul gambanr kayak gini:


trus tinggal copy-paste aja di sini,disini lho...:

Uddaaaahhh... Gitu Aja kalo Tetep nggak Bisa tanya Aja Sama Guru Lho....OK!!!
Nih dia Scripnya selamat ,megkopy(bagi yang bisa):

Private Sub cmdputar_Click()
imggambar.Visible = False
If cmdputar.Caption = "&putar" Then
lblketerangan.Caption = ""
tmr1.Enabled = True
cmdputar.Caption = "&stop"
ElseIf cmdputar.Caption = "&stop" Then
tmr1.Enabled = False
If lbl1.Caption = 9 Or lbl2.Caption = 9 Or lbl3.Caption = 9 Then
imggambar.Visible = True
lblketerangan.Caption = "Anda Menang"
Else
lblketerangan.Caption = "Anda Kalah"
End If
cmdputar.Caption = "&putar"
End If



End Sub


Private Sub Form_Load()
Randomize
tmr1.Enabled = False
End Sub

Private Sub tmr1_Timer()
lbl1.Caption = Int(Rnd * 10)
lbl2.Caption = Int(Rnd * 10)
lbl3.Caption = Int(Rnd * 10)
End Sub


Selamat Mencoba Dan berbingung-bingung Ria....^_^