XProfan

ms.init
ms.close
ms.load(cadena fle)
ms.copy(long snd)
ms.play(long snd,bool _loop)
ms.stop(long snd)
ms.setvol(long snd,volume)
ms.setpan(long snd,pan)
ms.setfreq(long snd,frq)
ms.setpos(long snd,_pos)
ms.unload(long snd)
ms.setglobalvolume
ms.setglobalpan

 {$cleq}
 {$res noversioninfo,nomanifest,icon "test.ico"}
include multisound.inc
cls
casenot ms.init() : end
long snd1=ms.load("s1.wav")
long snd2=ms.load("s2.wav")
long snd3=ms.load("s3.wav")
imprimir "Taste para gleichzeitigen Abspielen de 3 Wav's!"
waitkey
ms.play(snd1,falso)
ms.play(snd2,falso)
ms.play(snd3,falso)
imprimir "Taste para Beenden!"
waitkey
ms.unload(snd1)
ms.unload(snd2)
ms.unload(snd3)
ms.close()
end

 {$cleq}
include multisound.inc
windowstyle 512
cls// <-- %hwnd needed b4 ms.init!

if (ms.init())

    imprimir bewege maus en x
    long sound1:=ms.load(s1.wav)
    ms.play(sound1,true)

    do {

        ms.setfreq(sound1,mousex*500)
        caso mousekey : romper

    }

    ms.unload(sound1)
    ms.close()

más

    messagebox Sound kann no initialisiert se.,Problema:,0

endif

end