Feedback

VB - Stoppuhr

Veröffentlicht von am 08.05.2007
(3 Bewertungen)
Stoppuhr mit timer
Private Sub cmd_start_Click()
Timer1.Interval = 1000
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Timer1_Timer()
    Timer1.Interval = 1000
    DoEvents
    txt_sekunde.Text = txt_sekunde.Text + 1
    If txt_sekunde.Text = 60 Then
     txt_sekunde.Text = 0
     txt_minute.Text = txt_minute.Text + 1
        
        If txt_minute.Text = 60 Then
        txt_minute.Text = 0
        txt_stunde.Text = txt_stunde.Text + 1
        End If
        
     End If
End Sub

Abgelegt unter Timer.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!