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

Changing in names

Browse source
This commit is contained in:
Ivan Bushchik 2021-10-07 08:34:15 +03:00
parent a22b8500d8
commit a6da7cc3c5
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
roulette/Program.vb
View file

@ -290,10 +290,12 @@ Module Program
Console.Clear Console.Clear
history.Add(generated(0)) history.Add(generated(0))
Console.Write("Делайте ставки >>> ") Console.Write("Делайте ставки:
>>> ")
Dim stav As New List(Of String) Dim stav As New List(Of String)
stav = UCase(Console.ReadLine()).Split.ToList() stav = UCase(Console.ReadLine()).Split.ToList()
Console.Write("Укажите суммы ставок >>> ") Console.Write("Укажите суммы ставок:
>>> ")
Dim summ() As String Dim summ() As String
summ = Console.ReadLine().Split summ = Console.ReadLine().Split
For i = 0 To UBound(summ) For i = 0 To UBound(summ)
@ -353,7 +355,7 @@ Module Program
Console.WriteLine() Console.WriteLine()
Loop Loop
Console.WriteLine("У Вас кончились фишки, игра окончена.") Console.WriteLine("У Вас кончились фишки, игра окончена.")
Console.WriteLine("Нажмите любую кнопку, чтобы перезапустить игру.") Console.WriteLine("Нажмите любую кнопку, чтобы выйти в меню.")
Console.ReadKey() Console.ReadKey()
End Sub End Sub