Simple Progress Bar?

Blitz3D Forums/Blitz3D Programming/Simple Progress Bar?

Guy Fawkes (Posted 2014) [#1]

Hi all! :) I was working on my program & got to the point where I needed a simple progress bar that allows me to select when it gets updated. Can you please tell me what I'm doing wrong in here so this works with B3D? Here's the code I have: ProgressBar.bb: ;Rem ; This is a really simple progress bar I made For my WIP game. ; I created And tested it in about 30 minutes. ; I hope someone finds it useful! ;End Rem Type SimpleProgressBar Field minValue, maxValue, currentValue ;these are shorts To make it a bit easier since they don;t support negatives... Field colorR, colorG, colorB ;background Color For the progress bar. Field x#, y#, w#, h# ;(x, y) coordinates For the bar, followed by width And height of it. Field txt$ = "" ;the txt$ To place in the middle of the filled bar. End Type ;****DEMO**** Graphics3D 800, 600, 0, 2 ;windowed Global cam = CreateCamera() CameraRange cam, 0.1, 10000.0 AmbientLight 255, 255, 255 Global sky = CreateCube() EntityColor sky, 102, 102, 255 ScaleEntity sky, 1000, 1000, 1000 EntityOrder sky, 1000 FlipMesh sky ;create two progress bars, one on the top, And one on the bottom. Global top = Create_Progressbar(200, 25, 400, 50, 0, 100, "0") ;this one is the Default green, And goes from 0 To 100. Global bottom = Create_Progressbar(200, 100, 400, 50, 0, 500, "0", 255, 0, 0) ;this one is red, And goes from 0 To 500. Global startTime = MilliSecs() ;used To help with the timing of the progress in the progress bars... While Not KeyHit(1) If MilliSecs() - startTime > 50 Then ;update every 50 milliseconds.. startTime = MilliSecs() For progbar.SimpleProgressBar = Each SimpleProgressBar If progbar\currentValue >= progbar\maxValue Then SetValue(progbar\minValue, Str$(progbar\minValue)) Else SetValue(progbar\currentValue + 1, Str$(progbar\currentValue + 1)) EndIf ;If progbar\currentValue >= bottom\maxValue Then ; SetValue(bottom\minValue, Str$(bottom\minValue)) ;Else ; SetValue(bottom\currentValue + 1, Str$(bottom\currentValue + 1)) ;EndIf Next EndIf UpdateWorld RenderWorld ;render the bars... Update_Progressbar() VWait 1 Flip 0 Delay 1 Wend End Function Create_Progressbar(x#, y#, w#, h#, minValue, maxValue, txt$="", colorR=0, colorG=255, colorB=0) progbar.SimpleProgressBar = New SimpleProgressBar progbar\x# = x progbar\y# = y progbar\w# = w progbar\h# = h progbar\txt$ = txt$ progbar\minValue = minValue progbar\currentValue = minValue ;the current value defaults To the minimum value... progbar\maxValue = maxValue progbar\colorR = colorR progbar\colorG = colorG progbar\colorB = colorB End Function ;method To set the values of the progress And the txt$ as well. Function SetValue(value, txt$ = "") For progbar.SimpleProgressBar = Each SimpleProgressBar ;only set the New value If it is in range. If value >= progbar\minValue And value <= progbar\maxValue Then progbar\currentValue = value ;set the txt$ If specified. If txt$ <> "" Then progbar\txt$ = txt$ Next End Function ;call this during the rendering part of the main loop. Function Update_Progressbar() ;get current Color Local tempR, tempG, tempB ;get opposite Color (used For non-filled background as well as overlayed txt$) Local oppositeColorR, oppositeColorG, oppositeColorB Color tempR, tempG, tempB For progbar.SimpleProgressBar = Each SimpleProgressBar If progbar\colorR > 64 Then oppositeColorR = 0 Else oppositeColorR = 255 EndIf If progbar\colorG > 64 Then oppositeColorG = 0 Else oppositeColorG = 255 EndIf If progbar\colorB > 64 Then oppositeColorB = 0 Else oppositeColorB = 255 EndIf ;non-filled background... Color oppositeColorR, oppositeColorG, oppositeColorB Rect progbar\x#, progbar\y#, progbar\w, progbar\h, 0 ;filled background... Color progbar\colorR, progbar\colorG, progbar\colorB ;finds And rounds the progress percent Local filledPercent = (progbar\currentValue - progbar\minValue) * 100 / (progbar\maxValue - progbar\minValue) ;finds And rounds the width of the filled part. Local filledWidth = filledPercent * w / 100 Rect progbar\x#, progbar\y#, filledWidth, h, 1 ;draw the filled part! ;overlayed txt$... If progbar\txt$ <> "" And StringWidth(progbar\txt$) < filledWidth Then ;only draw it If it can fit in the filled part. Color oppositeColorR, oppositeColorG, oppositeColorB Text progbar\txt$, progbar\x# + ((filledWidth / 2) - (StringWidth(progbar\txt$) / 2)), progbar\y#, progbar\txt$ ;draw the txt$ in the middle of the filled part (horizontally) EndIf Color tempR, tempG, tempB Next End Function Thank You so kindly! ~GF

LineOf7s (Posted 2014) [#2]

See if this code here (called Progress Bars) from the Code Archives by xmlspy helps.

Guy Fawkes (Posted 2014) [#3]

Wow. Of all the code snippets, I've NEVER run across this one on google OR the search... Thanks, LineOf7s! :) ~GF