Jump to content
Forum Windows-az.com

Maşin yarişi


Elvin Məlikov

Recommended Posts

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

Link to comment
Share on other sites

Proqramlar telegramda

Sohbete katıl

Şimdi mesajını gönderebilir ve daha sonra kayıt olabilirsin. Bir hesabın varsa, hesabınla göndermek için şimdi oturum aç.

Misafir
Bu konuya yanıt ver...

×   Zengin metin olarak yapıştırıldı.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Önceki içeriğiniz geri yüklendi.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • loading...
×
×
  • Create New...