|
Zdravím. V mém programu se určitá proměnná roste po dobu 8 hodin a druhá proměnná roste současně s ní, ale každou hodinu začíná opět od nuly (Celkové počítadlo a hodinové počítadlo). A každou novou hodinu se hodinové počítadlo vynuluje. Zatím to řeším tímto způsobem:
If Microsoft.VisualBasic.Mid(Label3.Text, 5, 2) = "00" _
And kusu23hodina <> "0" Then
kusu23hodina = "0"
'During the hour, the value change only if the last value of general counter change
ElseIf ValTemp1 <> CStr(-(CInt(Target) - CInt(kusuok23))) Then
kusu23hodina = CStr(CInt(kusu23hodina) + 1)
End If
Pokud však během první minuty nové hodiny se počítadlo zvýší o jedna, tím se zvýší i hodinové počítadlo na jedna a hned se zase vynuluje. Přidat k tomu ještě podmínku aby i vteřinová část musela být "00" se mi moc nechce. Nejsem si jistý, že by to program v té jedné vteřině stihl projít skrze část, které vynulovává hodinové počátadlo. Neměl by někdo nějaký nápad? Hodiny ukazuji v programu pomocí text labelu s timerem nastaveným na 1000 milisecond. (Pokud by i tato část šla nějak vylepšit nebráním se tomu.
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label3.Text = Now.ToLongTimeString 'formát 01:58:48 AM
End Sub
Díky předem za návrhy jak z toho ven
|