_createprogressbar , New Variation Again Xd

[Busti]

So, this i my newest creation , and i hope you like it !!!

post some critik pls

i got the idea from another post with a script like this but i though the other 1 got too much code smt.

---------------> NEW CODE DOWN

hope yaaaaaaaaaaa like it

PS: the math for the % is not 100% right yet, could need some help pls ;/

example.au3

pbar.au3

Edited May 12, 2006 by Busti

[Valuater]

the exe file was truely un-clear ( garbled ) i could make out the number and the %, however the painting of the labels was ... not good

Win Xp Home, SP2

8)

Edited May 3, 2006 by Valuater

[GaryFrost]

sometimes i do put a little much into it

http://www.autoitscript.com/forum/index.ph...indpost&p=93177

[slightly_abnormal]

please add an option to pause/unpause with the button.. i've seatched and searched but cant find out how, i think it gave me brain damage from all that searching.

[Busti]

sometimes i do put a little much into it

http://www.autoitscript.com/forum/index.ph...indpost&p=93177

that was my idea to create another, shorter one.

slighty i first wanna fix the math error

@valuator what do you mean with :

the exe file was truely un-clear ( garbled )

=====?=======

and it would benice if you could help me with the math func

Edited May 4, 2006 by Busti

[RazerM]

hmmm the bar is just black?

Edit: works now, sorry

Edited May 4, 2006 by RazerM

[Busti]

only 4 you ????????? can you show me screen ? (u need to click start)^^-

[RazerM]

yes i know. i edited my post. it works fine now. BTW this is done really well. It is better without random colours

[Busti]

well as i said, simply remove 1 line, not even! some chars

but the math func ((

he starts like this

| 1x,2x,3x,4x,5x,6x,7x,8x,9x,100| .............. | (max)

1x,2x,3x,4x,5x,6x,7x,8x,9x,100, then he starts from there

| <<| 1x,2x,3x,4x,5x,6x,7x,8x,9x,100 | max

PS: thanx

Edited May 4, 2006 by Busti

[RazerM]

yes i set it to red. I know how to change it.

[Valuater]

@valuator what do you mean with :

the exe file was truely un-clear ( garbled )

=====?=======

... a .avi file

Looks better on this video than on my screen

8)

[Busti]

i made thatt !!!! see the source, i made a disco version of it, simple change this :

_UpdateProcessBar($Bar,$i,Hex(Random(0,99999999,1),6)); no randomize color? remove the think behind $i

to this :

_UpdateProcessBar($Bar,$i)

then it works without color change

could ya help with math func pls

Edited May 5, 2006 by Busti

[Busti]

*push* - pls need help with math :/

[Valuater]

to work on the math, i would think it needs to actually "do" something..

like divide a file size of a file you are going to copy... or some other form of work that can be mathamatically figured out

8)

[Busti]

ig ot it now i fixxed it, and now it works like the one of gafrost, and the code is 50% shorter !! and it doesnt use as much arrays as his^^

i hope you like the new version,

pbar.au3

udf :

expandcollapse popup

;#include <GuiConstants.au3>
#include-once
#include <GuiConstants.au3>
;Dont remove this line !
Global $Bar
; _CreateProcessBar()
; - Creates a ProcessBar with Color !
;   -  Input :
;       $Process     - Starts with?
;       $x , $y      - Positions  of the Progress
;       $wight,$heigh- Size of the bar
;       $color       - Color of the Bar (% got a different 1)
;       $style       - 2 selfmade styles xD, choose from 1 or 2 both look cool^^
;   - Return Values :
;       $aVaR[0]      - returns the current proces number (1-100)
;       $aVaR[1]      - x pos
;       $aVaR[2]      - y pos
;       $aVaR[3]      - containes the mainbarID
;       $aVaR[4]      - containes the wight
;       $aVaR[5]      - containes the height
;       $aVaR[6]      - returns the backround label^^
;   - Contact :
;       email : Busti_ownz@yahoo.de
;       icq : 269-424-176
;
; - Function by Busti (c)
Func _CreateProcessBar($Process = 1, $x = 30, $y = 30, $widht = 100, $height = 20, $color = 0xFFFFF,$style=1)
    Local $FirstStart, $sZMaxLabel
    Dim $aVaR[7]
    If $Process <= 1 Then $FirstStart = 1
    If $Process > 100 Then Return 0
    If $FirstStart <> 0 Then
        If $style = 1 Then
            $sZMaxLabel = GUICtrlCreateLabel("", $x - 1, $y - 1, $widht, $height + 2,$SS_SUNKEN+$SS_CENTER)
        ElseIf $style = 2 Then
            $sZMaxLabel = GUICtrlCreateLabel("", $x - 1, $y - 1, $widht, $height + 2,$SS_CENTER)
        Else
            $sZMaxLabel = GUICtrlCreateLabel("", $x - 1, $y - 1, $widht, $height + 2,$SS_SUNKEN+$SS_CENTER)
        EndIf
        GUICtrlSetBkColor($sZMaxLabel, 0x00000)
        GUICtrlSetColor($sZMaxLabel, Dec($color)*2)
    Else
        GUICtrlSetData($sZMaxLabel, $Process)
    EndIf
    $MainBar = GUICtrlCreateLabel("", $x, $y, $widht - 1, $height,$SS_CENTER)
    GUICtrlSetBkColor($MainBar, $color)
    GUICtrlSetColor($MainBar, Dec(Random((($color)*2)+100*100,(($color)*2)*2,1)))
    $aVaR[0] = $Process - 1
    $aVaR[1] = $x
    $aVaR[2] = $y
    $aVaR[3] = $MainBar
    $aVaR[4] = $widht - 1
    $aVaR[5] = $height
    $aVaR[6] = $sZMaxLabel
    Return $aVaR
