Program post site for everyone
算数の計算問題 と テンキーのタイピングの練習です。
１２３４５６７８９の計算問題の答えをタイピングします。
テンキーがなくても、UIO JKL を 456 123 に使えます。
20行の R= で４種類のパターンを指定。
HIT SPACE でスタートするときに1234を押しても指定できます。
ENTERキーで中断
練習後のHIT SPACE のときに、エンターを押すとVIDEO 1を実行して終了します。
10 'TENKEY_TYPING
20 @INIT:VIDEO3:CLS:R=0:X=2:Y=4
30 @TI:LCX,Y-2:?"TENKEY"
40 LCX,Y+2:?"HITSPACE"
50 @HS:K=INKEY()
60 IFK=10GOTO@END
70 IFK=32GOTO@ST
80 IFK=49R=0:GOTO@ST
90 IFK=50R=1:GOTO@ST
100 IFK=51R=2:GOTO@ST
110 IFK=52R=3:GOTO@ST
120 GOTO@HS
130 @ST:N=20:M=0:CLT
140 @SET:A=RND(9)+1:B=RND(9)+1:C=A+B
150 @TYPE
160 CLS:I=0:LCX,Y
170 IFR=0?"*";" + ";B;" = ";C:D=A:Z=0
180 IFR=1?A;" + ";"*";" = ";C:D=B:Z=4
190 IFR=2?C;" - ";B;" = ";"*":D=A:Z=8+(C>9)
200 IFR=3?C;" - ";"*";" = ";B:D=A:Z=4+(C>9)
210 @KEY:K=INKEY():IFK=0GOTO@KEY
220 IFK=85K=52
230 IFK=73K=53
240 IFK=79K=54
250 IFK=74K=49
260 IFK=75K=50
270 IFK=76K=51
280 IFK=10GOTO@END
290 IFK>=20LCX+Z,Y:?CHR$(K);
300 IFK<>D+ASC("0")PLAY"A32":M=M+1:GOTO@KEY
310 PLAY"<<A16F8"
320 @WT:IFSOUND()<>0GOTO@WT
330 @EXIT:N=N-1
340 IFN>0GOTO@SET
350 @END:CLS
360 LCX,Y-2:?"TIME:";TICK()/60
370 LCX,Y:?"MISS:";M
380 LCX,Y+2:?"HITSPACE"
390 @KB:K=INKEY()
400 IFK=32CLS:GOTO@TI
410 IFK=10VIDEO1:CLS:END
420 GOTO@KB
テンキーのタイピングだと、非常に簡単になってしまうのでは……と思いきや、計算問題！ これならいい練習になりますね。パターンを選べるというのも面白いです。1つ目の数字を隠すか、2つ目の数字を隠すかで、不思議と計算の感覚が変わってきますね。
