したらばTOP ■掲示板に戻る■ 全部 1-100 最新50 | |

プチコン総合スレッド

117：RND 128：2012/01/09(月) 04:55:33
>>116
こんなのはどうでしょうか

PNLTYPE"OFF":CLEAR:CLS
VISIBLE 1,1,0,0,0,0:N=0
FOR J=0 TO 1:J=0
TMREAD(TIME$),H,M,S
OH=H:OM=M:OS=S:Q=3600
FOR I-0 TO 1OH=H:OM=M:OS=S
VSYNC 1TMREAD(TIME$),H,M,S
A=OS+OM*60+OH*Q:E=S+M*60+H*Q
I=E>1+A:NEXT:FOR I=0 TO 1
I=TCHST:BEEP N:NEXT:NEXT

一秒以上待たないと鳴りませんし、時々鳴らないこともあります。
日付変更にも弱いです。
2行目のNの値を変えれば音の種類を変えれます。
後は色々と改変すれば何とかなるハズ。ガンバレ！
新着レスの表示

名前： E-mail（省略可）：

※書き込む際の注意事項はこちら

※画像アップローダーはこちら

（画像を表示できるのは「画像リンクのサムネイル表示」がオンの掲示板に限ります）
掲示板管理者へ連絡 無料レンタル掲示板