EndFunc;==>_CreateProcess
; _UpdateProcessBar()
; - Updates a ProcessBar and its possible to change color of it^^ !
;   -  Input :
;       $Bar    - The ID of the bar youve createt^^
;       $update - incrase current amount + ((( 12 + 50 = 62 )))
;       $color  - bg color! (text color changes automaticle)
;   - Return Values :
;       none
;   - Contact :
;       email : Busti_ownz@yahoo.de
;       icq : 269-424-176
;
; - Function by Busti (c)
; - Special ThanX to :
; - Jaenster for : $Bar[4]/100*$update
; wich is not 100% correct but enough for now^^
Func _UpdateProcessBar(ByRef $Bar,$update,$color=-1)
    $nupdate = $update
    $update += ($Bar[4] / 100 * $update)

    If $update >= $Bar[4] Then
        GUICtrlSetData( $Bar[3] , "100 %" )
        Return 0
    EndIf
    If IsArray($Bar) = 1 Then
        GUICtrlSetPos($Bar[3], $Bar[2], $Bar[1], $update, $Bar[5])
        If $color = -1 Then
        Else
            GUICtrlSetBkColor($Bar[3],$color)
            GUICtrlSetColor($Bar[3],Dec(Random((($color)*2)+100*100,(($color)*2)*2,1)))
        EndIf       
        GUICtrlSetData( $Bar[3] , $nupdate & " %" )
EndIf
    If $update <= $Bar[4] Then 
        Return 0
    Else
        Return 1
    EndIf
EndFunc;==>_UpdateProcess

; _DeleteProcessBar()
; - Deletes a ProcessBar !
;   -  Input :
;       $Bar    - The ID of the bar you wanna kill!
;   - Return Values :
;       Succes = 1
;       Failure = 0
;   - Contact :
;       email : Busti_ownz@yahoo.de
;       icq : 269-424-176
;
; - Function by Busti (c)
Func _DeleteProcessBar($Bar)
    If IsArray($Bar) = 1 Then
        GUICtrlDelete($Bar[3])
        GUICtrlDelete($Bar[6])
        Return 1
    EndIf
    Return 0
EndFunc;==>_DeleteProcessBar

example.au3

expandcollapse popup

#include <guiconstants.au3>
#include <pbar.au3>
#cs
    Example to :
    _CreateProcessBar()
    _UpdateProcessBar()
    _DeleteProcessBar()
    (C) By Busti
    thx to :
    Jaenster , for the math func;)
#ce
If Not IsDeclared('Dark_Green') Then Dim $Dark_Green = 0x006400
If Not IsDeclared('Red') Then Dim $Red = 0xff0000
If Not IsDeclared('Yellow') Then Dim $Yellow = 0xffff00
Dim $lastprocess=1,$up=0
GUICreate("_CreateProcess()", 392, 111, -1, -1, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))
;$Progress_1 = GuiCtrlCreateProgress(30, 30, 320, 20)
$Button_2 = GUICtrlCreateButton("start", 30, 60, 80, 30)
GUISetState()
While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            _DeleteProcessBar($Bar)
            ExitLoop
        Case $msg = $Button_2
            If Not IsArray($Bar) Then
                _DeleteProcessBar($Bar)
                $Bar = _CreateProcessBar(0,30,30,320,20,0x123456,2)
            EndIf
            For $i = 0 To 100 Step 1
                Sleep(100)
                $up = _UpdateProcessBar($Bar,$i)
                If $i = 100 Then ExitLoop
            Next
    EndSelect
WEnd