来个抢滩登陆的模拟声效
Option Explicit
Private Declare Function midiOutOpen Lib "winmm" (lphMidiOut As Long, ByVal uDeviceID As Long, ByVal dwCallback As Long, ByVal dwInstance As Long, ByVal dwFlags As Long) As Long
Private Declare Function midiOutClose Lib "winmm" (ByVal hMidiOut As Long) As Long
Private Declare Function midiOutShortMsg Lib "winmm" (ByVal hMidiOut As Long, ByVal dwMsg As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim I As Integer, hMO As Long, YueQi As Long
Private Sub Form_Activate()
DoEvents
' 打开 midi 输出设备
If midiOutOpen(hMO, -1&, 0&, 0&, 0&) Then
MsgBox "打开midi设备失败"
Exit Sub
End If
midiOutShortMsg hMO, &HC0& Or (122 * &H100&) '海浪
midiOutShortMsg hMO, &H7F3C90: Sleep 1000
midiOutShortMsg hMO, &H7F4990: Sleep 3000
midiOutShortMsg hMO, &HC0& Or (125 * &H100&) '直升机
midiOutShortMsg hMO, &H7F3C90: Sleep 4000
midiOutShortMsg hMO, &HC0& Or (127 * &H100&) '枪声
midiOutShortMsg hMO, &H7F3C90: Sleep 100
midiOutShortMsg hMO, &H7F3C90: Sleep 100
midiOutShortMsg hMO, &H7F3C90: Sleep 100
midiOutShortMsg hMO, &H7F4190: Sleep 100
midiOutShortMsg hMO, &H7F4190: Sleep 100
midiOutShortMsg hMO, &H7F4190: Sleep 200
midiOutShortMsg hMO, &HC0& Or (122 * &H100&) '海浪
midiOutShortMsg hMO, &H7F4990: Sleep 3000
midiOutShortMsg hMO, &H7F3C90: Sleep 3000
midiOutShortMsg hMO, &HC0& Or (127 * &H100&) '枪声
midiOutShortMsg hMO, &H7F3C90: Sleep 200
midiOutShortMsg hMO, &H7F3C90: Sleep 200
midiOutShortMsg hMO, &H7F3C90: Sleep 200
midiOutShortMsg hMO, &H7F3C90: Sleep 200
midiOutShortMsg hMO, &HC0& Or (122 * &H100&) '海浪
midiOutShortMsg hMO, &H7F4990: Sleep 3000
midiOutShortMsg hMO, &H7F3C90: Sleep 3000
midiOutShortMsg hMO, &HC0& Or (80 * &H100&) '片头
midiOutShortMsg hMO, &H7F3C90: Sleep 500
midiOutShortMsg hMO, &H7F4090: Sleep 50
midiOutShortMsg hMO, &H7F4190: Sleep 50
midiOutShortMsg hMO, &H7F4390: Sleep 50
midiOutShortMsg hMO, &H7F4590: Sleep 50
midiOutShortMsg hMO, &H7F4790: Sleep 50
midiOutShortMsg hMO, &H7F4990: Sleep 500
midiOutShortMsg hMO, &H7F3C90: Sleep 1000
Sleep 256: midiOutClose hMO
End Sub