Enjoy programming more!
Kidspod is a post site which supports young programmers.
First step to join us.
Register as a member
For members

2018/09/30 20:39:15

MixJuice GET URL : kidspod.club/mj/637

タイプ練習

IchigoJamBasicでタイプ練習を作りました。キートップを見ないで、タッチタイプできるようにしましょう。

A="文字列"に練習する文字を入力 スペースは"に変換します。

IchigoJamBasicの変数に文字列を入れると、プログラムリストの中の文字列のアドレスが変数に格納されます。PEEKで文字コードを取り出します。

文字列を書き換えて、QWERTY配列をホームポジション・上段・下段・最上段と練習したり、左右の各指の分担の練習をしたり、それらを徐々に増やしたり。苦手な文字は複数回入れることで出題頻度を増やしたり。いろいろ工夫してみましょう。

SOURCE CODE

10 'TYPING
20 CLS
30 A="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
40 'A="AIUEOKSTNHMYRWGZDBP"
50 'A="ASDFGHJKL;:]QWERTYUIOP@[ZXCVBNM,./\1234567890-^\!"#$%&'()=~|"
60 'A="ASDFGHJKL;"
70 'A="FJ"
80 'A="FJGH"
90 'A="ASDFGHJKL;:]"
100 'A="QWERTYUIOP@["
110 'A="ZXCVBNM,./\"
120 'A="1234567890-^\"
130 'A="! #$%&'()=~|
140 L=0
150 @DO
160 IF PEEK(A+L)=34 THEN GOTO @LOOP
170 IF PEEK(A+L)=32 THEN POKE(A+L),34
180 L=L+1:GOTO @DO
190 @LOOP
200 CLT:M=0
210 FOR I=1 TO 30
220 C=PEEK(A+RND(L))
230 LC I,5:?CHR$(C)
240 @INK:LC I,7:K=INKEY():IF K=0 GOTO @INK
250 ? CHR$(K);
260 IF C<>K THEN M=M+1:GOTO @INK
270 NEXT
280 LC 0,10
290 T= TICK()/6
300 PRINT "Miss:";M;" ";
310 PRINT T/10;".";T%10;"sec"

COMMENT