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