habe in einem vb 6.0 zwei stoppuhren laufen die tun es auch ich habe nur das problem wenn ich eine stoppe und wieder starte passt sie sich der zeit der anderen uhr an kann mir da einer helfen??
gruß udo
gruß udo
End Sub
Private Sub tmrAnzeige1_Timer()
Zeit = Zeit + GetTickCount - Ticks
Ticks = GetTickCount
If optSekunden.Value Then
lblZeit1.Caption = Format(Zeit / 1000, "0.00")
Else
If Zeit >= 1000 Then
Sekunden = Sekunden + Zeit \ 1000
Zeit = Zeit - (Zeit \ 1000) * 1000
If Sekunden >= 60 Then
Minuten = Minuten + Sekunden \ 60
Sekunden = Sekunden - (Sekunden \ 60) * 60
If Minuten >= 60 Then
Stunden = Stunden + Minuten \ 60
Minuten = Minuten - (Minuten \ 60) * 60
End If
End If
End If
lblZeit1.Caption = Stunden & ":" & Format(Minuten, "00") & ":" & Format(Sekunden, "00")
End If
End Sub
Private Sub tmrAnzeige2_Timer()
Zeit = Zeit + GetTickCount - Ticks
Ticks = GetTickCount
If optSekunden.Value Then
lblZeit2.Caption = Format(Zeit / 1000, "0.00")
Else
If Zeit >= 1000 Then
Sekunden = Sekunden + Zeit \ 1000
Zeit = Zeit - (Zeit \ 1000) * 1000
If Sekunden >= 60 Then
Minuten = Minuten + Sekunden \ 60
Sekunden = Sekunden - (Sekunden \ 60) * 60
If Minuten >= 60 Then
Stunden = Stunden + Minuten \ 60
Minuten = Minuten - (Minuten \ 60) * 60
End If
End If
End If
lblZeit2.Caption = Stunden & ":" & Format(Minuten, "00") & ":" & Format(Sekunden, "00")
End If
End Sub