home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1996 August / VPR9608A.BIN / vpr_data / vb32 / source / piano.bas < prev    next >
BASIC Source File  |  1996-05-25  |  1KB  |  28 lines
  1. Attribute VB_Name = "Module1"
  2. Option Explicit
  3.  
  4. Public Const MAXPNAMELEN = 32
  5.  
  6. Type MIDIOUTCAPS
  7.         wMid As Integer
  8.         wPid As Integer
  9.         vDriverVersion As Long
  10.         szPname As String * MAXPNAMELEN
  11.         wTechnology As Integer
  12.         wVoices As Integer
  13.         wNotes As Integer
  14.         wChannelMask As Integer
  15.         dwSupport As Long
  16. End Type
  17.  
  18. 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
  19. Declare Function midiOutClose Lib "winmm.dll" (ByVal hMidiOut As Long) As Long
  20. Declare Function midiOutShortMsg Lib "winmm.dll" (ByVal hMidiOut As Long, ByVal dwMsg As Long) As Long
  21. Declare Function midiOutReset Lib "winmm.dll" (ByVal hMidiOut As Long) As Long
  22. Declare Function midiOutGetErrorText Lib "winmm.dll" Alias "midiOutGetErrorTextA" (ByVal err As Long, ByVal lpText As String, ByVal uSize As Long) As Long
  23. Declare Function midiOutGetDevCaps Lib "winmm.dll" Alias "midiOutGetDevCapsA" (ByVal uDeviceID As Long, lpCaps As MIDIOUTCAPS, ByVal uSize As Long) As Long
  24. Declare Function midiOutGetNumDevs Lib "winmm.dll" () As Long
  25.  
  26. Public hMidi As Long
  27.  
  28.