SHIROのIchigoJam日記

IchigoJamの電子工作とプログラミングをメインに

タイピング練習

簡単なタイピング練習ソフトを作ってみました。
問題文はIchigoJam BASIC関連にしていますので、プログラミング教室で使うと、いい入力練習になると思います。
100行以降の問題文は自由に変更できますので、いろいろ変えてみてください。

  • 実行すると、スコアと問題文が表示されます。問題文のとおりにキーボードから文字を入力してください。
  • 間違わずに入力できると、スコアが1点加算されて、次の問題文へ移ります。
  • 入力を間違えると、それまでのプレイ時間が表示されて終了します。

1文字でも間違うとアウトなので、大人でも結構プレッシャーがかかります(笑)

10 '*Typing*
20 CLV:CLT
30 CLS:?"SCORE=";S:?
40 GOSUB 100+RND(30)*10:X=0
50 C=SCR(X,2)
60 IF C=0 THEN BEEP 10:WAIT 30:S=S+1:GOTO 30
70 K=INKEY():IF K=0 THEN GOTO 70
80 IF K=C THEN ?CHR$(C);:X=X+1:GOTO 50
90 BEEP 30,30:?:?:?"TIME=";TICK()/60:END
100 ?"RUN":RETURN
110 ?"LIST":RETURN
120 ?"LOAD":RETURN
130 ?"SAVE":RETURN
140 ?"FILES":RETURN
150 ?"NEW":RETURN
160 ?"LED 1":RETURN
170 ?"PRINT":RETURN
180 ?"INPUT":RETURN
190 ?"LOCATE":RETURN
200 ?"CLS":RETURN
210 ?"CLV":RETURN
220 ?"IF":RETURN
230 ?"THEN":RETURN
240 ?"ELSE":RETURN
250 ?"FOR I=1 TO 10":RETURN
260 ?"NEXT":RETURN
270 ?"BEEP":RETURN
280 ?"WAIT":RETURN
290 ?"END":RETURN
300 ?"RETURN":RETURN
310 ?"GOTO 120":RETURN
320 ?"GOSUB 340":RETURN
330 ?"INKEY()":RETURN
340 ?"TICK()":RETURN
350 ?"RND(10)":RETURN
360 ?"SCR(0,0)":RETURN
370 ?"BTN(LEFT)":RETURN
380 ?"CHR$(1)":RETURN
390 ?"X=X+1":RETURN

(10/5)教室用ペーパー

子ども向けプログラミング教室で使うことを想定して、改めてペーパーを作りました。

  1. 1ページ目:説明テキスト
  2. 2ページ目:プログラムリスト
  3. 3ページ目:説明テキスト(スロット3にプログラムを仕込んで実行してもらう場合)

配布する時は教室の進行に応じて、1〜2ページ、あるいは2〜3ページを印刷して配布するとよいでしょう。
IchigoJamはんだ付け工作が早く終わった子にやってもらうなら、プログラムをあらかじめスロット3に仕込んでおいて「LRUN3」で実行してもらうといいでしょう。
このペーパーとプログラムは、CC BYライセンスとします。ご自由にお使いください。
→PDFファイル