#author("2020-04-29T10:23:09+09:00","","") #author("2020-04-29T10:28:02+09:00","","") [[Ys TOOLs C]] Ys Clock 0.1.0~ ~ ・始めに~ このTOOLは指定の時刻までの時間をカウントするTOOLです~ ~ ・作成の動機~ リアルタイムでラジオ番組を聞きたくて、作成しました~ タブレット使用が念頭なんですが 数字はキーボード入力だったり~ たまにしか入力しないからいいかなって~ ~ ・使い方~ 記述予定~ ~ ・今後~ 時刻と残り時間が一緒に変わると気持ち悪いので~ 残り時間だけ止めたいですね~ ~ ・バグ~ 明日ボタンを設定すると、次の日になっても明日のままですw~ ~ ・謝辞~ このTOOLでは魔王魂様のsound effectを使用しています。感謝です~ http://maoudamashii.jokersounds.com/~ ~ sound effectのwavの著作権は魔王魂様に所属します~ ~ 作成:高畑ラボ(Y_repeat)~ ~ ・連絡先~ バグなどありましたらご報告ください~ また改造後再配布時配布URLを教えていただけると嬉しいです~ y.tack2010@gmail.com~ ~ #code{{ mmload "se_maoudamashii_onepoint30.wav",1,0 title "Ys Clock" //#include "mod_counttimer.hsp" // make_timer timer // タイマーの準備。 ;#define Lfont_input(%1,%2,%3) font "",%1:input %2, ;font "",25:input:font "",20 flag_return=0 flag_fin=0 screen 0,520,280 cls 1 font "",20 objmode 2 f = 0 t0 = 0 // 待ち時間(秒) pos 160,0 mes "時刻" my_hour = gettime(4) my_min = gettime(5) my_sec = gettime(6) str_time_cur=strf("%02d",my_hour)+":"+strf("%02d",my_min)+":"+strf("%02d",my_sec) pos 160,30 font "",40:input str_time_cur,160,40 ID4str_time_cur=stat:font "",20 pos 160,75 objsize 120,40 font "",30:button "re get",*l_re_get ID4re_get=stat:font "",20 mes "残り時間" yotei_time_rest_tmp="00:00:00" font "",40:input yotei_time_rest_tmp,160,40 ID4yotei_time_rest=stat:font "",20 font "",30:button "check",*l_check ID4check=stat:font "",20 pos 10,0 var4sel_day=1 objsize 120,50 font "",30 button "→今日",*l_sel_today ID4sel_today=stat:font "",20 font "",30 button "明日",*l_sel_tomorrow ID4sel_tomorrow=stat:font "",20 pos 10,100 mes "時間入力(時)" font "",30:input t0_b3,120,30 ID4t0_b3=stat:font "",20 mes "時間入力(分)" font "",30:input t0_b2,120,30 ID4t0_b2=stat:font "",20 mes "時間入力(秒)" font "",30:input t0_b,120,30 ID4t0_b=stat:font "",20 pos 350,0 mes "予定時刻" yotei_time_cur_tmp="00:00:00" yotei_time_cur=strf("%02d",my_hour)+":"+strf("%02d",my_min)+":"+strf("%02d",my_sec) font "",40:input yotei_time_cur_tmp,160,40 ID4yotei_time_cur=stat:font "",20 objsize 120,40 font "",30:button "time set",*l_time_set ID4re_get=stat:font "",20 objsize 140,50 font "",30:button "start time", *start_b:font "",20 font "",30:button "stop time",*l_stop_b:font "",20 hoge_b = 0 mes "状況" bar_b="start" font "",30:input bar_b,160,35 ID4bar_b=stat:font "",20 stop *l_check nokori_time=0 my_hour = gettime(4) my_min = gettime(5) my_sec = gettime(6) cur_time_sec=0 cur_time_sec+=my_sec cur_time_sec+=my_min*60 cur_time_sec+=my_hour*60*60 yotei_time_total_sec=0 yotei_time_total_sec+=yotei_time_sec yotei_time_total_sec+=yotei_time_min*60 yotei_time_total_sec+=yotei_time_hour*60*60 if cur_time_sec > yotei_time_total_sec{ bar_b="fin." objprm ID4bar_b,bar_b if flag_return==1:flag_fin=1:return stop } nokori_time_total_sec = yotei_time_total_sec - cur_time_sec nokori_time_sec = nokori_time_total_sec\60 nokori_time_min = (nokori_time_total_sec\3600)/60 nokori_time_hour = nokori_time_total_sec/3600 yotei_time_rest_tmp=strf("%02d",nokori_time_hour)+":"+strf("%02d",nokori_time_min)+":"+strf("%02d",nokori_time_sec) objprm ID4yotei_time_rest,yotei_time_rest_tmp if flag_return==1:return stop *l_re_get my_hour = gettime(4) my_min = gettime(5) my_sec = gettime(6) str_time_cur=strf("%02d",my_hour)+":"+strf("%02d",my_min)+":"+strf("%02d",my_sec) font "",30:objprm ID4str_time_cur,str_time_cur:font "",20 if flag_return==1:return stop *l_time_set yotei_time_sec=(t0_b)\60 yotei_time_min=(t0_b2)\60+(t0_b)/60 yotei_time_hour=t0_b3+(t0_b2)/60+(t0_b)/3600 if var4sel_day==2:yotei_time_hour+=24 yotei_time_cur=strf("%02d",yotei_time_hour)+":"+strf("%02d",yotei_time_min)+":"+strf("%02d",yotei_time_sec) objprm ID4yotei_time_cur,yotei_time_cur if flag_return==1:return stop *start_b bar_b="start" objprm ID4bar_b,bar_b flag_return=1 gosub *l_time_set while 1 await 200 flag_return=1 gosub *l_re_get gosub *l_check flag_return=0 if flag_fin==1{ while 1 mmplay 1 await 3000 wend } wend stop *l4restart_b stop *l_stop_b flag_fin=0 mmstop bar_b="stop" objprm ID4bar_b,bar_b stop *l_restart_b goto *l4restart_b *l_sel_today var4sel_day=1 objprm ID4sel_today,"→今日" objprm ID4sel_tomorrow,"明日" stop *l_sel_tomorrow var4sel_day=2 objprm ID4sel_today,"今日" objprm ID4sel_tomorrow,"→明日" stop }}