Programalama > VISUAL BASIC

Private Sub Form_Load()
Timer1.Interval = 1000  ' Set Timer interval.
Timer2.Interval = 1000
s = 0
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Time   ' Update time display.

End Sub

Private Sub Timer2_Timer()
Timer2.Interval = Timer2.Interval + 1
Label2.Caption = CStr(Timer2.Interval)
If Timer2.Interval = 1005 Then
Shape1.FillColor = RGB(255, 0, 0)
Shape1.Shape = 3
End If

End Sub

dörtçelik eml lisesi öğrencisi süleyman keskin/bursa-inegöl
alone_wolf_1117@hotmail.com


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.