XProfan

English

Volume Change
Compile Mark Separation

Def WaveOutSetVolume(2) !WINMM,waveOutSetVolume
waveoutsetvolume(0,0) Stumm:
waveoutsetvolume(0,$FFFFFFFF) 100% Lautst-
waveoutsetvolume(0,$0000FFFF) Links stumm, rechts Laut<

pre>

salvo, iF

03/18/05 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Have too yet what found - can unfortunately in the moment not testing...
It's all right here around the WAV-LAutstärke. functions only, if the driver The Lautstärkeregelung too supported...
Compile Mark Separation

Windowstyle 31
Windowtitle WAV-Laustärkeregelung
Window 0,0-640,440
DEF @waveOutSetVolume(2)!winmm,waveOutSetVolume
DEF @waveOutGetVolume(2)!winmm,waveOutGetVolume
Def @HiWord(1) Div&(&(1),$10000)
Def @LoWord(1) And(&(1),$FFFF)
Def @MakeLong(2)Or(&(1),Mul(&(2),$10000))
Def @GetLeftChannel(1) Div&(LoWord(&(1)),$028F)
Def @GetRightChannel(1) Div&(HiWord(&(1)),$028F)
Declare LautLinks&,LautRechts&,Volume#,LautLinks%,LautRechts%,SOUND$,Volume&
Let LautLinks&=@Create(VScroll,%HWND,,20,10,20,300)
Let LautRechts&=@Create(VScroll,%HWND,,200,10,20,300)
SetScrollRange LautLinks&,0,100
SetScrollRange LautLinks&,0,100
@waveOutGetVolume(-1,@Addr(Volume&))
LET LautLinks%=@GetLeftChannel(Volume&)
LET LautRechts%=@GetLeftChannel(Volume&)
SetScrollPos LautLinks&,LautLinks%
SetScrollPos LautRechts&,LautRechts%
LET SOUND$=@LoadFile$(Sounddatei laden,*.WAV)
Playsound Sound$,9

While 0=0

    Waitinput
    LET LautLinks%=(@GetScrollPos(LautLinks&)/100)*$FFFF
    LET LautRechts%=(@GetScrollPos(LautRechts&)/100)*$FFFF
    @waveOutSetVolume(-1,@MakeLong(@Mul(LautLinks%,$028F),@Mul(LautRechts%,$028F)))

Wend