Programalama > VISUAL BASIC

Etiketler: titreyen, pencere

Ort. 0
Puan ver:
projenize 4 adet timer 1 adet command buton ekleyin alttaki kodu yapıştırın tamamdır.

Dim Hareket As Integer

Private Sub Command1_Click()
Hareket = 200
Timer1.Enabled = True

End Sub

Private Sub Form_Load()
Timer1.Interval = 20
Timer2.Interval = 20
Timer3.Interval = 20
Timer4.Interval = 20
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
Hareket = 200
End Sub

Private Sub Timer1_Timer()
'Aşağıya doğru
Form1.Top = Form1.Top + Hareket
Hareket = Hareket - 5
Timer2.Enabled = True
Timer1.Enabled = False
If Hareket <= 0 Then Durdur
End Sub

Private Sub Timer2_Timer()
'Yukarıya doğru
Form1.Top = Form1.Top - Hareket
Hareket = Hareket - 5
Timer3.Enabled = True
Timer2.Enabled = False
End Sub

Private Sub Timer3_Timer()
'Sola doğru
Form1.Left = Form1.Left - Hareket
Hareket = Hareket - 5
Timer4.Enabled = True
Timer3.Enabled = False
End Sub

Private Sub Timer4_Timer()
'Sağa doğru
Form1.Left = Form1.Left + Hareket
Hareket = Hareket - 5
Timer1.Enabled = True
Timer4.Enabled = False
End Sub

Sub Durdur()
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
End Sub


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.