XProfan

Def GetSysColor(1) !"USER32","GetSysColor":Conjunto("TrueColor",1)
DECLARE ENDE%,PROGBAR&,plus&,minus&,fertig&,show&,volume&,target&,\
progstep!,TarStep!,handicap!,test$,BarBreite&
WINDOWSTYLE 528'en anderem Windowstyle Haga doble clic en abfangen
WINDOWTITLE "Stärke":WINDOW (%MAXX\2-135\2),(%MAXY\2-251\2) - 135,251
CLS GETSYSCOLOR(15):USEFONT "MS Sans Serif",13,0,0,0,0:SETDIALOGFONT 1:Conjunto("Decimals",2)
BarBreite&=18'25 '10
ProgBar& = control(\
"msctls_progress32","",$50800005,55-Barbreite&/3, 48,Barbreite&,60,%Hwnd,1,%HInstance)
' ^^^^ =vertikal, $50000001 = horizontal
minus& = Crear("Button",%HWND,"-",48,124,20,20)
plus& = Crear("Button",%HWND,"+",48,13,20,20)
show& = Crear("Edit",%Hwnd,"",40,160,40,20)
enablewindow show&,0
fertig& = Crear("Button",%HWND,"&Ende",1,194,40,25)
target& = 255'=100% Ziellautstärke
Progstep! = 5'=5% en oder de cada Clic
TarStep! = target& / 100 * Progstep!'Progressbar y Lautstärke angleichen
'Vorgabe, z.B. si uno bisherige Lautstärke de ini liest:
volume& = 125'Valor muss natürlich a el Prozentwert passen

IFnot (volume& > target&) or (volume& < 0)'Falls Ini a mano geändert wurde

    handicap! = 100 / target& * volume&'Vorgabe en Anzeige umrechnen

más

    handicap! = 100:volume& = target&

endif

sendmessage(ProgBar&,$402,handicap!,0)'en Vorgabe conjunto
settext show&,str$(volume&)

WHILENOT ENDE%

    WAITINPUT

    If %KEY = 2:ENDE% = 1

    ELSEIF GETFOCUS(plus&)

        sendmessage(ProgBar&,$403,progstep!,0)
        volume& = volume& + TarStep!
        caso (volume& = target&) or (volume& > target&) : volume& = target&
        settext show&,str$(volume&)

    ELSEIF GETFOCUS(minus&)

        test$ = str$(Tarstep!)
        test$ = right$(Instr(".",test$),2)
        sendmessage(ProgBar&, $403, -ProgStep!, 0)
        volume& = volume& - TarStep!
        Case (val(test$) > 0) : volume& = Volume& + 1'Corrección en Werten hinter el Komma
        caso (volume& <= 0) : volume& = 0
        settext show&,str$(volume&)

    ELSEIF GETFOCUS(fertig&):Ende% = 1

    ENDIF

EndWhile