Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
; Well one day I was travelling and the batteries in my travel alarm ; were dead and I needed an alarm clock... ; ; Then I got bored and the script got out of hand... wave="OHNO.WAV" while 1 now=TimeYmdHms() dt=DateTime() a=AskLine("Alarm %dt% (%now%)","Enter time to sound (0 to test)","7:30") if a==0 BoxOpen("Alarm Sound Test","Press shift to stop") while 1 PlayWaveForm(wave,0) if IsKeyDown(@SHIFT) then break endwhile else alarm=strcat("00:00:00:",a,":00") test=TimeAdd(TimeYmdHms(),alarm) ; verify time is legit now=TimeYmdHms() trytime=strcat(strsub(now,1,11),a,":00") x=TimeDiffSecs(trytime,now) if x<0 then trytime=TimeAdd(trytime,"00:00:01:00:00:00") BoxOpen("....","...") while 1 rightnow=TimeYmdHms() dt=DateTime() BoxTitle("Current time %dt% (%rightnow%)") timeleft=TimeDiffSecs(trytime,rightnow) hleft=strfixLeft(timeleft/3600,"0",2) mleft=strfixLeft((timeleft-(hleft*3600)) /60,"0",2) sleft=strfixLeft(timeleft mod 60,"0",2) showleft=strcat(hleft,":",mleft,":",sleft) BoxText(strcat("Alarm Time %@tab%%trytime%",@crlf,@crlf,"Time Left %@tab%%showleft%")) if TimeLeft<0 then break TimeDelay(1) endwhile while 1 rightnow=TimeYmdHms() dt=DateTime() BoxTitle("Current time %dt% (%rightnow%)") BoxText(strcat("Wake up",@crlf,@crlf,"Press and Hold SHIFT to stop.")) PlayWaveForm(wave,0) if IsKeyDown(@SHIFT) then break TimeDelay(5) if IsKeyDown(@SHIFT) then break endwhile endif endwhile
Article ID: W13859
Filename: Alarm Clock Script.txt
File Created: 2021:12:03:11:29:06
Last Updated: 2021:12:03:11:29:06