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/26 10:07:16

MixJuice GET URL : kidspod.club/mj/720

ヨロコビノウタ　年末恒例の第九より

OUT 5 に　圧電サウンダを接続します。
PLAYよりも正確な音程で音楽を演奏します。
演奏中にBSキーで中断。ESCで止めた場合はOUT 5,0で消音。

曲のMMLデータを書き換えて、投稿OK
音楽著作権にはご注意ください。

MML
CDEFGABH ドレミファソラシド
cdfga #
- 伸ばす
_ 休符
= オクターブ初期化
<　オクターブダウン
>　オクターブアップ

L=8　音符の長さ 1/60秒単位
N=1　音符間の無音時間
P=20　パルスのHL比 %



  • 1
  • 1

SOURCE CODE

10 'ﾖﾛｺﾋﾞﾉｳﾀ
20 CLS:?"ﾖﾛｺﾋﾞﾉｳﾀ"
30 L=8:N=1:P=20
40 M="E-E-F-G-G-F-E-D-C-C-D-E-E--DD---":GSB@PL
50 M="E-E-F-G-G-F-E-D-C-C-D-E-D--CC---":GSB@PL
60 M="D-D-E-C-D-EFE-C-D-EFE-D-C-D-<G->E-":GSB@PL
70 M="E---F-G-G-F-E-D-C-C-D-E-D--CC---":GSB@PL
80 END:LRUNFILE()+1
90 @PL:O=20:I=0
100 @RD:C=PEEK(M+I):I=I+1:F=0
110 IFC=34OUT5,0:RTN
120 IFC=60O=O/2:GOTO@RD
130 IFC=61O=20:GOTO@RD
140 IFC=62O=O*2:GOTO@RD
150 IFC=95GSB@RE
160 IFC=45GSB@WT
170 IFC=67F=3822
180 IFC=99F=3608
190 IFC=68F=3405
200 IFC=100F=3214
210 IFC=69F=3034
220 IFC=70F=2863
230 IFC=102F=2703
240 IFC=71F=2551
250 IFC=103F=2408
260 IFC=65F=2273
270 IFC=97F=2145
280 IFC=66F=2025
290 IFC=72F=1911
300 IFF>0GSB@NT
310 GOTO@RD
320 @RE:OUT5,0:WAITL:GOTO@P
330 @NT:F=F/O:PWM5,F*P/100,F
340 @WT:IFPEEK(M+I)=45WAITL:ELSEWAITL-N:OUT5,0:WAITN
350 @P:IFINKEY()=8OUT5,0:END:ELSERTN

COMMENT