アラーム

単なるアラームです

soft1("停止")
a=inputdlg("時間を指定(日,時,分)","ex.220640",50,1)
d=substr(a,0,2)
h=substr(a,2,2)
m=substr(a,4,2)
label 0
setfont("L")
text("指定時刻 ".d."日".h."時".m."分",width/2,130,HCENTER|BASELINE)
setfont("S")
if(scan>>17&1){end}
if(strlen(minute)==1){minute="0".minute}
text("現在時刻 ".day."日".hour."時".minute."分".second."秒",width/2,height/2,HCENTER|BASELINE)
unlock()
if(d.h.m==day.hour.minute){cls()goto 1}
lock()
cls()
goto 0

label 1
if(scan>>17&1){end}
setfont("L")
col(0x0000FF)
text("時間になりました",width/2,height/2,HCENTER|BASELINE)
beep(100,500,100)
onvib(500)
sleep(1000)
goto 1