Progressbar Vertical

[JRSmile]

Hi there, is it possible to make a progressbar show vertical, i want to make an cpu Usage history and i think it is possible with ca. 200 progressbars with vertical order in one line. or do you know another way?

I haven't found any parameters in the forum so far, but keep searching...

kind regards,

JR

[BigDod]

Hi there, is it possible to make a progressbar show vertical, i want to make an cpu Usage history and i think it is possible with ca. 200 progressbars with vertical order in one line. or do you know another way?

I haven't found any parameters in the forum so far, but keep searching...

kind regards,

JR

Look at style $PBS_VERTICAL

[JRSmile]

this is exactly what i want, thx, i saw it in another post but was a bit worried about the code around.

i see it is even in the manual .... sorry thread closed because of stupidness of the author

Edited December 31, 2005 by JRSmile

[BigDod]

this is exactly what i want, thx, i saw it in another post but was a bit worried about the code around.

When I want to know if something like that is possible I try it in Koda.

[JRSmile]

k thx, this is a nice tip.

EDIT: Koda has not the feature to remove the border of the prgress bar, is it possible?

what i want is a one pixelwide progressbar , i have made a little example here:

expandcollapse popup

#include <GuiConstants.au3>
#include <array.au3>
; GUI
GuiCreate("Progress History Sample GUI", 400, 200)
Dim $aList

$aList = _ProgHisInit(0,0,400,200,0x000000,0x00FF00)

; GUI MESSAGE LOOP
GuiSetState()
While GuiGetMsg() <> $GUI_EVENT_CLOSE
    $test = _ProgHisSet(Random(1,100,1),$aList)
         sleep(100)
Wend


; PROGRESS HISTORY INIT
func _ProgHisInit($x,$y,$width,$hight,$bgcolor = 0x000000,$color = 0x00FF00)
    $list = ""
    for $i = 1 to $width step 2
        $list &= "|" & GuiCtrlCreateProgress($x + $i, $y, 3, $hight,$PBS_VERTICAL + $PBS_SMOOTH)
        GUICtrlSetBkColor(-1,$bgcolor)
        GUICtrlSetColor(-1,$color)
    next
    $aList = StringSplit($list,"|")
    return $aList
EndFunc ;==>_ProgHisInit
´

;PROGRESS SET
func _ProgHisSet($val,$aList)
    Dim $List,$bList
    for $i = 1 to $aList[0]
        $List &= "|" & GUICtrlRead($aList[$i])
    Next
    $bList = StringSplit($List,"|")
    _ArrayPush($bList,$var)
    for $i = 1 to $aList[0]
        GUICtrlSetData($aList[$i],$bList[$i])
    Next
EndFunc ;==>_ProgHisSet

the script has a small error, it doesn't work

Because of some kind of reason it can't find my _ProgHisSet() function if i call it. already tested it to call it at different positions in the code and changed the name, would somebody be so kind and tell me where the error is.

Edited December 31, 2005 by JRSmile

[HardCopy]

I have commented the changes

It now sees your functions, not sure if the prog works as a whole though

only you can tell.

You had an odd char blocking the parser seeing the func

HTH HardCopy

expandcollapse popup

#include <GuiConstants.au3>
#include <array.au3>
; GUI
GuiCreate("Progress History Sample GUI", 400, 200)
Dim $aList

$aList = _ProgHisInit(0,0,400,200,0x000000,0x00FF00)

; GUI MESSAGE LOOP
GuiSetState()
While GuiGetMsg() <> $GUI_EVENT_CLOSE
    $test = _ProgHisSet(Random(1,100,1),$aList)
         sleep(100)
Wend


; PROGRESS HISTORY INIT
func _ProgHisInit($x,$y,$width,$hight,$bgcolor = 0x000000,$color = 0x00FF00)
    $list = ""
    for $i = 1 to $width step 2
        $list &= "|" & GuiCtrlCreateProgress($x + $i, $y, 3, $hight,$PBS_VERTICAL + $PBS_SMOOTH)
        GUICtrlSetBkColor(-1,$bgcolor)
        GUICtrlSetColor(-1,$color)
    next
    $aList = StringSplit($list,"|")
    return $aList
EndFunc;==>_ProgHisInit

;;; <--- you had an odd " ' " character here 

;PROGRESS SET
func _ProgHisSet($var,$aList);<---- changed $val to $var
    Dim $List,$bList
    for $i = 1 to $aList[0]
        $List &= "|" & GUICtrlRead($aList[$i])
    Next
    $bList = StringSplit($List,"|")
    _ArrayPush($bList,$var)
    for $i = 1 to $aList[0]
        GUICtrlSetData($aList[$i],$bList[$i])
    Next
EndFunc;==>_ProgHisSet

[JRSmile]

kind regards HardCopy