Play a midi music file (BCX basic)

By vegaseat on Mar 17th, 2005 9:17 am

I look at BCX-basic as a modernized qbasic. This simple code creates a Windows GUI program that plays a midi instrumental music file. To keep it simple, the file it looks for is "TheRose.mid" file. If you don't have this file, you have the option of editing the code, or simply to rename a midi file you have and stick it in the working folder.

' uses the mci-library to play a midi file (.mid)
' the mci-libary winmm.lib is in PellesC\lib\win
' needs BCX basic, download the free package from:
' http://www.rjpcomputing.com/programming/bcx/devsuite.html

$LIBRARY <winmm.lib>

' this generates WinMain() and sets the Classname
GUI "MIDI3"

CONST ID_Button1 = 101

DIM Form1 AS HWND
DIM Butt1 AS CONTROL
DIM MciCommand$

' required to create the form and it's components
SUB FORMLOAD
  Form1 = BCX_FORM("Play a Midi ...",30,20,140,40 )
  Butt1 = BCX_BUTTON("Play",Form1,ID_Button1,10,10,30,12)
  DECLARE FUNCTION MCI_Execute LIB "winmm.dll" ALIAS "mciExecute" (A$)
  Show(Form1)
END SUB

' code between BEGIN EVENTS/END EVENTS takes care of the event messages
BEGIN EVENTS
SELECT CASE CBMSG
  CASE WM_CREATE
    EXIT FUNCTION
  CASE WM_COMMAND
    IF CBCTL = ID_Button1 THEN
      '
      ' this plays TheRose.mid or change to whatever you have ...
      '
      MciCommand$ = "play TheRose.mid"
      MCI_Execute (MciCommand$)
      EXIT FUNCTION
    END IF
  ' clean up and exit properly
  CASE WM_CLOSE
    mciSendString ("close all",0,0,0)
    DestroyWindow (Form1)
    EXIT FUNCTION
END SELECT
END EVENTS

5 Years Ago

This emachione did not come with qbasic...can you reco a site to download a copy freee? check out
www.tiptopwebsite.com/brainwaves
billzilla:cool:

billzilla

Newbie Poster

20 posts since Jun 2006

Reputation Points: 10

Solved Threads: 0

This article has been dead for over three months

You