From 5a649d8583ceb32132456a3f3834709e9bf4edd0 Mon Sep 17 00:00:00 2001 From: Ivan Bushchik Date: Mon, 10 May 2021 13:37:33 +0300 Subject: [PATCH] CHANGES --- roulette/Program.vb | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/roulette/Program.vb b/roulette/Program.vb index e6b90d5..14cbe32 100644 --- a/roulette/Program.vb +++ b/roulette/Program.vb @@ -259,8 +259,8 @@ Module Program Console.WriteLine("Игрок изначально получает 5000 фишек.") Console.WriteLine("После того, как игрок укажет, на что ставит, он указывает количество фишек на каждую ставку через пробел.") Console.WriteLine("Например:") - Console.WriteLine("На что ставите: 0 16 2L T12 RED ODD") - Console.WriteLine("Сколько ставите: 100 50 500 500 1000 1000") + Console.WriteLine("Делайте ставки >>> 0 16 2L T12 RED ODD") + Console.WriteLine("Укажите суммы ставок >>> 100 50 500 500 1000 1000") Console.WriteLine("ВНИМАНИЕ! Количество ставок должно совпадать с количеством фишек, которые ставите, в примере 6 = 6.") Console.WriteLine("Или просто нажмите ENTER, чтобы пропустить ставку.") Console.WriteLine("Удачи!") @@ -290,13 +290,11 @@ Module Program Console.Clear history.Add(generated(0)) - Console.Write("Делайте ставки ") + Console.Write("Делайте ставки >>> ") Dim stav As New List(Of String) - Console.Write(">>> ") stav = UCase(Console.ReadLine()).Split.ToList() - Console.Write("Укажите суммы ставок ") + Console.Write("Укажите суммы ставок >>> ") Dim summ() As String - Console.Write(">>> ") summ = Console.ReadLine().Split For i = 0 To UBound(summ) If not IsNumeric(summ(i)) Then