Programalama > VISUAL BASIC

Etiketler: araba, yarisi

Ort. 0
Puan ver:
Evet Arkadaşlar merhaba ş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


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2024 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.