Maşin yarişi

[Elvin Məlikov]

1)İKİ ədəd Shape əlavə edirik bunlar avtomobil olacaq bu Shape adini Shape1 və Shape2 edirik.

2)2 ədəd timer əlavə edirik invertallerini 50 51 edirik amma fərqli olsun.

3)Command butonu əlavə edirik.Asagida verilmiş kodu əlavə edirik bu qədər.

 

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 ("qalib gelen masin")

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 ("qalib gelen masin")

End

End If

 

End Sub