From c610d8a7a1622c0f97f0febfd6bf2f0d87d1cf23 Mon Sep 17 00:00:00 2001 From: Ivan Bushchik Date: Mon, 3 May 2021 21:10:55 +0300 Subject: [PATCH] Ending renaming --- .DS_Store | Bin 0 -> 6148 bytes Ruletka.sln => roulette.sln | 2 +- roulette/Program.vb | 1 + 3 files changed, 2 insertions(+), 1 deletion(-) create mode 100644 .DS_Store rename Ruletka.sln => roulette.sln (82%) diff --git a/.DS_Store b/.DS_Store new file mode 100644 index 0000000000000000000000000000000000000000..67b3ea47a09e619eea254fd0a0f4b666071da029 GIT binary patch literal 6148 zcmeHK%Wl&^6upy%cAN^41rpsL&4yi6r70@vqLN9IMI=B7BUk`xZER5s*Hgs~5riP` z`2zR}zJo8|bKuM)RgIxbgkWxT=iIrE8Tm{+;~^q8oW(mtT_WO8g)I-wFGR(aHl$@e z>p-T*ct8P-Cz*U1WsPj-_!}8eYqvr7XhMfHrVHyQBSh5S;tO>9yB1hP9z8^P!yOaiPZvOn`Hbdq>@^#bR)0uP1f~`^%nK><{`qaeH@fx%BvrTRR7nfv z;uvrYI0i0fz-~=^^YSzobqqKL{zC@T{ve+0`R{&reZY{9YN296{7JZAA zK|~M$3UHdHPh{? z^MCyN`+vR2^&A6^fq#kt)*c0;As)$|t&N9MXRUx9LzSq!%HVkk41E+MR~^M$P%ZEa XWdMDPl|gtQ?n6M+;2OukA7$VN4dRCs literal 0 HcmV?d00001 diff --git a/Ruletka.sln b/roulette.sln similarity index 82% rename from Ruletka.sln rename to roulette.sln index e169eae..810c653 100644 --- a/Ruletka.sln +++ b/roulette.sln @@ -1,6 +1,6 @@  Microsoft Visual Studio Solution File, Format Version 12.00 -Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Ruletka", "Ruletka\Ruletka.vbproj", "{584852C1-EB9C-46A2-976A-0C311192ACFE}" +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "roulette", "roulette\roulette.vbproj", "{584852C1-EB9C-46A2-976A-0C311192ACFE}" EndProject Global GlobalSection(SolutionConfigurationPlatforms) = preSolution diff --git a/roulette/Program.vb b/roulette/Program.vb index 944ac8d..8401210 100644 --- a/roulette/Program.vb +++ b/roulette/Program.vb @@ -5,6 +5,7 @@ Module Program {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}} Dim colors() As ConsoleColor = {ConsoleColor.White, ConsoleColor.Red, ConsoleColor.Black} Dim 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, 7, 28, 12, 35, 3, 26} + 'ringRank0 нужен, чтобы было удобно подавать массив в поиск индекса Dim intr() As String = { "#### ### # # # ##### ##### ##### #####", "# # # # # # # # # # # ",