Program post site for everyone
13のキーを抵抗分圧でANA()で判定します。
PWMコマンドで平均律で計算した正確な音程の音を鳴らします。
プリント基板を作りました。
プログラムを見るで詳細が見られます。
ガーバーデータを公開していますので、発注製造できます。
5枚・10枚は製造費用+送料が変わらないので、9枚基板が余った^^;
残りの基板をメルカリに出品しました。IchigoJamで検索
10 'IchigoANAkey 20 CLS:P=2:OUTP,0 30 O=20:H=50 40 @LP 50 IF!IN(1)GSB@OD 60 IF!IN(3)GSB@OU 70 K=ANA(2) 80 IFK>1000OUTP,0:GOTO@LP 90 F=3822 100 IFK>50F=3608 110 IFK>100F=3405 120 IFK>200F=3214 130 IFK>300F=3034 140 IFK>350F=2863 150 IFK>400F=2703 160 IFK>500F=2551 170 IFK>600F=2408 180 IFK>650F=2273 190 IFK>750F=2145 200 IFK>850F=2025 210 IFK>900F=1911 220 F=F/O:PWMP,F*H/100,F 230 IFANA(P)<1000CONT:ELSEGOTO@LP 240 @OD:IFO>10O=O/2 250 IF!IN(1)CONT:ELSERTN 260 @OU:IFO<160O=O*2 270 IF!IN(3)CONT:ELSERTN
PWMを駆使して正確な平均律を鳴らすだけでもすごいと思いましたが、専用コントローラまで作るとは……恐るべし！ カーバーデータまで公開していただき、ありがとうございます。
