お久しぶりです。MSXはまだやめていません。FM音源をいじって遊んでいますｗ。
今日は簡単なリズムマシンを作ってみたいと思います。
FM-MUSIC環境のMSXで実行できます。まだ不具合がいくつかありますが重いですが動作します；
実行すると１，２，３，４のボタンで４種類のリズムを選びます。
ENTERで音をミュートしてカーソル下でテンポをあがり上でテンポが下がります。
最初は@31のバスドラムの音色でしたが
4の32ビートだけはドラムセットのMML(ｂ３２ｂ３２ｂ３２～）です。ただオマケで実用的ではないです；
３２ビートは伝説！？のビートでマシンガンでガチャガチャうるさいだけです。BPM100が限界ですね。
ゲームミュージックに、例えばR-TYPEとかであります。ちょっとオマケにしました。
例えば8ビートの場合はPLAYをいじるだけで好きなリズムに変えるようにしました。
最初のモジュールはTIME変数を使用して１秒経つと単に音を鳴らしてBPM60から始めました。
プログラムではTS=60とIF TIME>TS THEN ENDにします。
TS=60はタイマーストップ（TS）と自分で決めました。
PLAY" T=TS;"というコマンドを使えば同じようなことができるので変えましたが
280行の計算をすればBPMからTIMEの時間で音の間隔を作ることができます。
SOUND命令などに活用できます。
TIMEはMSXパソコンの場合は60分の１秒でカウントされます。TIME=0でリセットできます。
3600で1分になります。変数を指定せずに直接処理させるとこんな感じです。
BEEPはシステム音でビープと呼びます。音を確認するには[CTRL]+[G]です。
環境によって音が小さい場合はMSX2以降ならSET BEEP 1,3で音量を最大にします。
それでは。
トータル
ランキング
