Newsgroup: it.comp.lang.visual-basic
Titolo: midi

ciao a tutti!
cerco suggerimenti per gestire midi con vb.Non files midi , ma semplicemente
vorrei riuscire a far suonare qualche nota(sequencer mi sembra un parolone
esag). Il problema attuale  è riuscire a chiudere la porta midi una volta
aperta e cambiare lo strumento.
grazie dei consigli
giovanni

 cerco suggerimenti per gestire midi con vb.
Tempo fa ho scritto questo modulo... Dagli un'occhiata.
Ignazio
Attribute VB_Name = "Midi"
Option Explicit
Private Const MAXPNAMELEN = 32             ' Maximum product name length
' Error values for functions used in this sample. See the function for more
information
Private Const MMSYSERR_BASE = 0
Private Const MMSYSERR_BADDEVICEID = (MMSYSERR_BASE + 2)     ' device ID out
of range
Private Const MMSYSERR_INVALPARAM = (MMSYSERR_BASE + 11)     ' invalid
parameter passed
Private Const MMSYSERR_NODRIVER = (MMSYSERR_BASE + 6)        ' no device
driver present
Private Const MMSYSERR_NOMEM = (MMSYSERR_BASE + 7)           ' memory
allocation error
Private Const MMSYSERR_INVALHANDLE = (MMSYSERR_BASE + 5)     ' device handle
is invalid
Private Const MIDIERR_BASE = 64
Private Const MIDIERR_STILLPLAYING = (MIDIERR_BASE + 1)      ' still
something playing
Private Const MIDIERR_NOTREADY = (MIDIERR_BASE + 3)          ' hardware is
still busy
Private Const MIDIERR_BADOPENMODE = (MIDIERR_BASE + 6)        ' operation
unsupported w/ open mode
'User-defined variable the stores information about the MIDI output device.
Private Type MIDIOUTCAPS
   wMid As Integer                   ' Manufacturer identifier of the device
driver for the MIDI output device
                                     ' For a list of identifiers, see the
Manufacturer Indentifier topic in the
                                     ' Multimedia Reference of the Platform
SDK.
   wPid As Integer                   ' Product Identifier Product of the
MIDI output device. For a list of
                                     ' product identifiers, see the Product
Identifiers topic in the Multimedia
                                     ' Reference of the Platform SDK.
   vDriverVersion As Long            ' Version number of the device driver
for the MIDI output device.
                                     ' The high-order byte is the major
version number, and the low-order byte is
                                     ' the minor version number.
   szPname As String * MAXPNAMELEN   ' Product name in a null-terminated
string.
   wTechnology As Integer            ' One of the following that describes
the MIDI output device:
                                     '     MOD_FMSYNTH-The device is an FM
synthesizer.
                                     '     MOD_MAPPER-The device is the
Microsoft MIDI mapper.
                                     '     MOD_MIDIPORT-The device is a MIDI
hardware port.
                                     '     MOD_SQSYNTH-The device is a
square wave synthesizer.
                                     '     MOD_SYNTH-The device is a
synthesizer.
   wVoices As Integer                ' Number of voices supported by an
internal synthesizer device. If the
                                     ' device is a port, this member is not
meaningful and is set to 0.
   wNotes As Integer                 ' Maximum number of simultaneous notes
that can be played by an internal
                                     ' synthesizer device. If the device is
a port, this member is not meaningful
                                     ' and is set to 0.
   wChannelMask As Integer           ' Channels that an internal synthesizer
device responds to, where the least
                                     ' significant bit refers to channel 0
and the most significant bit to channel
                                     ' 15. Port devices that transmit on all
channels set this member to 0xFFFF.
   dwSupport As Long                 ' One of the following describes the
optional functionality supported by
                                     ' the device:
                                     '     MIDICAPS_CACHE-Supports patch
caching.
                                     '     MIDICAPS_LRVOLUME-Supports
separate left and right volume control.
                                     '     MIDICAPS_STREAM-Provides direct
support for the midiStreamOut function.
                                     '     MIDICAPS_VOLUME-Supports volume
control.
                                     '
                                     ' If a device supports volume changes,
the MIDICAPS_VOLUME flag will be set
                                     ' for the dwSupport member. If a device
supports separate volume changes on
                                     ' the left and right channels, both the
MIDICAPS_VOLUME and the
                                     ' MIDICAPS_LRVOLUME flags will be set
