ivabus/roulette
1
0
Fork 0
mirror of https://github.com/ivabus/roulette synced 2024-11-22 16:35:09 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

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