[ A Simple Calculator With Error Handling ]

				
'**************************************
' Name: [ A Simple Calculator With Error Handling ]
' Description:This is a simple calculator just includes an 'Over Flow' error handling system. It is also will commented!!!
' By: JamesJD
'
' Inputs:You will need, eight TextBoxes, four CommandButtons, and four Labels. You will just need to keep their default names.
'
' Returns:It will return the sum value entered along with any errors.
'
'This code is copyrighted and has' limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=47715&lngWId=1'for details.'**************************************

Sub Clear() 'This is a simple SubRoutine which clears all of the text boxes.
Text1.Text = "" 'This will make Text1's text appear to have nothing in.
Text2.Text = "" 'This will make Text2's text appear to have nothing in.
Text3.Text = "" 'This will make Text3's text appear to have nothing in.
Text4.Text = "" 'This will make Text4's text appear to have nothing in.
Text5.Text = "" 'This will make Text5's text appear to have nothing in.
Text6.Text = "" 'This will make Text6's text appear to have nothing in.
Text7.Text = "" 'This will make Text7's text appear to have nothing in.
Text8.Text = "" 'This will make Text8's text appear to have nothing in.
End Sub
Private Sub Command1_Click()
Dim Add As Integer 'This is the variable I will be using for the Add function and it is Integer because this can hold numbers from -32,768 to 32,767.
On Error GoTo AddError 'If there is an 'Over Flow' error then this will direct it to the add error solving which is below.
Add = Val(Text1.Text) + Val(Text2.Text) 'This tells the Add variable to add both Text1 and Text2 together.
Label1.Caption = "Result: " & Add 'This will add the text 'Result:' and the variables answer.
Call Clear 'This will run the SubRoutine found at the top of the coding.
Exit Sub
AddError: 'This will run if an error happens.
Call Clear 'This will run the SubRoutine found at the top of the coding.
If Err.Number = 6 Then 'This is an If Statement for an 'Over Flow' error.
Label1.Caption = "Too long!" 'This will add the text 'Too Long!' to Label1 if an 'Over Flow' error happens.
Else 'If there is a different error it will do the following.
Label1.Caption = "Error: " & Err.Description 'This will add the text 'Error:' along with the error description to Label1.
End If 'This will end the If Statement.
End Sub
Private Sub Command2_Click()
Dim Subtract As Integer 'This is the variable I will be using for the Subtract function and it is Integer because this can hold numbers from -32,768 to 32,767.
On Error GoTo SubtractError 'If there is an 'Over Flow' error then this will direct it to the add error solving which is below.
Subtract = Val(Text3.Text) - Val(Text4.Text) 'This tells the Subtract variable to subtract Text3 from Text4.
Label2.Caption = "Result: " & Subtract 'This will add the text 'Result:' and the variables answer.
Call Clear 'This will run the SubRoutine found at the top of the coding.
Exit Sub
SubtractError: 'This will run if an error happens.
Call Clear 'This will run the SubRoutine found at the top of the coding.
If Err.Number = 6 Then 'This is an If Statement for an 'Over Flow' error.
Label2.Caption = "Too long!" 'This will add the text 'Too Long!' to Label2 if an 'Over Flow' error happens.
Else 'If there is a different error it will do the following.
Label2.Caption = "Error: " & Err.Description 'This will add the text 'Error:' along with the error description to Label2.
End If 'This will end the If Statement.
End Sub
Private Sub Command3_Click()
Dim Multiply As Integer 'This is the variable I will be using for the Multiply function and it is Integer because this can hold numbers from -32,768 to 32,767.
On Error GoTo MultiplyError 'If there is an 'Over Flow' error then this will direct it to the add error solving which is below.
Multiply = Val(Text5.Text) * Val(Text6.Text) 'This tells the Multiply variable to Multiply Text5 and Text6 together.
Label3.Caption = "Result: " & Multiply 'This will add the text 'Result:' and the variables answer.
Call Clear 'This will run the SubRoutine found at the top of the coding.
Exit Sub
MultiplyError: 'This will run if an error happens.
Call Clear 'This will run the SubRoutine found at the top of the coding.
If Err.Number = 6 Then 'This is an If Statement for an 'Over Flow' error.
Label3.Caption = "Too Long!" 'This will add the text 'Too Long!' to Label3 if an 'Over Flow' error happens.
Else 'If there is a different error it will do the following.
Label3.Caption = "Error: " & Multiply 'This will add the text 'Error:' along with the error description to Label3.
End If 'This will end the If Statement.
End Sub
Private Sub Command4_Click()
Dim Divide As Double 'This is the variable I will be using for the Divide function and it is Double because get can hold positive and negitive numbers.
On Error GoTo DivideError 'If there is an 'Over Flow' error then this will direct it to the add error solving which is below.
Divide = Val(Text7.Text) / Val(Text8.Text) 'This tells the Divide variable to Divide Text8 from Text7.
Label4.Caption = "Result: " & Divide 'This will add the text 'Result:' and the variables answer.
Call Clear 'This will run the SubRoutine found at the top of the coding.
Exit Sub
DivideError: 'This will run if an error happens.
Call Clear 'This will run the SubRoutine found at the top of the coding.
If Err.Number = 6 Then 'This is an If Statement for an 'Over Flow' error.
Label4.Caption = "Too Long!" 'This will add the text 'Too Long!' to Label4 if an 'Over Flow' error happens.
Else 'If there is a different error it will do the following.
Label4.Caption = "Error: " & Err.Description 'This will add the text 'Error:' along with the error description to Label4.
End If 'This will end the If Statement.
End Sub