XProfan

Windowstyle 31
Windowtitle "Laustärkeregelung"
Window 0,0-640,440
DEF @waveOutSetVolume(2)!"winmm","waveOutSetVolume"
DEF @waveOutGetVolume(2)!"winmm","waveOutGetVolume"
Declare LautLinks&,LautRechts&,Volume#,LautLinks%,LautRechts%,SOUND$
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
DIM Volume#,4
@waveOutGetVolume(0,Volume#)
LET LautLinks%=@Word(Volume#,0)
LET LautRechts%=@Word(Volume#,2)
Dispose Volume#
LET LautLinks%=(Lautlinks%/$FFFF)*100
LET LautRechts%=(LautRechts%/$FFFF)*100
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
    DIM Volume#,4
    Word Volume#,0=LautLinks%
    Word Volume#,2=LautRechts%
    @waveOutSetVolume(0,Volume#)
    Dispose Volume#

Wend