XProfan

Def GetSysColor(1) !"User32","GetSysColor":Set("TrueColor",1)
DECLARE ENDE%,PROGBAR&,plus&,minus&,fertig&,show&,volume&,target&,\
progstep!,TarStep!,handicap!,test$,BarBreite&
WINDOWSTYLE 528'chez anderem Windowstyle Double-cliquez sur intercepter
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:Set("Décimal",2)
BarBreite&=18'25 '10
ProgBar& = control(\
"msctls_progress32",»,$50800005,55-Barbreite&/3, 48,Barbreite&,60,%Hwnd,1,%HInstance)
' ^^^^ =vertikal, $50000001 = horizontal
minus& = Créer("Button",%HWND,"-",48,124,20,20)
plus& = Créer("Button",%HWND,"+",48,13,20,20)
show& = Créer("Edit",%Hwnd,»,40,160,40,20)
enablewindow show&,0
fertig& = Créer("Button",%HWND,"&Ende",1,194,40,25)
target& = 255'=100% Ziellautstärke
Progstep! = 5'=5% sur ou bien ab chez chaque Klick
TarStep! = target& / 100 * Progstep!'Progressbar et Lautstärke angleichen
'Vorgabe, z.B. si on bisherige Lautstärke aus ini liest:
volume& = 125'Wert muss naturellement trop dem Prozentwert passen

IFnot (volume& > target&) or (volume& < 0)'si Ini de main geändert wurde

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

d'autre

    handicap! = 100:volume& = target&

endif

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

WHILENOT ENDE%

    WAITINPUT

    Si %KEY = 2:ENDE% = 1

    ELSEIF GETFOCUS(plus&)

        sendmessage(ProgBar&,$403,progstep!,0)
        volume& = volume& + TarStep!
        cas (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!
        Cas (val(test$) > 0) : volume& = Volume& + 1'Correction chez Werten derrière dem Komma
        cas (volume& <= 0) : volume& = 0
        settext show&,str$(volume&)

    ELSEIF GETFOCUS(fertig&):Ende% = 1

    ENDIF

Endwhile