アイコン設定
投稿者さん使い方
掲示板の主旨に反する投稿は掲載されません。掲載の是非は管理者が判断いたします。予めご了承願います。
不破さん (7l7pvyk0)2021/12/11 18:45 (No.88375)
質問ありがとうございます.

次の動作をするプログラムを作ると言うことですね

 (1)ボタンを押すまで動作を待機する
 (2)続いて,4分間カウントダウンして,ブザーが鳴る
 (3)続いて,4分間カウントアップして,ブザーが鳴る

順番に作っていきましょう.

(1)ボタンを押すまで動作を待機する
 5 IF BTN(0)=0 THEN GOTO 5

(2)続いて,4分間カウントダウンして,ブザーが鳴る
4分間は240秒で,0.1秒単位では2400カウントとなります
 10 A=2400
 20 CLS:LOCATE 0,0:? A
 30 WAIT 6 : A=A-1
 40 IF A>0 THEN GOTO20
 50 BEEP5,5 : WAIT 10 : BEEP10,5 : WAIT 10

(3)続いて,4分間カウントアップして,ブザーが鳴る (2)に続く行番号で書きます
 60 A=0
 70 CLS:LOCATE 0,0:? A
 80 WAIT 6 : A=A+1
 90 IF A<=2400 THEN GOTO70
 100 BEEP5,5 : WAIT 10 : BEEP10,5 : WAIT 10
110 END

全体をまとめるとつぎのようになります.
5 IF BTN(0)=0 THEN GOTO 5
10 A=2400
20 CLS:LOCATE 0,0:? A
30 WAIT 6 : A=A-1
40 IF A>0 THEN GOTO20
50 BEEP5,5 : WAIT 10 : BEEP10,5 : WAIT 10
60 A=0
70 CLS:LOCATE 0,0:? A
80 WAIT 6 : A=A+1
90 IF A<=2400 THEN GOTO70
100 BEEP5,5 : WAIT 10 : BEEP10,5 : WAIT 10
110 END
返信
ぴかちゅうさん (84tm03dp)2021/11/20 21:21 (No.87452)
saveのやり方が分かりません。教えてください。
不破さん (7l7pvyk0)2021/11/20 23:35
質問ありがとうございます.
レッスン2・ステップ7に SAVE についての説明があります.
これを見て,判りづらいところを教えてもらえませんか.よろしくお願いします.
返信
ゲーム大好きさん (83zei5bb)2021/10/30 17:58 (No.86361)
音はどうやってでるんですか?
不破さん (7l7pvyk0)2021/10/31 00:06
質問ありがとう.

音は,BEEPという命令で鳴らすことができます.
次のコマンドを打って,Enterを押してみてください.

BEEP 5,10

音が鳴りましたね.

BEEPの後ろに2つの数字を書きます.
・1つめの数字は音の高さ
・2つめの数字は音の長さ
です.

数をいろいろ変えて,ブザーの音がどう変わるのかを確認してみてください.
ゲーム大好きさん (83zei5bb)2021/10/31 16:01
ありがとうございます!
返信
ゲーム大好きさん (83zei5bb)2021/10/30 22:02 (No.86374)
不破さん (7l7pvyk0)2021/10/31 00:07
ゲームのプログラムも今度皆さんに配ります.楽しみにしていてください.
返信
けいさん (83bbdtsm)2021/10/13 21:25 (No.85548)
質問です。
行番号に上限はありますか?
10行目から始めるのが一般的でしょうか?
匿名さん (83bbsuqp)2021/10/13 21:36
行番号は,1〜32767の数です.
プログラムが少ない行で完成するのであれば10,20,30 とするのが一般的ですが,
行が多くなりそうであれば,100, 110, 120,・・・, 200, 210・・・とすることが多いです.
プログラムをLISTコマンドで表示させたときの見やすさ重視ですね.
けいさん (83bbdtsm)2021/10/13 21:56
ありがとうございます。
返信
コーピーさん (7v24dd5f)2021/3/20 16:57 (No.71724)
ありがとうございます。
高速タイピングで30秒以内に打てたら、音がなるプログラムはどうすればいいですか?
不破さん (7uab23dy)2021/3/20 17:21
ご質問ありがとうございます。
このゲームは、10行目の CLT 命令でタイマーをゼロにして時間計測を始め、40行目で最後のキーまでタイピングしたかどうかを確認します。そして、最後までタイピングしていたら ?TICK() で経過時間を画面に表示して、ENDで終了します。

