GOTOループとWAITで一秒ごとにチッと音がなるようにしました チッを十秒やったら大きなドーン!と したいのですが、WAITかGOTOを同時進行での動かすことができません 教えてください

WAITやめるとか

1秒毎にBEEPだよね？ ならWAITを使わずに1秒待ってみたら？ ～～～～～～～～～～～～～～～～～ A$=TIME$ @A IF A$!=TIME$ THEN GOSUB @B GOTO @A @B BEEP 鳴らしたいBEEPの番号 A$=TIME$ RETURN ～～～～～～～～～～～～～～～～～ こんなんで良いかな？

こういう書き方はいかが？ 用語間違いがあったらゴメンしてね

あ、忘れてた^^; @B以降を以下の物に書き換えてね！ ～～～～～～～～～～～～～～～～～ @B IF A==10 THEN GOTO @C BEEP 番号 A=A+1 RETURN @C BEEP 番号 A=0 RETURN ～～～～～～～～～～～～～～～～～ これで良いはず…^^;

これかな? WHILE TRUE INC CNT IF CNT MOD 10==0 THEN BEEP <10秒おきの番号> ELSE BEEP <それ以外の番号> WAIT 60 WEND CNTに経過した秒数が入ってます。 ただこれは、一つの役割だけなので、毎フレームやるならば改造しないといけません。

目的が全く違った気がする。 @A INC FCT IF FCT==60 THEN FCT=0:INC CNT IF CNT MOD 10==0 THEN <10秒ごとの番号>　ELSE BEEP <それ以外の時の番号> ENDIF WAIT 1(VSYNC 1の方が良い) GOTO @A BEEPをGOTOにすると専用の処理を付けることができますよ。 CNTは経過した秒数、FCTはカウント用のフレーム数(60になったら0になる、INC CNTする)です。

普通に IF (MAINCNT MOD 60)==0 THEN チッと音がなる IF (MAINCNT MOD 600)==0 THEN 大きな音でドーン! で良いのではないだろうか

皆さん親切なご回答ありがとうございます!本当に助かりました