for this member.
End Type
Private Declare Function midiOutGetNumDevs Lib "winmm" () As Integer
' This function retrieves the number of MIDI output devices present in the
system.
' The function returns the number of MIDI output devices. A zero return
value means
' there are no MIDI devices in the system.
Private Declare Function midiOutGetDevCaps Lib "winmm.dll" Alias
"midiOutGetDevCapsA" (ByVal uDeviceID As Long, lpCaps As MIDIOUTCAPS, ByVal
uSize As Long) As Long
' This function queries a specified MIDI output device to determine its
capabilities.
' The function requires the following parameters;
'     uDeviceID-     unsigned integer variable identifying of the MIDI
output device. The
'                    device identifier specified by this parameter varies
from zero to one
'                    less than the number of devices present. This parameter
can also be a
'                    properly cast device handle.
'     lpMidiOutCaps- address of a MIDIOUTCAPS structure. This structure is
filled with
'                    information about the capabilities of the device.
'     cbMidiOutCaps- the size, in bytes, of the MIDIOUTCAPS structure. Use
the Len
'                    function with the MIDIOUTCAPS variable as the argument
to get
'                    this value.
'
' The function returns MMSYSERR_NOERROR if successful or one of the
following error values:
'     MMSYSERR_BADDEVICEID    The specified device identifier is out of
range.
'     MMSYSERR_INVALPARAM     The specified pointer or structure is invalid.
'     MMSYSERR_NODRIVER       The driver is not installed.
'     MMSYSERR_NOMEM          The system is unable to load mapper string
description.
Private Declare Function midiOutClose Lib "winmm.dll" (ByVal hMidiOut As
Long) As Long
' The function closes the specified MIDI output device. The function
requires a
' handle to the MIDI output device. If the function is successful, the
handle is no
' longer valid after the call to this function. A successful function call
returns
' MMSYSERR_NOERROR.
' A failure returns one of the following:
'     MIDIERR_STILLPLAYING  Buffers are still in the queue.
'     MMSYSERR_INVALHANDLE  The specified device handle is invalid.
'     MMSYSERR_NOMEM        The system is unable to load mapper string
description.
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
' The function opens a MIDI output device for playback. The function
requires the
' following parameters
'     lphmo-               Address of an HMIDIOUT handle. This location is
filled with a
'                          handle identifying the opened MIDI output device.
The handle
'                          is used to identify the device in calls to other
MIDI output
'                          functions.
'     uDeviceID-           Identifier of the MIDI output device that is to
be opened.
'     dwCallback-          Address of a callback function, an event handle,
a thread
'                          identifier, or a handle of a window or thread
called during
'                          MIDI playback to process messages related to the
progress of
'                          the playback. If no callback is desired, set this
value to 0.
'     dwCallbackInstance-  User instance data passed to the callback. Set
this value to 0.
'     dwFlags-Callback flag for opening the device. Set this value to 0.
'
' The function returns MMSYSERR_NOERROR if successful or one of the
following error values:
'     MIDIERR_NODEVICE-       No MIDI port was found. This error occurs only
when the mapper is opened.
'     MMSYSERR_ALLOCATED-     The specified resource is already allocated.
'     MMSYSERR_BADDEVICEID-   The specified device identifier is out of
range.
'     MMSYSERR_INVALPARAM-    The specified pointer or structure is invalid.
'     MMSYSERR_NOMEM-         The system is unable to allocate or lock
memory.
Private Declare Function midiOutShortMsg Lib "winmm.dll" (ByVal hMidiOut As
Long, ByVal dwMsg As Long) As Long
' This function sends a short MIDI message to the specified MIDI output
device. The function
' requires the handle to the MIDI output device and a message is packed into
a doubleword
' value with the first byte of the message in the low-order byte. See the
code sample for
' how to create this value.
'
' The function returns MMSYSERR_NOERROR if successful or one of the
following error values:
'     MIDIERR_BADOPENMODE-  The application sent a message without a status
byte to a stream handle.
'     MIDIERR_NOTREADY-     The hardware is busy with other data.
'     MMSYSERR_INVALHANDLE- The specified device handle is invalid.
Private hmidi As Long
Public Sub StartNote(Note As Integer, ByVal Volume As Integer, Channel As
Integer)
   Dim midimsg As String
   If Note >= 128 Then Exit Sub
   midimsg = &H90 + (Note * &H100) + (Volume * &H10000) + Channel
   midiOutShortMsg hmidi, midimsg
End Sub
Public Sub StopNote(Note As Integer, Channel As Integer)
   Dim midimsg As String
   If Note >= 128 Then Exit Sub
   midimsg = &H80 + (Note * &H100) + Channel
   midiOutShortMsg hmidi, midimsg
End Sub
Public Sub OpenMIDI(curDevice As Integer)
   Dim rc As Long
   rc = midiOutClose(GetSetting("G2kRC", "General", "LastHMIDI", 0))
   rc = midiOutClose(hmidi)
   rc = midiOutOpen(hmidi, curDevice, 0, 0, 0)
   SaveSetting "G2kRC", "General", "LastHMIDI", hmidi
   If (rc <> 0) Then
      MsgBox "Impossibile aprire il dispositivo MIDI. Codice errore: " & rc
   End If
End Sub
Public Sub CloseMIDI()
   'For hmidi = -
2147483648
# To 
2147483647
   midiOutClose hmidi
   '  If hmidi Mod 50000 = 0 Then Debug.Print hmidi
   '  DoEvents
   'Next
End Sub
Public Sub ChangeInstrument(Channel As Integer, ByVal Instrument As Integer)
   Dim midimsg As String
   midimsg = &HC0 + (Instrument * &H100) + Channel
   midiOutShortMsg hmidi, midimsg
End Sub


Ti ringrazio!
ora provo a dare uno sguardo.
Ciao!