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

2019/04/06 17:03:37

MixJuice GET URL : kidspod.club/mj/782

「令和」ゴールデンボンバー PWMで演奏

ゴールデンボンバーの「令和」のサビをIchigojamで演奏します。
OUT2 と GNE に圧電サウンダを接続して、PWM命令で音を鳴らします。

  • 1
  • 1

SOURCE CODE

10 'REIWA
20 CLS:?"REIWA"
30 L=10:N=1:H=50:P=2
40 M="A-A-A-AAGE-G-AA-":GSB@PL
50 M="A-A-A-BHBA-G-A-E":GSB@PL
60 M="A-A-A-AAGE-G-AA-":GSB@PL
70 M="_DDDFFAABBHB----":GSB@PL
80 M="A-A-A-AAGE-G-AA-":GSB@PL
90 M="A-A-A-BHBA-G-A-E":GSB@PL
100 M="A-A-A-AAGE-G-AA-":GSB@PL
110 M="_DDDFFAAB->CD-C<B>C":GSB@PL
120 M="A-------":GSB@PL
130 END
140 @PL:O=20:I=0
150 @RD:C=PEEK(M+I):I=I+1:F=0
160 IFC=34OUTP,0:RTN
170 IFC=60O=O/2:GOTO@RD
180 IFC=61O=20:GOTO@RD
190 IFC=62O=O*2:GOTO@RD
200 IFC=95GSB@RE:GOTO@RD
210 IFC=45GSB@WT:GOTO@RD
220 IFC=67F=3822
230 IFC=99F=3608
240 IFC=68F=3405
250 IFC=100F=3214
260 IFC=69F=3034
270 IFC=70F=2863
280 IFC=102F=2703
290 IFC=71F=2551
300 IFC=103F=2408
310 IFC=65F=2273
320 IFC=97F=2145
330 IFC=66F=2025
340 IFC=72F=1911
350 IFF>0GSB@NT
360 GOTO@RD
370 @RE:OUTP,0:WAITL:GOTO@P
380 @NT:F=F/O:PWMP,F*H/100,F
390 @WT:IFPEEK(M+I)=45WAITL:ELSEWAITL-N:OUTP,0:WAITN
400 @P:IFINKEY()=8OUTP,0:END:ELSERTN

COMMENT

Kidspod運営チーム
Kidspod運営チーム2019/04/12 14:03:09

おお、見事に鳴っていますね。早くも耳コピするとは! 普通の楽曲を圧電サウンダで鳴らすのも、味があっていいですね。