Program post site for everyone
PWM5で圧電サウンダを鳴らして、音痴を治しました。
周波数・波長のデータを配列に入れて、文字コードで読み出すことで、プログラムのサイズが小さくなり、音楽データ行が500文字入れられるようになりました。
10 'MUSIC 20 LET[0],2273,2025,3822,3405,3034,2863,2551,1911 30 LET[8],2145,2145,3608,3214,3214,2703,2408 40 L=10:N=2:P=50:O=20 50 M="C-D-E-F-G-A-B-H-":GSB@P 60 M="CcDdEFfGgAaBH":GSB@P 70 END 80 @P:C=PEEK(M):M=M+1:F=0 90 IFC=34OUT5,0:RTN 100 IFC=60O=O/2:GOTO@P 110 IFC=62O=O*2:GOTO@P 120 IFC=45GOTO@L 130 IFC=95OUT5,0:GOTO@@L 140 IF(C>64)*(C<73)F=[C-65] 150 IF(C>96)*(C<104)F=[C-89] 160 IFF=0GOTO@P 170 F=F/O:PWM5,F*P/100,F 180 @L:WAITL-N 190 IFPEEK(M)<>45OUT5,0 200 WAITN:GOTO@P
