mirror of
https://github.com/EverythingWindows/ShiftOS-TheRevival-Old.git
synced 2025-01-23 18:22:17 +00:00
59 lines
2 KiB
VB.net
59 lines
2 KiB
VB.net
|
Module App_MathQuiz
|
|||
|
|
Public MQ_1stNum As Integer
|
|||
|
|
Public MQ_2ndNum As Integer
|
|||
|
|
Public MQ_Operation As String
|
|||
|
|
Public MQ_ShouldResult As Integer
|
|||
|
|
Public OperationChooser As Integer
|
|||
|
|
|
|||
|
|
Public Sub MQ_Start()
|
|||
|
|
Console.DefaultPrompt = "> "
|
|||
|
|
ResetLine("MathQuiz for ShiftOS")
|
|||
|
|
NewLine("Answer basic arithmatical question and you'll get codepoints based on the answer")
|
|||
|
|
NewLine(Nothing)
|
|||
|
|
MQ_GiveQuestion()
|
|||
|
|
Console.CurrentInterpreter = "mathquiz"
|
|||
|
|
Console.ShouldChange = True
|
|||
|
|
Console_Interpreters()
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Public Sub MQ_GiveQuestion()
|
|||
|
|
Dim RandomNum As New Random
|
|||
|
|
MQ_1stNum = RandomNum.Next(1, 10)
|
|||
|
|
MQ_2ndNum = RandomNum.Next(1, 10)
|
|||
|
|
OperationChooser = RandomNum.Next(1, 5)
|
|||
|
|
Select Case OperationChooser
|
|||
|
|
Case 1
|
|||
|
|
MQ_Operation = " + "
|
|||
|
|
MQ_ShouldResult = MQ_1stNum + MQ_2ndNum
|
|||
|
|
Case 2
|
|||
|
|
While MQ_2ndNum > MQ_1stNum
|
|||
|
|
MQ_2ndNum = RandomNum.Next(1, 10)
|
|||
|
|
End While
|
|||
|
|
MQ_Operation = " - "
|
|||
|
|
MQ_ShouldResult = MQ_1stNum - MQ_2ndNum
|
|||
|
|
Case 3
|
|||
|
|
MQ_Operation = " * "
|
|||
|
|
MQ_ShouldResult = MQ_1stNum * MQ_2ndNum
|
|||
|
|
Case 4
|
|||
|
|
MQ_Operation = " / "
|
|||
|
|
MQ_ShouldResult = MQ_1stNum / MQ_2ndNum
|
|||
|
|
Case Else
|
|||
|
|
MQ_Operation = " + "
|
|||
|
|
MQ_ShouldResult = MQ_1stNum + MQ_2ndNum
|
|||
|
|
End Select
|
|||
|
|
NewLine("What is " & MQ_1stNum & MQ_Operation & MQ_2ndNum & " ?")
|
|||
|
|
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
|
|||
|
|
End Sub
|
|||
|
|
End Module
|