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

2018/12/06 09:31:37

MixJuice GET URL : kidspod.club/mj/694

音感テスト

OUT 5 に圧電サウンダを接続して音を出します。
PLAYよりも音程が正確になっています。チューニングは270行~の値を変更。

半音階1オクターブの音が鳴るのでこれを基準にして聴音をします。
CapsLockで大文字にしておきます。Shiftで小文字の入力。
Cを押すと始まります。

ドレミファソラシド を CDEFGABH の英語音名で入力。
高いドはHighの頭文字。ドイツ語音名じゃないです。
ド♯レ♯ファ♯ソ♯ラ♯はcdfgaの小文字です。

16問 Z=で設定 終わると、正解/問題数 HIT C を表示します。

SOURCE CODE

10 'オンカンテスト
20 @ST:CLS:PRINT "オンカンテスト"
30 L=25:P=50:O=20:Z=16:S=0
40 'M="CDEFGABH"
50 M="CcDdEFfGgAaBH"
60 LC0,3:GSB@SET
70 LC0,5:?"HIT C";
80 @WL:K=INKEY()
90 IFK<>67GOTO@WL
100 LC0,5:?CHR$(24):Y=X
110 FOR I=1 TO Z 
120 LC(I<10),I+4:?I;":";
130 @N:N=RND(X):IFY=NGOTO@N
140 Y=N:C=[N]:GSB@PL
150 @IN:K=INKEY():IFK=0GOTO@IN
160 C=K:?CHR$(C);" ";:GSB@PL
170 C=[N]:?CHR$(C);" ";:GSB@PL
180 IF[N]=K?"O":S=S+1:ELSE?"X"
190 WAITL*3
200 NEXT 
210 ?:?CHR$(24);S;"/";Z;
220 ?" HIT C";
230 @EL:K=INKEY()
240 IFK<>67GOTO@EL
250 GOTO@ST
260 @PL:F=0
270 IFC=67F=3822
280 IFC=99F=3608
290 IFC=68F=3405
300 IFC=100F=3214
310 IFC=69F=3034
320 IFC=70F=2863
330 IFC=102F=2703
340 IFC=71F=2551
350 IFC=103F=2408
360 IFC=65F=2273
370 IFC=97F=2145
380 IFC=66F=2025
390 IFC=72F=1911
400 IFF>0F=F/O:PWM5,F*P/100,F
410 WAITL:OUT5,0:RTN
420 @SET:X=0
430 @SL:C=PEEK(M+X)
440 IFC=34[X]=0:RTN
450 [X]=C:?CHR$(C);:GSB@PL
460 X=X+1:GOTO@SL

COMMENT