- 追加された行はこの色です。
- 削除された行はこの色です。
#author("2020-04-29T10:23:09+09:00","","")
#freeze
#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
}}