Added ProgressBar()

TyberiousG · Apr 28, 2022 · a214323 · a214323
1 parent ddc510a
commit a214323
Show file tree

Hide file tree

Showing 6 changed files with 16 additions and 0 deletions.
diff --git a/.vs/SimpleConsoleControls/v17/.suo b/.vs/SimpleConsoleControls/v17/.suo
diff --git a/Controls.vb b/Controls.vb
@@ -64,6 +64,22 @@
         Console.SetWindowSize(columns, rows)
         Console.SetBufferSize(columns + 2, rows + 2)
     End Sub
+
+    Public Sub ProgressBar(ByVal X As Integer, ByVal Y As Integer, ByVal Width As Integer, ByVal Val As Integer, ByVal Optional BColor As ConsoleColor = ConsoleColor.Black, ByVal Optional FColor As ConsoleColor = ConsoleColor.White)
+        Console.SetCursorPosition(X, Y)
+        Console.Write("0% ")
+        For i = 1 To Width
+            Console.Write("▒")
+        Next
+        Console.Write(" 100%")
+        Dim OneBlock As Integer = 100 / Width
+        Dim DoneBlocks As Integer = (OneBlock * Val) / Width
+        Console.SetCursorPosition(X + 3, Y)
+        For d = 1 To DoneBlocks
+            Console.Write("█")
+        Next
+    End Sub
+
     Public Sub DrawRectangle(ByVal X As Integer, ByVal Y As Integer, ByVal Width As Integer, ByVal Height As Integer, ByVal Optional BColor As ConsoleColor = ConsoleColor.Black, ByVal Optional FColor As ConsoleColor = ConsoleColor.White)
         Dim CurrentFG = Console.ForegroundColor
         Dim CurrentBG = Console.BackgroundColor

diff --git a/bin/Debug/SimpleConsoleControls.dll b/bin/Debug/SimpleConsoleControls.dll
diff --git a/bin/Debug/SimpleConsoleControls.pdb b/bin/Debug/SimpleConsoleControls.pdb
diff --git a/obj/Debug/SimpleConsoleControls.dll b/obj/Debug/SimpleConsoleControls.dll
diff --git a/obj/Debug/SimpleConsoleControls.pdb b/obj/Debug/SimpleConsoleControls.pdb