Sending MIDI notes to built-in soundcard

Newbie question:
I'm trying to get Excel 2013 to send a MIDI note (say 64) to play on the built-in device on my Windows 8 laptop.

Can someone please give me a 101 ? (as a starting point for a little more challenging project)
Thanks
hindersalivaAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

als315Commented:
It is relatively simple to send midi file. Look at sample (place sample midi file to any folder and correct path to file in sub)
PlayMidi.xlsm
0
hindersalivaAuthor Commented:
als315, I need to play ONE note, for example when a shape is clicked, rather than triggering the the playing of a MIDI file.

There's an example here - Duelling Banjos by John Walkenbach.
http://j-walkblog.com/index.php?/weblog/posts/dueling_banjos_in_excel/ 

But it doesn't work on my Excel 2013/Win8.

Here's his code

Option Explicit
Private Declare Function midiOutOpen Lib "winmm.dll" _
    (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.dll" _
    (ByVal hMidiOut As Long) As Long

Private Declare Function midiOutShortMsg Lib "winmm.dll" _
    (ByVal hMidiOut As Long, _
    ByVal dwMsg As Long) As Long
 
Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)
Dim hMidiOut As Long
Public lanote As Long
 
Sub PlayMIDI(voiceNum, noteNum, Duration)
    Dim Note As Long
    On Error Resume Next
    midiOutClose hMidiOut
    midiOutOpen hMidiOut, 0, 0, 0, 0
    midiOutShortMsg hMidiOut, RGB(192, voiceNum - 1, 127)
    lanote = 12 + CLng(noteNum)
    Note = RGB(144, lanote, 127)
    midiOutShortMsg hMidiOut, Note
    Sleep (Duration)
    midiOutClose hMidiOut
 End Sub

Sub PlayWorksheetNotes()
    Dim r As Long
    'ActiveSheet.Calculate
    For r = 2 To Application.CountA(Range("A:A"))
        Cells(r, 4).Select
        Call PlayMIDI(Cells(r, 1), Cells(r, 2), Cells(r, 3))
    Next r
 End Sub

Open in new window

0
QlemoBatchelor, Developer and EE Topic AdvisorCommented:
The issue is that the code is too simple, and the device calls to slow, to get something useful. You can try out by multiplying the Duration in line 29 with 10 - you should here sounds (if MIDI works at all). The original Duelling Banjos sample does produce sound only in a reasonable way if I double the duration. This even applies for playing one single note.

You might also have to set up the volume for Excel (or MS VBA) in your Mixer application first.

Please try with this slightly improved code, which gives better results:
Option Explicit
Private Declare Function midiOutOpen Lib "winmm.dll" _
    (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.dll" _
    (ByVal hMidiOut As Long) As Long

Private Declare Function midiOutShortMsg Lib "winmm.dll" _
    (ByVal hMidiOut As Long, _
    ByVal dwMsg As Long) As Long
 
Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)
Dim hMidiOut As Long
Public lanote As Long

Sub PlayMIDI(voiceNum, noteNum, Duration)
    Dim Note As Long
    On Error Resume Next
    midiOutShortMsg hMidiOut, RGB(192, voiceNum - 1, 127)
    lanote = 12 + CLng(noteNum)
    midiOutShortMsg hMidiOut, RGB(144, lanote, 127)
    Sleep (Duration)
    midiOutShortMsg hMidiOut, RGB(128, lanote, 127)
 End Sub

Sub PlayWorksheetNotes()
    Dim r As Long
    'ActiveSheet.Calculate
    midiOutOpen hMidiOut, 0, 0, 0, 0
    For r = 2 To Application.CountA(Range("A:A"))
        Cells(r, 4).Select
        Call PlayMIDI(Cells(r, 1), Cells(r, 2), Cells(r, 3))
    Next r
    midiOutClose hMidiOut
 End Sub
 

Open in new window

The improvement is that the MIDI device is not reopened and closed which each note, but only once. And the duration is implemented by Note On, Wait, Note Off now.
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
hindersalivaAuthor Commented:
Qlemo, yes it now works as it should. Thank you.
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic Classic

From novice to tech pro — start learning today.