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

2019/05/07 19:46:22

MixJuice GET URL : kidspod.club/mj/823

PWMで音楽　あの曲

OUT5に圧電サウンダを接続して、PWMで音を出します。
データを1KBいっぱいまで入れました。

プログラムを見る　で動画にリンクします。

SOURCE CODE

10 'MARIO
20 CLS:?"MARIO"
30 LET[0],2273,2025,3822,3405,3034,2863,2551,1911
40 LET[8],2145,2145,3608,3214,3214,2703,2408
50 L=8:N=2:P=50:O=40
60 M="":GSB@P

220 M="":GSB@P
230 END
240 @P:C=PEEK(M):M=M+1:F=0
250 IFC=34OUT5,0:?:RTN
260 ?CHR$(C);
270 IFC=60O=O/2:GOTO@P
280 IFC=62O=O*2:GOTO@P
290 IFC=45GOTO@L
300 IFC=95OUT5,0:GOTO@L
310 IF(C>64)*(C<73)F=[C-65]
320 IF(C>96)*(C<104)F=[C-89]
330 IFF=0GOTO@P
340 F=F/O:PWM5,F*P/100,F
350 @L:WAITL-N
360 IFPEEK(M)<>45OUT5,0
370 WAITN:GOTO@P

COMMENT