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

fixing tui

Browse source
This commit is contained in:
Ivan Bushchik 2021-05-07 14:03:24 +03:00
parent 13632679ad
commit 938a872bdc
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
roulette/Program.vb
View file

@ -28,7 +28,7 @@ Module Program
Sub displayHistory(history() As Integer) Sub displayHistory(history() As Integer)
Console.ForegroundColor = ConsoleColor.DarkBlue Console.ForegroundColor = ConsoleColor.DarkBlue
Console.Write("История выпадений (последние 15): ") Console.Write("История выпадений (последние 15): ")
For i = If(Ubound(history) > 14, Ubound(history) - 15, 0) To UBound(history) For i = If(Ubound(history) > 14, Ubound(history) - 14, 0) To UBound(history)
Console.ForegroundColor = colors(ring(1,getindex(ringRank0, history(i)))) Console.ForegroundColor = colors(ring(1,getindex(ringRank0, history(i))))
Console.Write(history(i) & " ") Console.Write(history(i) & " ")
Next Next
@ -293,7 +293,7 @@ Module Program
Console.Write("Делайте ставки ") Console.Write("Делайте ставки ")
Dim stav As New List(Of String) Dim stav As New List(Of String)
Console.Write(">>> ") Console.Write(">>> ")
stav = Console.ReadLine().Split.ToList() stav = UCase(Console.ReadLine()).Split.ToList()
Console.Write("Укажите суммы ставок ") Console.Write("Укажите суммы ставок ")
Dim summ() As String Dim summ() As String
Console.Write(">>> ") Console.Write(">>> ")
@ -345,7 +345,7 @@ Module Program
fish -= summs(i) fish -= summs(i)
Next Next
Console.WriteLine() Console.WriteLine()
Console.WriteLine("Выпало: ") Console.Write("Выпало: ")
For i = 0 To UBound(generated) For i = 0 To UBound(generated)
Console.Write(generated(i) & " ") Console.Write(generated(i) & " ")
Next Next