HSPTV!掲示板

むかーし、MSXでよく音楽を鳴らして遊んでました。
音色やオクタープなどを指定して、ドレミ音を直接流す。
楽しかったなあ〜♪

最近は本格的なDTMソフト？で一通り音楽を完成させてから、プログラムでその音源を流すという形式が一般的だと思いますが、昔のMSXのように直接音楽を流すことはできませんかね？

DTMではありませんが、こんなのどうでしょうか？

#uselib "kernel32.dll"
#func _beep_ "Beep" int,int
#define beep(%1,%2) await:_beep_ %1,%2
#packopt hide 1

#const ド 524
#const ド♯ 554
#const レ♭ 554
#const レ 587
#const レ♯ 622
#const ミ♭ 622
#const ミ 660
#const ファ 698
#const ファ♯ 740
#const ソ♭ 740
#const ソ 784
#const ソ♯ 830
#const ラ♭ 830
#const ラ 880
#const ラ♯ 932
#const シ♭ 932
#const シ 988
#const ド_ 1046

screen 0,224,315
title "ビープ音　階名"
button gosub "ド",*_do_
button gosub "ド♯ レ♭",*_do♯
button gosub "レ",*_re
button gosub "レ♯ ミ♭",*_re♯
button gosub "ミ",*_mi
button gosub "ファ",*_fa
button gosub "ファ♯ ソ♭",*_fa♯
button gosub "ソ",*_sol
button gosub "ソ♯ ラ♭",*_sol♯
button gosub "ラ",*_la
button gosub "ラ♯ シ♭",*_la♯
button gosub "シ",*_si
button gosub "ド",*do_
pos 80,0
button gosub "ド",*do_
button gosub "ド♯ レ♭",*do♯
button gosub "レ",*re
button gosub "レ♯ ミ♭",*re♯
button gosub "ミ",*mi
button gosub "ファ",*fa
button gosub "ファ♯ ソ♭",*fa♯
button gosub "ソ",*sol
button gosub "ソ♯ ラ♭",*sol♯
button gosub "ラ",*la
button gosub "ラ♯ シ♭",*la♯
button gosub "シ",*si
button gosub "ド",*do__
pos 160,0
button gosub "ド",*do__
button gosub "ド♯ レ♭",*do♯_
button gosub "レ",*re_
button gosub "レ♯ ミ♭",*re♯_
button gosub "ミ",*mi_
button gosub "ファ",*fa_
button gosub "ファ♯ ソ♭",*fa♯_
button gosub "ソ",*sol_
button gosub "ソ♯ ラ♭",*sol♯_
button gosub "ラ",*la_
button gosub "ラ♯ シ♭",*la♯_
button gosub "シ",*si_
button gosub "ド",*do___
stop
*_do_
beep ド/2,400
return

*_do♯
beep ド♯/2,400
return

*_re
beep レ/2,400
return

*_re♯
beep レ♯/2,400
return

*_mi
beep ミ/2,400
return

*_fa
beep ファ/2,400
return

*_fa♯
beep ファ♯/2,400
return

*_sol
beep ソ/2,400
return

*_sol♯
beep ソ♯/2,400
return

*_la
beep ラ/2,400
return

*_la♯
beep ラ♯/2,400
return

*_si
beep シ/2,400
return

*do_
beep ド,400
return

*do♯
beep ド♯,400
return

*re
beep レ,400
return

*re♯
beep レ♯,400
return

*mi
beep ミ,400
return

*fa
beep ファ,400
return

*fa♯
beep ファ♯,400
return

*sol
beep ソ,400
return

*sol♯
beep ソ♯,400
return

*la
beep ラ,400
return

*la♯
beep ラ♯,400
return

*si
beep シ,400
return

*do__
beep ド_,400
return

*do♯_
beep ド♯*2,400
return

*re_
beep レ*2,400
return

*re♯_
beep レ♯*2,400
return

*mi_
beep ミ*2,400
return

*fa_
beep ファ*2,400
return

*fa♯_
beep ファ♯*2,400
return

*sol_
beep ソ*2,400
return

*sol♯_
beep ソ♯*2,400
return

*la_
beep ラ*2,400
return

*la♯_
beep ラ♯*2,400
return

*si_
beep シ*2,400
return

*do___
beep ド_*2,400
return

ゆうやんさん

すごーい！
これ全部beep音なんですか？

できればプログラムで演奏したいんですよね。
そーいうのはHSPでは無理なんでしょうかねえ。

MSXは名前を聞いたことがあるくらいですがMMLなら最近追加されたHSPMUCOMというプラグインで対応しているみたいです。
あとは過去のHSPコンテスト作品にもいくつかありますがプログラムで波形を作って鳴らしたりもできます。

K-sさん

かなりイメージに近いものに辿り着きました！
ちょっと頑張って作曲してみます。
ありがとうございました。

hspmucomもいいですが、XPは非対応だそうです。
波形メモリ音源なら、cwsdrvもおすすめです。
こちらはsmfを作って鳴らすタイプですが、直接操作もできるので
自前でMMLを作る事も可能だと思われます（そのうち自分も試そうと思ってるのですが）。

beep音の他に、HSP MIDIでググってみたところ、こんなの見つけましたがどうでしょう？
http://gmr.blog.shinobi.jp/-hsp3%E3%83%A1%E3%83%A2-%E3%82%B5%E3%83%B3%E3%83%97%E3%83%AB/hsp%E3%81%A7%E3%80%81midi%E3%82%B5%E3%82%A6%E3%83%B3%E3%83%89%E3%82%92%E9%B3%B4%E3%82%89%E3%81%99%20-winmm.dll-