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

Самый ненужный коммит

Browse source
This commit is contained in:
Ivan Bushchik 2021-05-04 08:39:19 +03:00
parent c610d8a7a1
commit 9e12a67b68
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

@ -16,7 +16,7 @@ Module Program
"# # # # # # # # # # # ", "# # # # # # # # # # # ",
"# # # # # # # # # # # ", "# # # # # # # # # # # ",
"# # ### ### ##### ##### # # ##### "} "# # ### ### ##### ##### # # ##### "}
Function GetIndex(mass() As Integer, obj As Integer) As Integer Function GetIndex(mass() As Integer, obj As Integer) As Integer 'Функция получает индекс объекта в массиве
For i = 0 To UBound(mass) For i = 0 To UBound(mass)
If mass(i) = obj Then Return i If mass(i) = obj Then Return i
Next Next
@ -26,7 +26,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) - 15, 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
@ -341,7 +341,7 @@ Module Program
Console.ForegroundColor = ConsoleColor.DarkBlue Console.ForegroundColor = ConsoleColor.DarkBlue
Console.WriteLine() Console.WriteLine()
Loop Loop
Console.WriteLine("У Вас кончились фишки, игра закончена.") Console.WriteLine("У Вас кончились фишки, игра окончена.")
Console.WriteLine("Нажмите любую кнопку, чтобы перезапустить игру.") Console.WriteLine("Нажмите любую кнопку, чтобы перезапустить игру.")
Console.ReadKey() Console.ReadKey()
End Sub End Sub