Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt: Sound: Midi-Datei abspielen CLS Declare A$,B$ WindowTitle Testprogramm MIDI A$=@LOADFILE$(MIDI-DATEI,*.MID) WHILE (A$ <> ) A$ = OPEN q + A$ + q TYPE SEQUENCER ALIAS MIDI) B$ = @MCISend$(A$) If %MCIError Print Fehler: ;B$ EndIf B$ = @MCISend$(PLAY MIDI WAIT) WAITMOUSE B$ = @MCISend$(CLOSE MIDI) A$ = @LOADFILE$(MIDI-DATEI,*.MID) ENDWHILE FIN
Session-Cookies