mirror of
https://github.com/ivabus/roulette
synced 2024-11-10 02:25:20 +03:00
Change site
This commit is contained in:
parent
4a13113578
commit
ad8c259bc1
|
@ -2,7 +2,7 @@
|
||||||
|
|
||||||
Module Program
|
Module Program
|
||||||
'https://github.com/ivabus/roulette
|
'https://github.com/ivabus/roulette
|
||||||
'https://ivabus.github.io/roulette
|
'https://ivabus.dev/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,
|
||||||
|
@ -54,7 +54,7 @@ Module Program
|
||||||
"# # # # # # # # # # # ",
|
"# # # # # # # # # # # ",
|
||||||
"# # ### ### ##### ##### # # ##### "}
|
"# # ### ### ##### ##### # # ##### "}
|
||||||
|
|
||||||
Function GetIndex(mass() As Integer, obj As Integer) As Integer 'Функция получает индекс объекта в массиве
|
Private 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
|
||||||
|
|
Loading…
Reference in a new issue