Архив метки: прогрессбар в консоли

ProgressBar в консоли

Опубликовано Июль 6, 2016 автором Памирыч

Задача: изобразить симпатичный ProgressBar в консоли Решение:

Sub Main()

InstallProgress(12)

For I As Integer = 1 To 100

DrawProgress(I, 12)

System.Threading.Thread.Sleep(50)

Console.ReadLine()

End Sub

Sub InstallProgress(ByVal Start As Integer)

Console.ForegroundColor = ConsoleColor.White

Console.SetCursorPosition(Start, 20)

Console.Write(ChrW(9556))

For I As Integer = 1 To 50

Console.Write(ChrW(9552))

Console.Write(ChrW(9559))

Console.SetCursorPosition(Start, 21)

Console.Write(ChrW(9553))

Console.ForegroundColor = ConsoleColor.White

For I As Integer = 1 To 50

Console.Write(ChrW(9608))

Console.ForegroundColor = ConsoleColor.White

Console.Write(ChrW(9553))

Console.SetCursorPosition(Start, 22)

Console.Write(ChrW(9553))

Console.ForegroundColor = ConsoleColor.Gray

For I As Integer = 1 To 50

Console.Write(ChrW(9608))

Console.ForegroundColor = ConsoleColor.White

Console.Write(ChrW(9553))

Console.SetCursorPosition(Start, 23)

Console.Write(ChrW(9562))

For I As Integer = 1 To 50

Console.Write(ChrW(9552))

Console.Write(ChrW(9565))

End Sub

Sub DrawProgress(ByVal Perc As Integer, ByVal Start As Integer)

Console.SetCursorPosition(Start + (Perc - 1) \ 2 + 1, 21)

Console.ForegroundColor = ConsoleColor.Green

Console.Write(ChrW(9608))

Console.SetCursorPosition(Start + (Perc - 1) \ 2 + 1, 22)

Console.ForegroundColor = ConsoleColor.DarkGreen

Console.Write(ChrW(9608))

End Sub