Top/Ys_C06 Ys_Clock

Ys_C06 Ys_Clock

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159

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