simdi sizinle araba yarisi yapacagiz
Araçlar : 1) iki tane Shape ekliyoruz bunlar araba olucak bu Shape adini Shape1 ve Shape2 yapiyoruz.
2) Timer ekliyoruz Left 5280 Top 3120 olarak degistiriyoruz.
3) Command buton ekliyoruz
Asagida vermis oldugum kodu ekliyoruz bu kadar.
Private Sub Command1_Click()
Timer1.Interval = 10
Timer2.Interval = 10
End Sub
Private Sub Form_Load()
End Sub
Private Sub Timer1_Timer()
Randomize
g = Rnd(100) * 100
Shape1.Move Shape1.Left + g
If Shape1.Left >= 8000 Then
MsgBox ("kazanan pembe araba")
End
End If
End Sub
Private Sub Timer2_Timer()
Randomize
f = Rnd(100) * 100
Shape2.Move Shape2.Left + f
If Shape2.Left >= 8000 Then
MsgBox ("kazanan beyaz araba")
End
End If
End Sub
Bu kadar kolay gelsin
