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

2019/03/06 12:04:18

MixJuice GET URL : kidspod.club/mj/760

KEYTEST オルガンつき

IchigoJamSWITCH ゲームパッドの接続テスト
上下左右ボタンの配線を確認します。
ドレミソラを鳴らします。

チューリップを弾いてみよう。

30行 POKEによる画面の書き込み 右下まで改行せずに表示できます。
IN(n)との対応を確認。BTNとINは戻り値が逆です。
ボタンを押したときの論理を!で反転することでifの引数にしています。

SOURCE CODE

10 'KEY TEST
20 SWITCH1:FOR I=1TO4:OUTI,-1:NEXT
30 FORY=0TO7:FORX=0TO15:POKE#900+Y*16+X,6:NEXT:NEXT
40 FORY=1TO6:FORX=1TO14:LCX,Y:?" ";:NEXT:NEXT
50 LC2,2,1:?"KEY TEST";:GSB@W
60 LC4,4:?"L D R U B";:LC4,6:?"ドレ ミ ソ ラ";
70 @LP:LC4,5:?!IN(5);" ";!IN(6);" ";!IN(8);" ";!IN(7);" ";!IN(9);
80 if!IN(5)PLAY"T240O5C"
90 if!IN(6)PLAY"T240O5D"
100 if!IN(7)PLAY"T240O5G"
110 if!IN(8)PLAY"T240O5E"
120 if!IN(9)PLAY"T240O5A"
130 IF!IN(5)+!IN(6)+!IN(7)+!IN(8)+!IN(9)=5LRUN0
140 WAIT10:GOTO@LP
150 @W:IF!BTN()CONT:ELSEBEEP2
160 IFBTN()CONT:ELSEBEEP5:RTN

COMMENT