Får inte till det. har en Timer med interval = 1000 och en Label som det står 15.00 i. Nu vill jag att den ska räkna ner till 00.00 alltså börja med 14.59, 14.58 osv. Så här löser jag det. SÅP Kom på att du kanske vill ha ex. 15 min 00 sek till 14 min 59 sek osv. Tack för FeedBack ,kom på att du kanske menade 15 min 00 sek down. Intressant som jag inte kollat. Det var det jag tänkte, den kommer att räkna upp tillslut, Och !!! ödmjuk som jag är. Problemet är nästan löst Har nu kollat under ett dygn. Kan det ha med hög belastning att göra, Om du utgår från datorns klocka i stället så borde den inte kunna dra sig så mycket som 5 sekunder på ett dygn?Timer som räknar ner minuter och sekunder
Va ska det stå i timern.Sv: Timer som räknar ner minuter och sekunder
Jag visar bara hela minuter om du även vill ha med sek får Vi justera.
<code>
Option Explicit
'Ställ Timer1.Enabled = False Starta den vid det klockslag du vill
'Ställ Timer1.Interval = 60000 = 1min
Const STARTTID = 0.625 ' Kl 15:00:00
' 1 timme = 0.041666666 15:00 blir då 0.625
Const MINUT = 0.00069444444 '1 minut
Dim tNu As Single
Dim cnt As Long
Private Sub Timer1_Timer()
cnt = cnt + 1
tNu = cnt * MINUT
Label1.Caption = Format$(STARTTID - tNu, "hh:mm")
End Sub
Private Sub Command1_Click()
'Starta Timer1
Label1.Caption = Format$(STARTTID,("hh:mm")
Timer1.Enabled = True
End Sub
</code>Sv:Timer som räknar ner minuter och sekunder
Inte för att jag är så insatt i VB, men räknar ditt exemplev verkligen nedåt till 00:00 ?Sv:Timer som räknar ner minuter och sekunder
Det är lätt att ändra med constanterna STARTTID och MINUT
Då sätter man Interval till tex 520 för att vara säker att få träff varje sek.Sv:Timer som räknar ner minuter och sekunder
Då blir det så här. Läs och förstå Tege ;-)
Tege är känd för att ha svårt att förstå rak logisk svenska. !
<code>
Option Explicit
'Ställ Timer1.Enabled = False Starta den vid det klockslag du vill
'Ställ Timer1.Interval = 1000 = ~ 1 sek
'Interval 1000 får du räkna med någon sekund fel pga av Timerns precision
'Duger inte som tidtagare vid tävlingar precision är 1/18 sek 56 ms
Const STARTTID = 0.010416666 ' 15 min
' 1 timme = 0.041666666 15 min blir då 0.010416666
Const SEKUND = 0.00001157395833 '1 sek
Dim tNu As Single
Dim cnt As Long
Private Sub Timer1_Timer()
cnt = cnt + 1
tNu = cnt * SEKUND
Label1.Caption = Right$(CDate(STARTTID - tNu), 5) & " min:sek"
End Sub
Private Sub Command1_Click()
'Starta Timer1
Timer1.Enabled = True
Label1.Caption = "15:00"
End Sub
</code>Sv: Timer som räknar ner minuter och sekunder
Vad händer vid 00:00 ?
Edit:
Haaaaaaaa det trodde jag inte.
Den vänder och räknar uppåt. Det insåg jag inte !!! ???Sv:Timer som räknar ner minuter och sekunder
det kan du hoppa upp och klappa dej i flinten på ;-)Sv: Timer som räknar ner minuter och sekunder
Det är väl ingen som funderar på det !? Och vad är problemet ?
En enkel IF sats så är detta avklarat.
"Ser inte skogen för bara träd"
Självklart finns det olika lösningar.Sv:Timer som räknar ner minuter och sekunder
Min lösning drar sig 5 sek på ett dygn.mmmm !!!!!????
Men !!! det verkar komma i första start sedan håller den sekund tid.
Pula in en fullösning på 5 sek direkt. ?
mmm.... många vinklar på en plog.Sv: Timer som räknar ner minuter och sekunder
dvs att du håller på med annat som är tungt för processorn?Sv:Timer som räknar ner minuter och sekunder