Viusal basic ile araba yarışı yapmak...

Konu: Viusal basic ile araba yarışı yapmak... C.tesi Eyl. 29, 2007 7:33 pm

şimdi sizinle araba yarışı yapacagız

Araçlar : 1) iki tane Shape ekliyoruz bunlar araba olucak bu Shape adını Shape1 ve Shape2 yapıyoruz.

2) Timer ekliyoruz Left 5280 Top 3120 olarak de iştiriyoruz.

3) Command buton ekliyoruz

Aşa ıda vermiş oldu um 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