mirror of
https://github.com/ivabus/roulette
synced 2024-11-13 03:55:20 +03:00
Вынос меню в отдельную функцию, для избежания показа интро несколько раз
This commit is contained in:
parent
f588bc5dba
commit
b4d386b7ab
|
@ -435,6 +435,40 @@ Module Program
|
||||||
Dim sr As Double = mass.Sum() / Count
|
Dim sr As Double = mass.Sum() / Count
|
||||||
pogr = Math.abs((sr - 0.5) / 0.5) * 100
|
pogr = Math.abs((sr - 0.5) / 0.5) * 100
|
||||||
Console.WriteLine(strings(LANG,26) + pogr.ToString("0.#####") + "%")
|
Console.WriteLine(strings(LANG,26) + pogr.ToString("0.#####") + "%")
|
||||||
|
Console.ReadKey()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Sub Menu()
|
||||||
|
Console.Clear()
|
||||||
|
Console.WriteLine(strings(LANG, 27))
|
||||||
|
Console.WriteLine(strings(LANG, 28))
|
||||||
|
Console.WriteLine(strings(LANG, 29))
|
||||||
|
Console.WriteLine(strings(LANG, 30))
|
||||||
|
Console.WriteLine(strings(LANG, 31))
|
||||||
|
Console.WriteLine(strings(LANG, 32))
|
||||||
|
Console.WriteLine(strings(LANG, 33))
|
||||||
|
Console.Write(">>> ")
|
||||||
|
Dim input As Integer = Console.ReadLine
|
||||||
|
Select Case input
|
||||||
|
Case 0
|
||||||
|
Exit Sub
|
||||||
|
Case 1
|
||||||
|
Console.Clear()
|
||||||
|
Game()
|
||||||
|
Menu()
|
||||||
|
Case 2
|
||||||
|
Rules()
|
||||||
|
Menu()
|
||||||
|
Case 3
|
||||||
|
About()
|
||||||
|
Menu()
|
||||||
|
Case 4
|
||||||
|
TestGenerator()
|
||||||
|
Menu()
|
||||||
|
Case Else
|
||||||
|
Exit Sub
|
||||||
|
End Select
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Sub Main()
|
Sub Main()
|
||||||
|
@ -457,33 +491,7 @@ Module Program
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Intro()
|
Intro()
|
||||||
Console.WriteLine(strings(LANG, 27))
|
Menu()
|
||||||
Console.WriteLine(strings(LANG, 28))
|
|
||||||
Console.WriteLine(strings(LANG, 29))
|
|
||||||
Console.WriteLine(strings(LANG, 30))
|
|
||||||
Console.WriteLine(strings(LANG, 31))
|
|
||||||
Console.WriteLine(strings(LANG, 32))
|
|
||||||
Console.WriteLine(strings(LANG, 33))
|
|
||||||
Console.Write(">>> ")
|
|
||||||
Dim input As Integer = Console.ReadLine
|
|
||||||
Select Case input
|
|
||||||
Case 0
|
|
||||||
Exit Sub
|
|
||||||
Case 1
|
|
||||||
Console.Clear
|
|
||||||
Game()
|
|
||||||
Main()
|
|
||||||
Case 2
|
|
||||||
Rules()
|
|
||||||
Main()
|
|
||||||
Case 3
|
|
||||||
About()
|
|
||||||
Main()
|
|
||||||
Case 4
|
|
||||||
TestGenerator()
|
|
||||||
Case Else
|
|
||||||
Exit Sub
|
|
||||||
End Select
|
|
||||||
Catch
|
Catch
|
||||||
Console.WriteLine(strings(LANG, 34))
|
Console.WriteLine(strings(LANG, 34))
|
||||||
Exit Sub
|
Exit Sub
|
||||||
|
|
Loading…
Reference in a new issue