Question

我做了一个测试鞅策略的应用程序，但是我在运行时在我的应用程序中遇到了这个烦人的异常。

完整的测试应用程序代码：

模块模块1

Dim basebet, balance, rollunder, sleep As Integer
Dim increaseby As Decimal
Dim bet As Decimal

Dim confTarget As Integer

Sub Main()
    bootConf()
    Menu()
End Sub

Sub bootConf()

    basebet = 1          '1 Base Bet
    bet = 1              'Current Bet
    increaseby = 3       'Multiplier on loss
    balance = 50000      '100 Starting Balance
    rollunder = 4998     '1% House Edge
    sleep = 50           'Sleep between bets in MS

End Sub

Sub basebetConf(ByVal newVal As Integer)
    basebet = newVal
    Conf()
End Sub
Sub increasebyConf(ByVal newVal As Integer)
    increaseby = newVal
    Conf()
End Sub
Sub balanceConf(ByVal newVal As Integer)
    balance = newVal
    Conf()
End Sub
Sub rollunderConf(ByVal newVal As Integer)
    If newVal > 4999 Then
        Conf()
    ElseIf newVal < 1 Then
        Conf()
    Else
        rollunder = newVal
        Conf()
    End If
End Sub
Sub sleepConf(ByVal newVal As Integer)
    sleep = newVal
    Conf()
End Sub

Sub Conf()
    Console.Clear()
    Console.WriteLine("")
    Console.WriteLine("                                 Martingale Simulator")
    Console.WriteLine("                                 Developed by Art3mis")
    Console.WriteLine("")
    Console.WriteLine("                               CONFIGURATION")
    Console.WriteLine("                               ¯¯¯¯¯¯¯¯¯¯¯¯¯")
    Console.WriteLine("                               BASE BET            : " & basebet)
    Console.WriteLine("                               LOSE MULTIPLIER     : " & increaseby)
    Console.WriteLine("                               BASE BALANCE        : " & balance)
    Console.WriteLine("                               ROLLUNDER (0-5000)  : " & rollunder)
    Console.WriteLine("                               SLEEP (IN MILLISEC) : " & sleep)
    Console.WriteLine("")
    Console.WriteLine("                                 Select value to edit (1-5)")
    Console.WriteLine("                                 Press X to return.")
    Console.Write("                                     > ")
    Dim input As ConsoleKeyInfo = Console.ReadKey()
    If input.Key = ConsoleKey.D1 Then
        confTarget = 1
    ElseIf input.Key = ConsoleKey.D2 Then
        confTarget = 2
    ElseIf input.Key = ConsoleKey.D3 Then
        confTarget = 3
    ElseIf input.Key = ConsoleKey.D4 Then
        confTarget = 4
    ElseIf input.Key = ConsoleKey.D5 Then
        confTarget = 5
    ElseIf input.Key = ConsoleKey.X Then
        Menu()
    Else
        Conf()
    End If
    Console.WriteLine("")
    Console.WriteLine("")
    Console.WriteLine("                                 Enter new value")
    Console.WriteLine("                                 Press X to return.")
    Console.Write("                                     > ")
    Dim input2 As Integer = Console.ReadLine()
    If confTarget = 1 Then
        basebetConf(input2)
    ElseIf confTarget = 2 Then
        increasebyConf(input2)
    ElseIf confTarget = 3 Then
        balanceConf(input2)
    ElseIf confTarget = 4 Then
        rollunderConf(input2)
    ElseIf confTarget = 5 Then
        sleepConf(input2)
    End If
        'Console.Read()

End Sub

Sub Menu()
    Console.Clear()
    Console.WriteLine("")
    Console.WriteLine("                                 Martingale Simulator")
    Console.WriteLine("                                 Developed by Art3mis")
    Console.WriteLine("")
    Console.WriteLine("                              ╔═ MENU ═════════════════╗")
    Console.WriteLine("                              ╠═ 1 : START             ║")
    Console.WriteLine("                              ╠═ 2 : CONFIGURATION     ║")
    Console.WriteLine("                              ╠═ 3 : ABOUT & CREDITS   ║")
    Console.WriteLine("                              ╚════════════════════════╝")
    Console.Write("                              > ")
    Dim input As ConsoleKeyInfo = Console.ReadKey()
    If input.Key = ConsoleKey.D1 Then
        Console.Clear()
        Console.WriteLine("")
        Console.WriteLine("                                 Martingale Simulator")
        Console.WriteLine("                                 Developed by Art3mis")
        Console.WriteLine("")
        Roll()
    ElseIf input.Key = ConsoleKey.D2 Then
        Conf()
    ElseIf input.Key = ConsoleKey.D3 Then
        About()
    Else
        Menu()
    End If


End Sub

Sub Roll()
    Dim rn As New Random
    Dim roll As Integer
    roll = rn.Next(0, 10000)
    If roll > rollunder Then
        'Console.ForegroundColor = ConsoleColor.Red
            Console.WriteLine("LOSE - " & roll & " - Bet: " & bet)
        'Console.ResetColor()
            balance -= bet
            bet = bet * increaseby
            Console.Title = "Martingale Sim - Balance: " & balance
    Else
        'Console.ForegroundColor = ConsoleColor.Green
            Console.WriteLine("WIN  - " & roll & " - Bet: " & bet)
        'Console.ResetColor()
            balance += bet
            bet = basebet
            Console.Title = "Martingale Sim - Balance: " & balance
    End If
    Threading.Thread.Sleep(sleep)
    checkRoll()
End Sub

Sub checkRoll()
    If balance < 0 Then
        MsgBox("Ran out of balance.")
    Else
        Roll()
    End If

End Sub

Sub About()


End Sub
End Module

这里是应用程序失败的地方并抛出异常：

    If roll > rollunder Then
        'Console.ForegroundColor = ConsoleColor.Red
            Console.WriteLine("LOSE - " & roll & " - Bet: " & bet) *** HERE!
        'Console.ResetColor()
            balance -= bet
            bet = bet * increaseby
            Console.Title = "Martingale Sim - Balance: " & balance
    Else
        'Console.ForegroundColor = ConsoleColor.Green
            Console.WriteLine("WIN  - " & roll & " - Bet: " & bet) *** HERE!
        'Console.ResetColor()
            balance += bet
            bet = basebet
            Console.Title = "Martingale Sim - Balance: " & balance
    End If
    Threading.Thread.Sleep(sleep)
    checkRoll()

我知道发生这种情况是因为它处于无限循环中。在这种情况下我找不到任何可以帮助我的东西，所以我真的不知道该怎么做。

这是显示错误的屏幕截图：http://prntscr.com/aw7mqd

提前致谢！

A

Answer 1

要举例说明@Maximilian所指的内容，请将Roll和checkRoll方法更改为类似以下内容，以避免需要递归。

Sub Roll()
    Do
        ...
    Loop While checkRoll()
End Sub

Function checkRoll() As Boolean
    If balance < 0 Then
        MsgBox("Ran out of balance.")
        Return False
    End If
    Return True
End Function

在循环中获取StackOverflowException

1 个答案: