From 2cb19f4dd09ab07893b331bf93728368ae0c3f00 Mon Sep 17 00:00:00 2001 From: EverythingWindows Date: Sun, 4 Dec 2022 18:46:53 +0700 Subject: little work on the next window manager --- .../External/MathQuiz/App_MathQuiz.vb | 22 +++++++++++++--------- 1 file changed, 13 insertions(+), 9 deletions(-) (limited to 'ShiftOS-TheRevival/TerminalApplications') diff --git a/ShiftOS-TheRevival/TerminalApplications/External/MathQuiz/App_MathQuiz.vb b/ShiftOS-TheRevival/TerminalApplications/External/MathQuiz/App_MathQuiz.vb index 58ab882..a0e8523 100644 --- a/ShiftOS-TheRevival/TerminalApplications/External/MathQuiz/App_MathQuiz.vb +++ b/ShiftOS-TheRevival/TerminalApplications/External/MathQuiz/App_MathQuiz.vb @@ -50,14 +50,18 @@ End Sub Public Sub MQ_CheckAnswer() - Dim TheAnswer As Integer = command - If TheAnswer = MQ_ShouldResult Then - NewLine("You got the right answer! You got " & MQ_ShouldResult & " Codepoint(s)") - ChangeCP(True, MQ_ShouldResult) - MQ_GiveQuestion() - Else - NewLine("You got the wrong answer! Try again") - MQ_GiveQuestion() - End If + Try + Dim TheAnswer As Integer = command + If TheAnswer = MQ_ShouldResult Then + NewLine("You got the right answer! You got " & MQ_ShouldResult & " Codepoint(s)") + ChangeCP(True, MQ_ShouldResult) + MQ_GiveQuestion() + Else + NewLine("You got the wrong answer! Try again") + MQ_GiveQuestion() + End If + Catch ex As Exception + NewLine("Invalid number or command") + End Try End Sub End Module -- cgit v1.2.3