QB64.org Forum

Active Forums => Programs => Topic started by: TempodiBasic on May 23, 2021, 03:24:12 pm

Title: Another sample of progressbar/Trackbar in ASCII, customizable
Post by: TempodiBasic on May 23, 2021, 03:24:12 pm

Hi guys
here I post a demonostration of ProgressBar customizable in ASCII output

Code: QB64: [Select]

1. Dim a As Integer
2. For a = 1 To 30
3.     MakeProgressionBar a, 1, 20, 10, 10, 3, 1, 20
4.     MakeProgressionBar a, 1, 40, 10, 15, 14, 1, 20
5.     MakeProgressionBar a, 1, 30, 10, 20, 1, 1, 50
6.     MakeProgressionBar a, -10, 30, 10, 24, 5, 1, 70
7.     _Delay .5
8. Next
9. End
10.  
11. 'MakeprogressionBar is a sub that makes as output a progression bar with colored the part showing the value num on the total L
12. ' num is the value to show
13. ' min and max are boundaries of the range in which num stands
14. ' x and y are the row and column where progressionbar is showed
15. ' cfill is the color of filled part
16. ' Nmin and NMax are the boundaries of the new range in which num must be showed
17. Sub MakeProgressionBar (num As Integer, min As Integer, max As Integer, x As Integer, y As Integer, cFill As Integer, nMin As Integer, nMax As Integer)
18.     Dim nVal As Integer, nRange As Integer
19.     nRange = (nMax - nMin) + 1
20.     nVal = CInt((nRange * num) / ((max - min) + 1))
21.     If nVal <= nRange Then
22.         Color 15, 0: Locate y, x: Print String$(nRange, "²");
23.         Color cFill, 0: Locate y, x: Print String$(nVal, "²");
24.     End If
25.     Color cFill, 0: Locate y, x - Len(LTrim$(Str$(num))): Print num;
26. End Sub
27.  

Thanks to try

Text Only | Text with Attachments