XProfan

Français

Georg
Teles

Kleines Beispiel zum Abspielen de WAVe sur Winmm.dll, stoppen et aus dem grenier prendre (Eigencode, cela steht pas dans den gelben Seiten funktioniert mais xd)
Kompilieren Marque Séparation

 $H windows.ph
CLS
Declare Win&,play$,close$,Pla&,Cld&
Win& = UseDLL("Winmm.dll")
play$ = "PlaySound"
close$ = "CloseDriver"
Pla& = ~GetProcAddress(Win&,Addr(play$))
Cld& = ~GetProcAddress(Win&,Addr(close$))
Declare fs&,mus#
fs& = filesize("sound.wav")
Dim mus#,fs&
Assign #1,"sound.wav"
Openrw #1
Blockread(#1,mus#,0,fs&)
Close #1
Call(Pla&,mus#,0,(5+8))'5 = 1x abspielen, 5+8 = Endlos wiederholen
Print "spielt ab..."
Waitinput
Call(Pla&,0,0,0)'stoppt
Print "gestoppt..."
Waitinput
Call(Cld&,mus#,0,5)'schließt und nimmt aus Arbeitsspeicher
Print "geschlossen"
Waitinput
Dispose mus#
FreeDll Win&

ou bien vereinfacht classisch:
Kompilieren Marque Séparation

CLS
Def PlaySoundWinmm(3)!"Winmm","PlaySound"
Def CloseDriverWinmm(3)!"Winmm","CloseDriver"
Déclarer fs&,mus#
fs& = filesize("sound.wav")
Faible mus#,fs&
Assign #1,"sound.wav"
Openrw #1
Blockread(#1,mus#,0,fs&)
Fermer #1
PlaySoundWinmm(mus#,0,(5+8))'5 = 1x abspielen, 5+8 = Endlos wiederholen
Imprimer "spielt ab..."
Waitinput
PlaySoundWinmm(0,0,0)'stoppt
Imprimer "gestoppt..."
Waitinput
CloseDriverWinmm(mus#,0,5)'schließt et nimmt aus Arbeitsspeicher
Imprimer "geschlossen"
Waitinput
Dispose mus#