From 2d86a9ead204d684c6250bff24395dd3c84b052b Mon Sep 17 00:00:00 2001 From: Ivan Bushchik Date: Mon, 3 May 2021 20:12:41 +0300 Subject: [PATCH] =?UTF-8?q?=D0=A1=D0=BE=D1=80=D1=82=D0=B8=D1=80=D0=BE?= =?UTF-8?q?=D0=B2=D0=BA=D0=B0=20=D0=BA=D0=BE=D0=B4=D0=B0?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- roulette/Program.vb | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/roulette/Program.vb b/roulette/Program.vb index 476fd6a..944ac8d 100644 --- a/roulette/Program.vb +++ b/roulette/Program.vb @@ -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