ivabus/roulette
1
0
Fork 0
mirror of https://github.com/ivabus/roulette synced 2024-11-10 02:25:20 +03:00
Code Issues Actions Packages Projects Releases Wiki Activity

Сортировка кода

Browse source
This commit is contained in:
Ivan Bushchik 2021-05-03 20:12:41 +03:00
parent 8593b8b328
commit 2d86a9ead2
1 changed files with 2 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
roulette/Program.vb
View file

@ -347,11 +347,10 @@ Module Program
Sub Main()
Console.BackgroundColor = ConsoleColor.Green
Console.ForegroundColor = ConsoleColor.DarkBlue
Randomize()
Console.Clear()
Console.ForegroundColor = ConsoleColor.DarkBlue
intro()
'Console.SetWindowSize(108,100)
Console.WriteLine("Игра Рулетка")
Console.WriteLine("1) Начать игру")
Console.WriteLine("2) Ознакомиться с правилами")
@ -359,20 +358,17 @@ Module Program
Console.Write(">>> ")
Dim input As Char = Console.ReadKey.KeyChar
Dim n As Integer = If(Int(input.ToString()) = 1 Or Int(input.ToString()) = 2 Or Int(input.ToString()) = 3, Int(input.ToString()), 0)
Dim history As New List(Of Integer)
Dim historyC As New List(Of Integer)
Select Case n
Case 0
Console.WriteLine()
Console.WriteLine("Неправильный ввод!")
sleep(5)
Main
Main()
Case 1
Console.Clear
game()
Main()
Case 2
Console.Clear
rules()
Main()
Case 3