Calculator

Public Function calcformula() a = INa.Text b = INb.Text c = INc.Text radican = (b * b) - 4 * (a * c) 'lets hope you computer knows oder of operations If radican < 0 Then 'the radican is less than 0 see summary radican = Abs(radican) 'get the absolute value of the radican I = True 'remember to inlcude the I in the final answer End If x1 = (-1 * b) + Sqrt(radican) 'radican should now be positive and not result in 0 x2 = (-1 * b) - Sqrt(radican) 'radican should now be positive and not result in 0 divisor_x1 = 2 * a divisor_x2 = 2 * a remainder = IEEERemainder(x1, divisor_x1) If remainder = 0 Then x1 = x1 / divisor_x1 End If remainder = IEEERemainder(x2, divisor_x2) If remainder = 0 Then x2 = x2 / divisor_x2 End If Return x1 And x2 And divisor_x1 And divisor_x2 End Function

Public Function calcformula() a = INa.Text b = INb.Text c = INc.Text discriminant = (b * b) - 4 * (a * c) 'lets hope you computer knows oder of operations If discriminant < 0 Then 'the discriminant is less than 0 -see summary discriminant = Abs(discriminant) 'get the absolute value of the discriminant I = True 'remember to inlcude the I in the final answer End If discriminant_remainder = Sqrt(discriminant) If discriminant_remainder = 0 Then x1 = (-1 * b) + Sqrt(discriminant) 'discriminant should now be positive and not result in 0 x2 = (-1 * b) - Sqrt(discriminant) 'discriminant should now be positive and not result in 0 divisor_x1 = 2 * a divisor_x2 = 2 * a remainder = IEEERemainder(x1, divisor_x1) ' have to check if the complex numbers are functioning correctly If remainder = 0 Then ' have to fully reduce numbers x1 = x1 / divisor_x1 ' if cannot solve for square root and NOT get decimal leave as √() with I if applicable divisor_x1 = divisor_x1 / divisor_x1 End If remainder = IEEERemainder(x2, divisor_x2) If remainder = 0 Then x2 = x2 / divisor_x2 divisor_x2 = divisor_x2 / divisor_x2 End If End If If discriminant_remainder <> 0 Then b = (-1 * b) Return b And discriminant ElseIf errorMsg = "" Then Return x1 And x2 And divisor_x1 And divisor_x2 Else Return errorMsg End If End Function '''<summary> ''' the discriminant check (Function check()) is meant to abort getting the square root of the discriminant ''' beause the discriminant is less than 0 meaning √(-discriminant) if you remember radicals ''' then you know that you cannot get the square root of a negative number ''' --this is not equaviliant to -√(radical) that is possible ''' so you need to drop the negative and include an i (i as imaginary number) in front ''' of the radical thus i√(discriminant) however Visual Basic does not account for that ''' and throws the error NaN (Not a Number) thus you will get 0/denominator ''' where denominator is the 2*A and 0 is x1 (ie if A=1 B=24 C=144 the end result would be -12/2 because (-1*b) is not inside the √()) ''' it is not -24/2 because below that we divide the numerator by the denominator (-24/2 = -12/2) '''</summary>

Public Function check() If Not I = True Then ' If Not I=True must be here first because if I is true than we changed the value to get the correct square root so the rest of the function would be corrupt If discriminant < 0 Then ' If the discriminant is less than zero then there should be 1 repeated real number check if that is true If x1 <> x2 Then errorMsg = "Something went wrong" 'if x1 does not equal x2 then something went wrong report it End If If discriminant > 0 Then ' If the discriminant is greater than zero then there should be 2 different real numbers check if that is true If x1 = x2 Then errorMsg = "Something went wrong" 'if x1 does equal x2 then something went wrong report it End If End If If I = True Then End If If errorMsg = "" Then Return 0 Else Return errorMsg End If End Function

Private Sub Bcalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bcalculate.Click If EquationToolStripMenuItem.Checked = True Then calcequation() ElseIf FormulaToolStripMenuItem.Checked = True Then calcformula() End If If I = True Then OUTx.Text = x1.ToString() + "/" + divisor_x1.ToString() + "i" + " " + x2.ToString() + "/" + divisor_x2.ToString() + "i" ElseIf errorMsg <> "" Then OUTx.Text = errorMsg ElseIf discriminant_remainder <> 0 Then OUTx.Text = b.ToString() + " +- " + "√(" + discriminant.ToString() + ")" Else OUTx.Text = x1.ToString() + "/" + divisor_x1.ToString() + " " + x2.ToString() + "/" + divisor_x2.ToString() End If End Sub