Countdown script
Ik zit bij een radiostation, en daar hebben we elk uur (reclame +) nieuws.
Nu wil ik graag een script, die aftelt tot een nieuw uur, en daarna weer opnieuw begint te tellen enzovoort.
Ik heb overal gezocht, maar niks gevonden.
Weet iemand of dit überhaupt mogelijk is ?
Groeten,
Nick
Gewijzigd op 20/10/2011 19:59:20 door Nick F
Thx voor je reactie, het punt is wel dat ik niet echt kan scripten.
Nu heb ik het script gekeken, maar er is volgens mij geen mogelijkheid om te checken hoeveel hij nog moet voordat het uur is afgelopen.
Want als je bijvoorbeeld dat script ziet terwijl het 20:14 is, dan telt hij nog af totdat het weer 20:14 is volgens mij?
Groeten,
Nick
Dankjewel!
Ja ik verwerk dit script namelijk in een .exe programma, het DJ paneel
Daarin kan ik weer wel scripten met Visual Basic, maar daar liep ik dus tegen hetzelfde probleem aan. Dus dacht ik, als het met PHP kan dan kan ik het erin bouwen ^^
Alvast bedankt :)
~ Nick
Je zegt ook dat je met een exe prog bezig bent, in VB neem ik aan, een google op Visual Basic timer levert voldoende hits op bv:
http://vb-helper.com/howto_countdown_timer.html
Bedankt voor je reactie, en ik weet ook hoe de timer werkt, maar als u de reactie boven u leest, dan ziet u dat ik daar namelijk niet verder kom.
Heb geen enkel resultaat gevonden om te kijken hoe laat het is , en vanuit die gegevens te kunnen rekenen hoeveel er over is tot één uur.
Ik heb zeer zeker wel gegoogled, want ik wou het zo snel mogelijk af hebben.
Anders zou ik hier geen account aanmaken voor deze vraag.
Dat zou mij in principe meer tijd kosten.
Ik heb gezocht op countdown klok, aftellen tot heel uur, countdown to full hour enzovoort.
Niks uitgekomen dat hij ook daadwerkelijk checkt hoe laat het is , en dat hij kan laten zien hoelang het uur nog duurd... ?
http://www.vb6.us/tutorials/date-time-functions-visual-basic
Sla tijd op in variabele, en check in een loop of het al een uur later is.
Code (php)
1
Dim endDate As Date
Dan in de load event van het form:
Code (php)
1
2
3
4
2
3
4
Dim hstr As String
hstr = Format(Now, "HH")
endDate = Cdate(Format(Now, "d-M-yyyy") + " " + CStr(Val(hstr) + 1) + ":00:00")
Timer1.Enabled = true
hstr = Format(Now, "HH")
endDate = Cdate(Format(Now, "d-M-yyyy") + " " + CStr(Val(hstr) + 1) + ":00:00")
Timer1.Enabled = true
Dan in de tick event van Timer1:
Code (php)
1
2
3
4
5
6
7
8
9
10
2
3
4
5
6
7
8
9
10
Dim TimeDiff As Long
Dim Minutes As Long
Dim Seconds As Long
TimeDiff = DateDiff(DateInterval.Second, Now, endTime)
Minutes = Fix(TimeDiff / 60)
Seconds = TimeDiff Mod 60
Label1.Text = Format(Minutes, "00") + ":" + Format(Seconds, "00")
If TimeDiff <= 0 Then
DateAdd(DateInterval.Hour, 1, endDate)
End If
Dim Minutes As Long
Dim Seconds As Long
TimeDiff = DateDiff(DateInterval.Second, Now, endTime)
Minutes = Fix(TimeDiff / 60)
Seconds = TimeDiff Mod 60
Label1.Text = Format(Minutes, "00") + ":" + Format(Seconds, "00")
If TimeDiff <= 0 Then
DateAdd(DateInterval.Hour, 1, endDate)
End If
Toevoeging op 21/10/2011 17:03:40:
Ik krijg hier het volgende, Error 1 Name 'endTime' is not declared.
Dus waarschijnlijk moet daar ook een varaible voor of ?
J B op 21/10/2011 20:18:29:
Even snel naar die code kijkend denk ik dat endTime eigenlijk endDate moet zijn.
Kan niet want endDate moet ook aangegeven zijn, en anders verander je dat...
Maar nu werkt het wel, thx!
J B op 21/10/2011 20:18:29:
Even snel naar die code kijkend denk ik dat endTime eigenlijk endDate moet zijn.
je hebt helemal gelijk, ik type ook te snel uit nijn hoofd
Bedankt voor jullie hulp!
Toevoeging op 21/10/2011 20:54:45:
Heb hem zelf nu ook verder omgebouwd dat als het 5 minuten voor het hele uur is, dat hij waarschuwt voor het nieuws + reclame, en om 5 voor half waarschuwt hij voor de verkeersinfo,
Nogmaals, bedankt!