Shane Partridge
Visual Basic 2013
Random Mathematics
1. Right Click on Graphics Image : Then Press Save Image as to Folder
2. Copy Coding onto Forms VB for Program Execution.
3. In VB Design Mode : Drag Picture Box from Tool Box.
4. Set Picture Box Size Mode to Stretch Image.
5. Download Graphic Image below from allocated Folder.
In Private Sub Button_4 if only 1 Form is being used.
Terminate Form49.Show()
Me.Hide()
Then add End ' To Terminate Program.
Follow and Insert the TextBox, LabelBox and Button Controls from ToolBox
and allocate them on the Graphics.
The Program select a Random Limit Value for Arithmetic Calculus.
The Program uses the [Case, SelectCase] Criteria for Arithmetic Selection of
Mathematical Operators [+, -, x, /].
The Program correlates the No. of Correct & Incorrect Arguments that are Calculated
by the Answer that is entered in TextBox3.
Button1 initiates the Random Calculus.
Label1 - Displays the Random Argumentation and the Allocated Mathematical Operator
to be used for the computational Sum.
Button2 tests the entries that are entered in TextBox3.
Note - After each Test Press Button3 to Clear Variables
Then press Button1 to initiate next set of Random Arguments for Calculus
Public Class Form55
Dim Random, Entry1, Entry2, EntryVal, CaseSelect, Answer As Integer
Dim Correct, Incorrect, Cycle As Integer
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Form49.Show()
Me.Hide()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Random = TextBox1.Text
Entry1 = (Random * Rnd() + 1)
Entry2 = (Random * Rnd() + 1)
CaseSelect = TextBox2.Text
Select Case CaseSelect 'Select Case : CaseSelect Variable
Case Is = 1 'Case Select = 1
EntryVal = (Entry1 + Entry2)
Label1.Text = Entry1 & " + " & Entry2
Case Is = 2 'Case Select = 2
EntryVal = (Entry1 - Entry2)
Label1.Text = Entry1 & " - " & Entry2
Case Is = 3 'Case Select = 3
EntryVal = (Entry1 * Entry2)
Label1.Text = Entry1 & " x " & Entry2
Case Is = 4 'Case Select = 4
EntryVal = (Entry1 / Entry2)
Label1.Text = Entry1 & " / " & Entry2
Case Else
Label1.Text = " Enter No. 1 to 4 "
End Select
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Cycle = (Cycle + 1) : Label2.Text = Cycle
Answer = TextBox3.Text
If Answer = EntryVal Then
Correct = (Correct + 1) : Label3.Text = Correct
Else : Incorrect = (Incorrect + 1) : Label4.Text = Incorrect
End If
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
TextBox3.Text = ""
Label1.Text = ""
End Sub
End Class