４３．MIDI音源を使用して音を鳴らす



＜　使用用途　＞
MIDI を使用する時に用いる

＜　説明　＞
ＡＰＩ関数のMidiOutShortMsgを使用します。
MidiOutShortMsg＝＞MIDI音源から音を鳴らす
　　＜引数＞
　　　 hMidiOut：MIDI出力デバイスのハンドル
　　　 dwMsg：音階を指定する
　　＠戻り値＠　　
　　　　　　正常終了0

＊詳しいサンプルは「☆プログラムを作ってみよう」で掲載する予定です。
＊終了する時は必ず出力デバイスを閉じてください。「４４、出力デバイスを閉じる」を参照

<　ＳＡＭＰＬＥ　＞
'ここではMIDI音源を使用し「ド」の音を出す処理です
'標準モジュール
Public Declare Function midiOutShortMsg Lib "winmm.dll" Alias "midiOutShortMsg" (ByVal hMidiOut As Long, ByVal dwMsg As Long) As Long

'ここからはフォームの処理
Private Sub Command1_Click()
　　
　　Dim i As Long
　　Dim Ret As Long　
　
　　'音を出す
　　Onkai = &H7F3C90 * 256
　　Ret = midiOutShortMsg(Handle,Onkai)

　　'音を伸ばす
　　For i = 0 To 2000
　　Next

　　'音をとめる
　　Onkai = &H3C90 + 1 * 256
　　Ret = midiOutShortMsg(Handle, Onkai)

End Sub