- Рубрики
- Исходники и проекты на Visual Basic .NET (17)
- Мои фотографии (8)
- Ляляка (3)
- Общие фотографии (5)
- Музыка и звук (100)
- Полезности на разную тематику (20)
- Полезные коды на Visual Basic .NET, VB .NET FAQ (240)
- Разное (11)
- Софт на Visual Basic .NET (43)
- Фотошоп и другие редакторы (5)
- Школьные задачи на VB. NET (20)
- Свежие записи
-
- Алимханов А. — Every Little Thing (Systems In Blue cover) Декабрь 7, 2018
- Алимханов А. — The Sweetest Surrender (Plazma Cover-Remix, HP Chorus) Октябрь 14, 2018
- Алимханов А. — Может Быть Октябрь 14, 2018
- Alimkhanov A. — Welcome To Russia Октябрь 14, 2018
- Алимханов А. — Eyes Of Delight Октябрь 14, 2018
- Алимханов А. — Только Два Слова Октябрь 14, 2018
- Алимханов А. & Systems In Blue — High In The Sky (80’s extended cover) Октябрь 14, 2018
- Hammers — Ты же Знаешь (cover Modern Talking) Октябрь 14, 2018
- Алимханов А. & Systems In Blue — Point Of No Return (Extended Cover) Октябрь 14, 2018
- Алимханов А. — В Объятиях Моих Октябрь 14, 2018
- Свежие комментарии
- Памирыч к записи Оффтопик
- EvgeniSilin к записи Оффтопик
- Памирыч к записи Дописать к картинке любые файлы
- Saxsan к записи Дописать к картинке любые файлы
- Yojik к записи Воспроизвести видео на PictureBox
- Памирыч к записи Генератор QR-кода — исходник
- ivjaz к записи Генератор QR-кода — исходник
- Памирыч к записи Оффтопик
- bombero к записи Оффтопик
- Памирыч к записи Оффтопик
-
-
-
Архив метки: прогрессбар в консоли
ProgressBar в консоли
Задача: изобразить симпатичный ProgressBar в консоли Решение:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 |
Sub Main() InstallProgress(12) For I As Integer = 1 To 100 DrawProgress(I, 12) System.Threading.Thread.Sleep(50) Next 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)) Next 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)) Next 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)) Next 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)) Next 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 |