TICK() は CLT 命令実行時から経過した時間を表していて、値の単位は1/60秒です。

コーピーさんがやりたいことは、最後のキーまでタイピングしたときに、経過時間を調べてその値が30秒以内(TICK()の値では60x30=1800以下)であれば音を鳴らすのですね。 次のようにしてはどうでしょうか。

10 CLT:N-ASC("A")
20 ?CHR$(N)
30 IF INKEY()!=N GOTO 30
40 IF N=ASC("Z") ?TICK():GOTO 60
50 N=N+1:GOTO 20
60 IF TICK()<=1800 BEEP5,5
70 END

40行目で、最後のキーまでタイピングしたかどうかを調べ、そうであれば経過時間を表示して調べて60行目に移動します。
その60行目で、TICK() の値が1800以下であれば音を鳴らすようにしています。

どうでしょうか。
コーピーさん (7v24dd5f)2021/3/20 17:52
やってみましたがエラーになってしまいます。
不破さん (7uab23dy)2021/3/20 18:14
表示されるエラーメッセージを教えてください。
コーピーさん (7v24dd5f)2021/3/20 18:29
Syntax error in 10
10 CLT:N-ASC("A")
と出てしまいます
不破さん (7uab23dy)2021/3/20 19:51
すみません。

10 CLT:N=ASC("A")

の誤りです。
コーピーさん (7v24dd5f)2021/3/20 20:35
できました!
ありがとうございました。
返信
コーピーさん (7v24dd5f)2021/3/19 21:41 (No.71633)
こうそくタイピングゲームはAからGまでですがAからZもできますか?
匿名さん (7u6nck00)2021/3/19 21:58
できます!

行番号40の行を次のように変更してみてください。
 40 IF N=ASC{"Z") >TICK():END
40行目のIF文は、最後のタイプキーを判定しているものです。
返信
マナヲさん (7u9atqga)2021/3/18 19:40 (No.71539)
マナヲの父です。

本日、使用のため電源を入れておりましたら、画面表示がしなくなりました。
コード類の断線ではないと思います。

念のため、イチゴジャム本体の電源コード(micro-usb)を替えたのですがだめです。
電源コード(micro-usb)を抜き差しすると一瞬だけピッと音が鳴り、キーボードのledが一瞬だけ点灯し消えます。

なのでイチゴジャム本体基盤がもしかすると壊れたのかなと思います。


パソコン上で使えるイチゴジャムのアプリがあるように思ったので
そちらを検索し、ダウンロードしそちらでやってみます。
不破さん (7uucdz3m)2021/3/18 20:04
不破です。ご連絡ありがとうございます。

事務局にご連絡いただき、教材一式を交換していただけないでしょうか。事務局には伝えておきます。
よろしくお願いいたします。
マナヲの父さん (7v1ijubd)2021/3/19 11:30削除
先生ありがとうございます。
返信
山崎さん (7v1ct0zs)2021/3/19 08:49 (No.71603)
録画しようとしたらイチゴジャムの電源がつきませんでした。どうすればよいですか?
返信
さん (7uj96l3i)2021/3/6 16:48 (No.70512)
ミニゲームのメッセージもう一度送って下さい
不破さん (7uucdz3m)2021/3/14 11:04
事務局から送りましたが、届いたでしょうか。
返信