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

lol

Browse source
This commit is contained in:
Ivan Bushchik 2022-01-06 14:43:36 +03:00
parent 3e3e21b512
commit f7e490d791
4 changed files with 8 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

BIN
.DS_Store vendored
View file

Binary file not shown.

7
Dockerfile
View file

@ -1,7 +0,0 @@
FROM mcr.microsoft.com/dotnet/sdk:5.0
RUN git clone https://github.com/BushchikIvan/roulette
WORKDIR roulette/roulette
ENTRYPOINT ["dotnet", "run"]

BIN
roulette/.DS_Store vendored Normal file
View file

Binary file not shown.

13
roulette/Program.vb
View file

@ -1,18 +1,19 @@
Module Program Module Program
'https://github.com/BushchikIvan/roulette 'https://github.com/ivabus/roulette
'https://ivabus.github.io/roulette
Dim ReadOnly _ Dim ReadOnly _
Ring(,) As Integer = Ring(,) As Integer =
{{0, 32, 15, 19, 4, 21, 2, 25, 17, 34, 6, 27, 13, 36, 11, 30, 8, 23, 10, 5, 24, 16, 33, 1, 20, 14, 31, 9, 22, 18, 29, {{0, 32, 15, 19, 4, 21, 2, 25, 17, 34, 6, 27, 13, 36, 11, 30, 8, 23, 10, 5, 24, 16, 33, 1, 20, 14, 31, 9, 22, 18, 29,
7, 28, 12, 35, 3, 26}, 7, 28, 12, 35, 3, 26},
{0, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2}} {0, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2}}
'Второе измерение массива Ring необходимо для распределения цвета с помощью массива Colors по номерам 0 - белый, 1 - красный, 2 - чёрный
Dim ReadOnly Colors() As ConsoleColor = {ConsoleColor.White, ConsoleColor.Red, ConsoleColor.Black} Dim ReadOnly Colors() As ConsoleColor = {ConsoleColor.White, ConsoleColor.Red, ConsoleColor.Black}
Dim ReadOnly _ Dim ReadOnly _
RingRank0() As Integer = RingRank0() As Integer = {0, 32, 15, 19, 4, 21, 2, 25, 17, 34, 6, 27, 13, 36, 11, 30, 8, 23, 10, 5, 24, 16, 33, 1, 20, 14, 31, 9, 22, 18, 29,
{0, 32, 15, 19, 4, 21, 2, 25, 17, 34, 6, 27, 13, 36, 11, 30, 8, 23, 10, 5, 24, 16, 33, 1, 20, 14, 31, 9, 22, 18, 29,
7, 28, 12, 35, 3, 26} 7, 28, 12, 35, 3, 26}
'ringRank0 нужен, чтобы было удобно подавать массив в поиск индекса 'ringRank0 нужен, чтобы было удобно подавать массив в поиск индекса
@ -35,7 +36,7 @@ Module Program
Return - 1 Return - 1
End Function End Function
Sub DisplayHistory(history() As Integer) Sub DisplayHistory(history() As Integer) 'Эта функция не реализована в Game(), потому что это захламляло бы код
Console.ForegroundColor = ConsoleColor.DarkBlue Console.ForegroundColor = ConsoleColor.DarkBlue
Console.Write("История выпадений (последние 15): ") Console.Write("История выпадений (последние 15): ")
For i = If(Ubound(history) > 14, Ubound(history) - 14, 0) To UBound(history) For i = If(Ubound(history) > 14, Ubound(history) - 14, 0) To UBound(history)
@ -45,7 +46,7 @@ Module Program
Console.ForegroundColor = ConsoleColor.DarkBlue Console.ForegroundColor = ConsoleColor.DarkBlue
End Sub End Sub
Function RemoveAt (Of T)(arr As T(), index As Integer) As T() Function RemoveAt (Of T)(arr As T(), index As Integer) As T() 'Скопировано с StackOverflow
Dim uBound = arr.GetUpperBound(0) Dim uBound = arr.GetUpperBound(0)
Dim lBound = arr.GetLowerBound(0) Dim lBound = arr.GetLowerBound(0)
Dim arrLen = uBound - lBound Dim arrLen = uBound - lBound
@ -55,7 +56,7 @@ Module Program
Return outArr Return outArr
End Function End Function
Sub Sleep(d As Single) Sub Sleep(d As Single) 'Название говорит о предназначении функции
Dim t As Single = Timer Dim t As Single = Timer
Do while Timer - t < d Do while Timer - t < d
Loop Loop