請問要怎麼利用VisualBasic來發出MIDI聲音...

Question

1.請問各位VB高手...要怎麼讓VB能發出聲音...例如:DO RA ME....等聲音..我記得好像在VB裡面加入BEEP函數...實際上要怎麼寫呢?
2.如何讓VB能發出MIDI的聲音呢?(好像很難吼 = =)

W.J.S. 大大...這個網站不錯耶~ 可是它只有介紹用BEEP函數發音...請問哪裡有可以發出MIDI聲音ㄉ網站呢?

可是我還是不知如何發出單音耶 = =

Answer 1

請參考:阿戊的VB實驗網頁:實驗範例 第68項的 如何在各平台上讓 PCSpeaker演奏音樂

2006-07-13 00:57:00 補充：
這是我以前在別的網站找到的電子琴程式,我有修改過看看是否是你要的(免費空間只能放7天),別問我出處,因為我也忘了XD!!http://www.yousendit.com/transfer.php?action=check_download&ufid=CD8A2D7B6C0CEB71&key=163f5f55d69d57f682d249a68863f4135fb7c234

2006-07-13 14:18:53 補充：
To:鳴大
把IO.DLL放到WINNT\SYSTEM32\就可(WIN98要放在WINDOWS\SYSTEM\)
資源檔裡面1個是音色的名稱1個是那首生日快樂的音譜.本來是文字檔我怕麻煩就直接把它加入資源檔了XD

Answer 2

Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Sub cmdplay_chick() '按下按鈕
Call mciSendString("open " + ".\DATA\1028.mid alias bgmic", vbNullString, 0, 1)
Call mciSendString("play bgmic from 0", vbNullString, 0, 1)
End Sub

Answer 3

模組
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Private Sub Form_Load()
Call mciSendString("open " + ".\DATA\1028.mid alias bgmic", vbNullString, 0, 1)
Call mciSendString("play bgmic from 0", vbNullString, 0, 1)
End Sub

Answer 4

我要如何加入運用io.dll

2006-07-13 07:09:14 補充：
電子琴程式內的資原檔是加入什麼ㄚ?
是dll嗎?

2006-07-15 02:09:45 補充：
to :W.J.S.大大
我知道了!謝謝ㄚ