home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / p / ptv3n5.zip / VBMIDI.ZIP / MIDI.FRM (.txt) < prev    next >
Visual Basic Form  |  1992-10-08  |  3KB  |  121 lines
  1. Form1
  2. Form1
  3. Form1
  4. Text1
  5. Text1
  6. Label1
  7. Status
  8. Label2
  9. Channel
  10. Text2
  11. Text2
  12. Label3
  13. Data1
  14. Text3
  15. Text3
  16. Label4
  17. Data2
  18. Text4
  19. Text4
  20. Command2
  21. Command1
  22.     Send Data
  23. Form_Click&
  24.     Form_Load
  25. Midiopen
  26. hmidi
  27. midiOutOpen
  28. MIDIMAPPER
  29. lphMidiOut
  30.     PHMidiOut
  31.     uDeviceID
  32. dwCallback
  33. dwInstance
  34. dwFlags
  35. Longint
  36. remfunction
  37. MessageBox
  38. Form_Unload
  39. Cancelm
  40. midiOutClose
  41. hMidiOut
  42. Command1_Click
  43. midiOutMessage
  44. message
  45. statuse
  46. channel
  47. data1;
  48. data2
  49. Text1_Change
  50. text1
  51. Text2_Change
  52. channle(
  53. text2
  54. Text3_Change
  55. text3
  56. Text4_ChangeA
  57. text4K
  58. midiOutShortMsg
  59. Command1_KeyPress
  60. KeyAscii
  61. lmessage
  62. istatus
  63. ichannel
  64. idata1
  65. idata2
  66. MsgBix
  67. ldata2
  68. Label4_Click
  69. Command2_Click
  70. ErrCode
  71. Label3_Click
  72. Label2_Click
  73. Label1_Click
  74. Form_Load
  75.  Listing 2
  76.  Try to open the default MIDI device.
  77.  Quit w/error if unable to.D
  78. Error code "
  79. , 16, "Error!")
  80.  Send the patch change
  81.  for voice 25, the steel-e
  82.  string guitar in General MIDI.
  83.  Set default values in the text boxes.
  84.  This is the Note On message.x
  85.  This value isn't used for note on.e
  86.  Middle C.
  87.  Maximum volume.
  88. Form_Unload
  89.  Listing 3
  90.  Close the MIDI device. This must be
  91.  done; otherwise it can't be used untilt
  92.  Windows is restarted.
  93. Command1_Click
  94.  Listing 4
  95.  The 3 bytes of a MIDI message must be written to lmessage.
  96.  Send the message to the hmidi device handle.l
  97. Text1_Change
  98.  Listing 6
  99.  This is the status byte portion
  100.   ' of the MIDI message.
  101.  Convert the value in the text
  102.  box to an integer.i
  103. Text2_Change
  104.  Listing 7
  105.  This is the channel nybble of
  106.  the status byte.n
  107. Text3_Change
  108.  Listing 8
  109.  The first of 2 data bytes.e
  110.  Convert the value in the text
  111.  box to an integer.i
  112. Text4_Change
  113.  Listing 9
  114.  The second of 2 data bytes.
  115.  Convert the value in the text
  116.  box to an integer.i
  117. Command2_Click
  118.  Listing 5
  119.  Make sure you close the MIDI device handled
  120.  before quitting VB.
  121.