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

Rules FINALLY done

Browse source
This commit is contained in:
ivabus 2021-03-22 14:08:35 +03:00
parent 43d5d5cf65
commit 434d421e4f
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Ruletka/Program.vb
View file

@ -149,7 +149,9 @@ Module Program
Console.WriteLine("Например:") Console.WriteLine("Например:")
Console.WriteLine("На что ставите: 0 16 2L T12 RED ODD") Console.WriteLine("На что ставите: 0 16 2L T12 RED ODD")
Console.WriteLine("Сколько ставите: 100 50 500 500 1000 1000") Console.WriteLine("Сколько ставите: 100 50 500 500 1000 1000")
Console.WriteLine("ВНИМАНИЕ! Количество ставок должно совпадать с количеством фишек, которые ставите, в примере 6 = 6.")
Console.WriteLine("Удачи!") Console.WriteLine("Удачи!")
Console.ReadKey()
End Sub End Sub
Sub game() Sub game()
@ -167,6 +169,8 @@ Module Program
Console.WriteLine("2) Ознакомиться с правилами") Console.WriteLine("2) Ознакомиться с правилами")
Console.WriteLine("3) Выйти из игры") Console.WriteLine("3) Выйти из игры")
Dim n As Integer = Console.ReadLine Dim n As Integer = Console.ReadLine
Dim history As New List(Of Integer)
Dim historyC As New List(Of Integer)
Select Case n Select Case n
Case 1 Case 1
game() game()