12月もいよいよ残すところあと1日。
当教室も26日の授業を最後にしばらくのお休みなので日頃はなかなかできないロボットのメンテナンスやプログラミングの修行をしていきます。
さっそく1本のプログラムができましたので、冬休みの間に遊んでいただければと思い紹介します。
このプログラムは、1980年代なかばに使われていたMSXというパソコンのマニュアルに記載されているタイピング練習ゲームをスクールで使っているIchigoJam向けに移植したものです。
さっそく遊び方をこれから説明します。
画面に「HIT ANY KEY」と表示されたら、何でも良いのでキーを1回押してスタートします。
画面に表示される単語をタイプしていくと、画面にタイプした結果が表示され、正解かどうかを判定します。
正しければ「ピー」と鳴り得点が加算され、間違えると「ブー」と鳴り減点されます。
1分間でできるだけたくさんの文字を打って、最後に得点が表示されます。
この得点を記録するなりご家族で競うなりすれば、タイピングの腕も上達し、長いプログラムでも難なく入力できるようになると思います。
それでは、プログラムを以下に掲載します。
長いので頑張って打ち込んでみましょう。
プログラムの解説、改造ポイントなどは明日記すこととします。
10 ‘Typing Training
20 VIDEO 3:CLS:CLV
30 SRND TICK()
40 GSB 260
50 ‘
60 ‘START
70 ‘
80 ?”TYPING TRAINING”
90 ?”HIT ANY KEY”
100 IF INKEY()==0 GOTO 100
110 CLT:CLS
120 ‘
130 ‘MAIN
140 ‘
150 W=RND(36)+1
160 CLS:?STR$([W])
170 FOR I=1 TO LEN([W])
180 K=INKEY()
190 IF TICK()<3600 GOTO 240
200 IF K=0 GOTO 180ELSE LC I-1,3:?CHR$(K);
210 IF SCR(I-1,0)=SCR(I-1,3) BEEP 7,5:S=S+1 ELSE BEEP 300,5:M=M+1
220 NEXT
230 GOTO 150
240 LC 0,5:?"SCORE:";S-M
250 END
260 'WORD SET
270 LET [1],"ICHIGO","LEMON","ORANGE","PLAY","MOUSE","BAG"
280 LET [7],"PARK","IF","JAM","TIME","LOAD","SAVE"
290 LET[13],"GOSUB","WHITE","SOUND","RETURN","CAT","DOG"
300 LET[19],"EASY","TOKYO","PRINT","COW","FOX","LOVE"
310 LET[25],"HUNGRY","ERROR","DATA","DRAW","CALL","HORSE"
320 LET[31],"FLOWER","DOOR","SUN","MOON","STAR","TRAIN"
330 RTN
