ivabus/roulette
1
0
Fork 0
mirror of https://github.com/ivabus/roulette synced 2024-09-20 08:30:50 +03:00
Code Issues Actions Packages Projects Releases Wiki Activity

Cleaning up

Browse source
This commit is contained in:
Ivan Bushchik 2021-04-24 21:51:48 +03:00
parent 6700b4e06d
commit 06a5002f0c
1 changed files with 6 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
Ruletka/Program.vb
View file

@ -30,12 +30,10 @@ Module Program
If index < lBound OrElse index > uBound Then If index < lBound OrElse index > uBound Then
Throw New ArgumentOutOfRangeException( _ Throw New ArgumentOutOfRangeException( _
String.Format("Index must be from {0} to {1}.", lBound, uBound)) String.Format("Index must be from {0} to {1}.", lBound, uBound))
Else Else
Dim outArr(arrLen - 1) As T Dim outArr(arrLen - 1) As T
Array.Copy(arr, 0, outArr, 0, index) Array.Copy(arr, 0, outArr, 0, index)
Array.Copy(arr, index + 1, outArr, index, uBound - index) Array.Copy(arr, index + 1, outArr, index, uBound - index)
Return outArr Return outArr
End If End If
End Function End Function
@ -231,11 +229,6 @@ Module Program
Dim fish As Long = 5000 Dim fish As Long = 5000
Dim isGaming As Boolean = True Dim isGaming As Boolean = True
Do while fish > 0 Do while fish > 0
Console.WriteLine("У Вас {0} фишек.", fish) Console.WriteLine("У Вас {0} фишек.", fish)
Console.WriteLine("Продолжить игру? (Y/n)") Console.WriteLine("Продолжить игру? (Y/n)")
Dim temp As String = Console.ReadLine() Dim temp As String = Console.ReadLine()
@ -247,7 +240,6 @@ Module Program
Console.WriteLine("Неверный ввод, продолжаем игру.") Console.WriteLine("Неверный ввод, продолжаем игру.")
End If End If
Dim generated() As String = spinWheel() Dim generated() As String = spinWheel()
Console.Clear Console.Clear
Console.Write("Делайте ставки: ") Console.Write("Делайте ставки: ")
@ -256,6 +248,12 @@ Module Program
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)
If not IsNumeric(summ(i)) Then
Console.WriteLine("Ставки не корректны. Пропуск.")
Continue Do
End If
Next
Dim summs As New List(Of Integer) Dim summs As New List(Of Integer)
For i = 0 To UBound(summ) For i = 0 To UBound(summ)
summs.add(Int(summ(i))) summs.add(Int(summ(i)))