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

Code refactoring

Browse source
This commit is contained in:
Ivan Bushchik 2021-10-07 10:53:46 +03:00
parent dc53434f57
commit 6c7d5b9982
1 changed files with 5 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
roulette/Program.vb
View file

@ -270,7 +270,6 @@ Module Program
Sub game() Sub game()
Console.WriteLine("Игра началась!") Console.WriteLine("Игра началась!")
Dim fish As Long = 5000 Dim fish As Long = 5000
Dim isGaming As Boolean = True
Dim history As New List(Of Integer) Dim history As New List(Of Integer)
Do while fish > 0 Do while fish > 0
@ -281,7 +280,7 @@ Module Program
If temp = "n" or temp = "N" Then If temp = "n" or temp = "N" Then
Exit Sub Exit Sub
Else IF temp = "" or temp = "y" or temp = "Y" Else IF temp = "" or temp = "y" or temp = "Y"
isGaming = True Continue
Else Else
Console.WriteLine("Неверный ввод, продолжаем игру.") Console.WriteLine("Неверный ввод, продолжаем игру.")
End If End If
@ -290,12 +289,12 @@ Module Program
Console.Clear Console.Clear
history.Add(generated(0)) history.Add(generated(0))
Console.Write("Делайте ставки: Console.WriteLine("Делайте ставки:")
>>> ") 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.WriteLine("Укажите суммы ставок:")
>>> ") 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)