UWSCでアラームを鳴らす

Last-modified: 2014-08-16 (土) 12:41:50 (2013d)

いろいろと目覚まし時計の様にアラームを鳴らすソフトを探したのですが、結局いいものが見つからず。

Alarm Now ( http://hp.vector.co.jp/authors/VA035160/Freesoft/Contents/soft-page002.htm )はかなり良かったのですが、VBランタイムが必要ということでNG。

結局Windowsのタスクサービスを使うのが一番便利だということで、なんとかコマンドでアラームをループ再生し、任意位置で停止&終了できないか考えたのですが、UWSCでスクリプトを組むのが一番簡単という結論に達しました。

soundFile = "アラームファイル.wav"
sleepTime = 2

THREAD playalarm(soundFile,sleepTime)
MSGBOX("ALARM")
EXITEXIT

PROCEDURE playalarm(soundFile,sleepTime)
	FOR i = 0 TO 19
		SOUND(soundFile,true)
		SLEEP(sleepTime)
	NEXT
FEND

別スレッドでアラームを20回連続再生し、OKボタンが押されると停止します。