home *** CD-ROM | disk | FTP | other *** search
/ Logiciels PC 23 / LogicielsPC_23.iso / Educ / Moza / MIDI.BAS < prev    next >
BASIC Source File  |  1997-05-17  |  2KB  |  60 lines
  1.     rem this program plays a midi file
  2.     rem comments marcleon@ctv.es
  3.     rem try to do this in less than 50 lines in that other basic ;)
  4.  
  5.         nomainwin
  6.         UpperLeftX =  257 'Window horizontal position screen
  7.         UpperLeftY =  40 'Window vertical position on screen
  8.         WindowWidth = 285
  9.         WindowHeight = 130
  10.         statictext #t.s,"File playing",100,25,150,25
  11.         textbox #t.t,100,50,150,30
  12.         button #t.o," Open ",[opfil],UL,10,10
  13.         button #t.p," Play ",[plfil],UL,10,40
  14.         button #t.c," Stop ",[clfil],UL,10,70
  15.         open "MIDI file player" for graphics_nsb as #t
  16.         print #t,"trapclose [xit]"
  17.         open "mmsystem.dll" for dll as #mm
  18.  
  19.  
  20. [il]
  21.     input a$
  22.  
  23. [opfil]
  24.     filedialog "select midifile","*.mid",m$
  25.     if m$="" goto [xit]
  26.     if len(m$) >13 then mr$="..."+right$(m$,13) else mr$=m$
  27.     print #t.t,mr$
  28.     a$="open "+m$+" type sequencer alias fictoplay"
  29.     i1=0
  30.     i2=0
  31.     i3 =0
  32.     calldll #mm,"mciSendString",a$ as ptr,i1 as dword,i2 as short,_
  33.                 i3 as short, r as long
  34.     goto [il]
  35.  
  36. [plfil]
  37.     a$="play fictoplay"
  38.     i1=0
  39.     i2=0
  40.     i3 =0
  41.     calldll #mm,"mciSendString",a$ as ptr,i1 as dword,i2 as short,_
  42.                 i3 as short, r as long
  43.  
  44.     goto [il]
  45.  
  46. [clfil]
  47.     a$="close fictoplay"
  48.     i1=0
  49.     i2=0
  50.     i3 =0
  51.     calldll #mm,"mciSendString",a$ as ptr,i1 as dword,i2 as short,_
  52.                 i3 as short, r as long
  53.  
  54.     goto [il]
  55.  
  56. [xit]
  57.     close #t
  58.     close #mm
  59.     end
  60.