Hi Com ich bins mal wieder
Ich habe ein mir absolut unverständliches Problem ,das wie folgt lautet:
Ich gebe in einem Label die Systemzeit aus und in einem anderem die Zeit seid meinem Start.
Theoretisch sollen beide gleichschnell laufen (läuft auch beides über den gleichen timer) aber irgendwie ist das label mit der Systemzeit nach ein paar sekunden 1 sekunde im vorsprung (später dann 2 , 3 usw) , da beides im gleichen timer läuft sollte es doch auch beides gleichschnell laufen oder irre ich mich da ?
Wäre über hilfe sehr erfreut da ich echt keine ahnung mehr habe was ich noch machen soll
Hier der Code:
intervall ist 1000 was ja auch eine sekunde ist ... bin echt überfragt :wacko:
Ich habe ein mir absolut unverständliches Problem ,das wie folgt lautet:
Ich gebe in einem Label die Systemzeit aus und in einem anderem die Zeit seid meinem Start.
Theoretisch sollen beide gleichschnell laufen (läuft auch beides über den gleichen timer) aber irgendwie ist das label mit der Systemzeit nach ein paar sekunden 1 sekunde im vorsprung (später dann 2 , 3 usw) , da beides im gleichen timer läuft sollte es doch auch beides gleichschnell laufen oder irre ich mich da ?
Wäre über hilfe sehr erfreut da ich echt keine ahnung mehr habe was ich noch machen soll
Hier der Code:
Quellcode
- Private Sub systemzeit() Handles timer2.Tick
- Dim Zeit As String = Date.Now.AddSeconds(klickzeit).ToLongTimeString()
- Label8.Text = startzeit
- If Label8.Text = lblSystemzeit.Text And q = 1 Then
- starten = 1
- Label1.Text = lblZeit.Text
- intZeit2 = intZeit
- startzeitt = Date.Now.ToLongTimeString
- lblStartzeit.Text = startzeitt
- If startbutton = 1 Then
- array()
- wenngestartet()
- startbutton += 1
- End If
- k = 1
- Label1.Text = ""
- q += 1
- Me.btnStartstop.Text = "Split"
- Exit Sub
- End If
- If starten = 1 Then
- aktuelleZeit += 1
- intZeit += 1
- If aktuelleZeit >= 60 Then
- Me.aktuelleZeit = Me.aktuelleZeit - 60
- minuten += 1
- End If
- If minuten < 10 Then
- If aktuelleZeit < 10 Then
- labelzeit = "0" & minuten & ":" & "0" & aktuelleZeit
- Else
- labelzeit = "0" & minuten & ":" & aktuelleZeit
- End If
- Else
- If aktuelleZeit < 10 Then
- labelzeit = minuten & ":" & "0" & aktuelleZeit
- Else
- labelzeit = minuten & ":" & aktuelleZeit
- End If
- End If
- End If
- lblSystemzeit.Text = Zeit
- lblZeit.Text = labelzeit
- End Sub
intervall ist 1000 was ja auch eine sekunde ist ... bin echt überfragt :wacko: