PlaySoundOnce, PlaySoundLooped, StopSound

Sorry english Embarassed

i get no sound in Release 0.9.19 dated June 17, 2010

but here are an simple work around.

DJ

Download: PlayWave.zip

Code:: ' step1: set filename
' e.g. SoundFile$ = "mywave.wav"
' step2: get pointer of the filename
' e.g. gosub GetpChar
' step3: play it once or looped
' e.g. gosub PlaySoundOnce
' or gosub PlaySoundLooped
' repeat step3 (or for an other sound start with step1)
'
' NOTE:
' you can stop a playing sound with: gosub SoundStop

label GetpChar,PlaySoundOnce,PlaySoundLooped,StopSound

dim ret%,pChar%,flags%
dim SoundFile$

' step1
SoundFile$="Loop01.wav"
' step2
gosub GetpChar
' step3
gosub PlaySoundLooped ' or PlaySoundOnce

end

GetpChar:
if file_exists(SoundFile$)=0 then return
dll_on "kernel32.dll"
pChar% = adr(SoundFile$)
ret%=DLL_CALL3("RtlMoveMemory",adr(pChar%),pChar%,4)
dll_off: return

PlaySoundOnce:
if pChar%=0 then return
dll_on "winmm.dll": flags%=131072 + 16 + 1
ret%=DLL_CALL2("sndPlaySoundA",pChar%,flags%):return

PlaySoundLooped:
if pChar%=0 then return
dll_on "winmm.dll": flags%=131072 + 16 + 8 + 1
ret%=DLL_CALL2("sndPlaySoundA",pChar%,flags%):return

StopSound:
dll_on "winmm.dll": flags%=0
ret%=DLL_CALL2("sndPlaySoundA",flags%,flags%):return

You can try this :

Code:: sound 1
file_load 1,"PlayWave\Loop01.wav"
play 1

But you can't play it twice... why ? I don't know....

Hello Nardo,
my version of Panoramic (Release 0.9.19 dated June 17, 2010)
has a bug and can't play movies or sounds.

What is your version of Panoramic ?

DJ

here are the error message:
PlaySoundOnce, PlaySoundLooped, StopSound Playwave

PlaySoundOnce, PlaySoundLooped, StopSound Playwave

Hello D.J,

Try this new beta version of Panoramic :

https://panoramic.1fr1.net/ce-qui-est-en-cours-f4/version-instantanee-du-30-juillet-2010-t1014.htm

Thank you Norda
with version V0.9.202i i get sound with play PLAY N command.

DJ

I don't know why but

sound 1
file_load 1,"PlayWave\Loop01.wav"
play 1
wait 2000
play 1

the file wav is played one time....