GuiCtrlCreateProgress

[ReaImDown]

I need help with making a progress bar, I want to install a couple different files using a GUI and would like the user to know which file is being installed, and how much progress has been made... EX.

the progress bar's info would be using (out of 100%)

$a = Filegetsize("a")

$b = Filegetsize("b")

$c = Filegetsize("c")

$d = Filegetsize("d")

$TotalSize = $a + $b + $c + $d

[ReaImDown]

plz help lol

sorry, please tell me if I was unclear.

[Swift]

sorry i cant help...i tried creating a progress bar before...didnt work out all i got was errors..or a blank one...i belive you have to

$prog = GUICreateProgress

then...

GuiSetData($1+$2+$3+$4, $prog)

im pretty sure that'll work...correct me if im wrong

[JustinReno]

No, that is wrong.

[ReaImDown]

No, that is wrong.

theres room for elaboration there

[JustinReno]

GuiSetData($1+$2+$3+$4, $prog)

GuiSetData isn't even a function. And if it was, the syntax is wrong in so many ways.

[Swift]

GUICtrlSetData?

[JustinReno]

That is a function.

[ReaImDown]

That is a function.

lol can ya help please?

[JustinReno]

GuiCtrlSetData($Progress, 25)

GuiCtrlSetData($Progress, 50)

GuiCtrlSetData($Progress, 75)

GuiCtrlSetData($Progress, 100)

[ReaImDown]

GuiCtrlSetData($Progress, 25)

GuiCtrlSetData($Progress, 50)

GuiCtrlSetData($Progress, 75)

GuiCtrlSetData($Progress, 100)

hmmm, that means I would have to update it after every file is uploaded, and it wouldn't run smooth

[JustinReno]

Its impossible for it to run smooth then.

[ReaImDown]

Its impossible for it to run smooth then.

wrong type of progress, and I dont know where I got this link from...but... here

http://www.autoitscript.com/forum/index.ph...st&id=11570

that one updates okay

Edited December 29, 2007 by ReaImDown

[ReaImDown]

any way of turning that coding into a progress bar?

[Emiel Wieldraaijer]

Use AdlibEnable to run a function in the background which updates the progressbar

Look at my first post in http://www.autoitscript.com/forum/index.php?showtopic=60232 for an example ..

[ReaImDown]

Use AdlibEnable to run a function in the background which updates the progressbar

Look at my first post in http://www.autoitscript.com/forum/index.php?showtopic=60232 for an example ..

thank you, thank you

heres a useless program I just made

CODE

#include <GUIConstants.au3>

$begin = TimerInit()

$a = 0

$b = 0

$c = 0

$x = 0

Global $Form1 = GUICreate("Form1", 633, 447, 193, 125)

Global $test = GUICtrlCreateProgress(128, 360, 329, 25)

Global $time = GUICtrlCreateLabel("",128, 280, 329,25)

GUICtrlSetColor(-1, 0x00FF00)

GUICtrlSetBkColor(-1, 0x000000)

Global $Label1 = GUICtrlCreateLabel("0%", 128, 320, 34, 17)

GUISetState(@SW_SHOW)

do

$x = $x +(Random(-50,50))

Sleep(100)

AdlibEnable("Mine",10)

until $x >= 1000

MsgBox(0, "Total Time", "The program took " & $totaltime & " to get to " & $percent & "%")

Func Mine()

$dif = TimerDiff($begin)

$d = Int($dif / 1000)

if $d = 60 Then

$begin = TimerInit()

$c = $c + 1

EndIf

if $c = 60 Then

$c = 0

$b = $b +1

EndIf

if $b = 24 Then

$b = 0

$a = $a +1

EndIf

Global $totaltime = $a & " Days, " & $b & " Hours, " & $c & " Minutes, " & $d & " Seconds."

GUICtrlSetData($time,$totaltime)

global $percent = Int( ($x * 100) / 1000 )

GUICtrlSetData($Label1, $percent & "%")

GUICtrlSetData($test,$percent)

EndFunc

Edited December 30, 2007 by ReaImDown

[ReaImDown]

hmmm, I need help figuring out $x

$x would be the % already copied to @DesktopDir & "\New Folder")

CODE

GUICreate("Tester", 400,400)

$P = GUICtrlCreateProgress(1,100,300,15)

AdlibEnable(Tracker,100)

global $f = FileGetSize("New Text document.txt")

FileCopy("New Text document.txt", @DesktopDir & "\New Folder")

Func Tracker()

global $percent = Int( ($x * 100) / $f )

GUICtrlSetData($P, $percent)

EndFunc

Edited December 30, 2007 by ReaImDown

[ReaImDown]

Bump

[MrCreatoR]

Hi,

Here is an example on Progress Simulation (can be used as template for copying files) ...

expandcollapse popup

#include <GuiConstants.au3>

$Gui = GuiCreate("Simulation Progress Demo", 350, 120)

$ProgressLabel = GUICtrlCreateLabel("Status: Press the button! ;)", 20, 30, 330)
$Progress = GUICtrlCreateProgress(20, 50, 300, 20)

$StartButton = GUICtrlCreateButton("Start Simulation Progress", (350/2)-(140/2), 80, 140)

GUISetState()

While 1
    $Msg = GUIGetMsg()
    Switch $Msg
        Case -3
            Exit
        Case $StartButton
            GUICtrlSetData($ProgressLabel, "Status: Please wait...")
            
            Dim $FilesArr[1000]
            For $i = 1 To UBound($FilesArr)-1
                $FilesArr[$i] = _GetRandomName(6) & ".test"
            Next
            
            Local $FilesCount = UBound($FilesArr)-1
            Local $CurrentFName, $ProgressSet = 0
            
            GUICtrlSetData($ProgressLabel, "Status: 0% Done...")
            GUICtrlSetData($StartButton, "Abort Simulation Progress")
            
            For $i = 1 To $FilesCount
                Sleep(40)
                $CurrentFName = $FilesArr[$i]
                $ProgressSet = Round(100 / ($FilesCount / $i))
                GUICtrlSetData($ProgressLabel, "Status: " & $ProgressSet & "% Done, [" & $CurrentFName & "]")
                GUICtrlSetData($Progress, $ProgressSet)
                If GUIGetMsg() = $StartButton Then ExitLoop
            Next
            
            GUICtrlSetData($Progress, 0)
            GUICtrlSetData($ProgressLabel, "Status: Finish!")
            GUICtrlSetData($StartButton, "Start Simulation Progress")
    EndSwitch
WEnd

Func _GetRandomName($Lenght=3)
    Local $RetName = ''
    For $i = 1 To $Lenght
        $RetName &= Chr(Random(97, 122, 1))
    Next
    Return $RetName
EndFunc