QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-04 21:10:23 +00:00
Code Releases Wiki Activity

Reduces console updates even more.

Browse source
This commit is contained in:
FellippeHeitor 2020-01-22 15:11:15 -03:00
parent bd7a6757d0
commit 814f5be495
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
source/qb64.bas
View file

@ -2724,9 +2724,10 @@ DO
'END IF
maxprogresswidth = 50 'arbitrary
percentage = INT(reallinenumber / totallinenumber * 100)
IF percentage <> prevpercentage THEN
percentagechars = INT(maxprogresswidth * reallinenumber / totallinenumber)
IF percentage <> prevpercentage AND percentagechars <> prevpercentagechars THEN
prevpercentage = percentage
percentagechars = INT(maxprogresswidth * reallinenumber / totallinenumber)
prevpercentagechars = percentagechars
IF ConsoleMode THEN
PRINT "[" + STRING$(percentagechars, ".") + SPACE$(maxprogresswidth - percentagechars) + "]" + STR$(percentage) + "%";
IF os$ = "LNX" THEN