araba Yarışı

Konu: araba Yarışı Perş. Mart 27, 2008 11:44 am

Private Sub Command1_Click()
Timer1.Interval = 10
Timer2.Interval = 10
End Sub
Private Sub Timer1_Timer()
Randomize
g = Rnd(100) * 100
Shape1.Move Shape1.Left + g
If Shape1.Left >= 8000 Then
MsgBox ("Kazanan Kırmızı 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 Yeşil Araba")
End
End If
End Sub

Konu: Geri: araba Yarışı Salı Nis. 01, 2008 2:51 pm

bu ilginçmiş ya denemek lazım?! tam umutluk

Konu: Geri: araba Yarışı Salı Nis. 01, 2008 3:31 pm

eet ya tam onluk bişe bu.. ama sanki sınav için biraz kısa