(DTPtechNote:179) アラーム

[市川せうぞー <anonymous at unknown-host>]

閑話休題。ちょっとぬるいのをひとつ。

(*
なんのことはないタイマー
時間の区切り記号が「:」じゃない人は適当にカスタマイズを。
これであややの番組を見逃さないですむyo！
#仕事に没頭しやすいキミにピッタリ！！！

(c) 2002 市川せうぞー http://www.seuzo.jp/
*)

property my_time : 10
set my_delimit to ":"

set my_time to text returned of (display dialog "何分後にアラームを鳴らしますか？" & return & "Ex.)" & return & "60	-->60分後" & return & "16" & my_delimit & "30	-->午後4時30分" default answer my_time)

try
	if my_time contains my_delimit then
		set set_time to date my_time
		set now_time to (current date)
		if now_time < set_time then
			set my_time to set_time - now_time
		else
			display dialog "過去の時間をセットすることはでっきません" buttons {"キャンセル"} default button 1 with icon 0
		end if
	else
		set my_time to my_time * 60
	end if
on error errMsg number errNum
	display dialog "憶測ですけど、きっと入力が正しくありません" buttons {"キャンセル"} default button 1 with icon 0
end try

delay my_time
beep 5
set my_time to my_time div 60 --次回のために

tell current application
	activate
	display dialog "時間ですよ！" giving up after 10
end tell