こどもプログラミング
教室掲示板

お疲れ様です。
例えば次のようなプログラムはどうでしょうか。まだ基本的な動きだけです。

30行目　待ち時間を0.1秒刻みにしました。ボタンを押したときの反応を良くするためです
40行目　ボタンが押されていない間はカウントアップを続けます
50行目　ここから1秒待って、カウントダウンを始めます
60行目　ボタンが押されるまで待ちます
80行目　0.1秒刻みでカウントダウンします
90行目　カウントが0になっていなければ、70行目に戻ってカウントダウンを続けます。

10 A＝0
20 CLS:LOCATE 0,0:?A　
30 WAIT6:A＝A+1　
40 IF BTN(0)＝0 THEN GOTO20　
50 WAIT60
60 IF BTN(0)=0 THEN GOTO 60
70 CLS:LOCATE 0,0:？A
80 WAIT 6:A=A-1
90 IF A>0 THEN GOTO70

理解できない部分もありますが、やってみます。不破先生ありがとうございます。

是非また質問をしてください。よろしくお願いいたします。

ありがとうございます。

纚廻圖さん
書き込みありがとうございます。

5行目はボタンを押すまで待つ命令なので、8回繰り返すのは10行目〜120行目の部分ですね。
例えば、変数Cを今何回目を繰り返しているのかをカウントする数が入る箱として利用することにして、次のようにしてはどうでしょうか。

5　IF BTN(0) THEN GOTO5
6　C=0
　10行目〜120行目のプログラムがここに入る
130 C=C+1:IF C<8 THEN GOTO10

6行目で変数Cの値を0にしておき、その後10行目〜120行目のプログラムを実行したあと、130行目でCの値を1つ増やします。そして、その値が8より小さい場合には10行目に戻るようにするものです。

返信していなくてすみません。
これまでに作ったプログラムを書いてもらえませんか。
それを見て一緒に考えましょう。

間違えてしまいました。すみません

問い合わせありがとうございます。
まず、作成されたプログラムのリストを書いてもらえませんか。
そのプログラムを見ながら、いろいろ確認していきたいと思います。

ご返信ありがとうございます。

5 IF BTN(0)=0 THEN GOTO5
10 A=0
20 CLS:LOCATE:0,0:?A
30 WAIT6:A=A+1
35 BEEP10,5:TEMPO120
40 IF A<=150 THEN GOTO20
50 BEEP10,5
55 IF BTN (0)=0 THEN GOTO50
60 END

35の「TEMPO」ですが、どの数字にしてもテンポが変わらず、感覚的には0.1秒に1回音が鳴っています。
よろしくお願いします。

20行目〜40行目のループは、30行目で0.1秒待つことから、0.1秒刻みで廻ります。
そうすると、音を鳴らす35行目も0.1秒毎に実行するので、音はTEMPOと関わりなく0.1秒刻みで鳴りますね。

35行目を、次の様にしてみてください。

35 IF A%5=0 THEN BEEP 5,1

変数Aの値は0.1秒毎に1つ増えていきます。そのAの値が5で割り切れる時だけ（つまり、５回に１回だけ）音を鳴らすという考えです。

早速のお返事ありがとうございます！
先生、成功しました٩(*´꒳`*)۶°˖✧
嬉しいです！
ありがとうございました。

お疲れ様です。思うようにプログラムが動作したときは、本当にうれしいですよね。
これからもよろしくお願いします。

川下りゲームの動画はありません。
お送りしたプログラムを入力して、RUNとして遊んでください。
うまく動かないときはまたご質問ください。

質問ありがとうございます．
動かないというのは，ボタンを押しても画面が真っ黒になって数字が出てこないということでしょうか．
そのとき，ESCキーを押してもらい，その際に画面に出るメッセージを教えてください．確認していきましょう．