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

CHANGES

Browse source
This commit is contained in:
Ivan Bushchik 2021-05-10 13:37:33 +03:00
parent 938a872bdc
commit 5a649d8583
1 changed files with 4 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
roulette/Program.vb
View file

@ -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