Converting Decimal to Fraction

[Semajthewise]

Hi guys, I'm new to VB and I am having trouble reverse engineering some code i got from VB.net

I Want to add 2 fractions together and give an answer in a textbox when the solve button is pressed.

I am getting the whole #'s but not fractions when I click the button.

Here's how the form is set up.

4 boxes are on the form the user imputs the numerator and denominator of 2 fractions to be added.

Clicks on the solve button then the answer is to be displayed into a 5th box.

I will show both my code and the original.

I am using VB.net Framework 2003 on XP system

My code

' Converts the two fractions entered into decimals and adds them 
    ' Then converts the Decimal answer  back into a fraction
 
 
 
    Private Sub AddFract_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddFract.Click
 
 
        Dim AddFractSolve As Long
        Dim LargestDenominator As Long
        Dim GCD As Long
        Dim TopNumber As Long
        Dim Remainder As Long
        Dim WholeNumber As Long
        Dim Numerator As Long
        Dim Denominator As Long
        Dim DecimalNumber As Long
 
        AddFractSolve = (Val(AddNum1.Text) / Val(AddDen1.Text)) + (Val(AddNum2.Text) / Val(AddDen2.Text))
 
        If IsNumeric(AddFractSolve) Then
 
            AddFractSolve = CDbl(AddFractSolve)
            WholeNumber = Fix(AddFractSolve)
            Denominator = LargestDenominator
            Numerator = Format(Denominator * _
             Math.Abs(DecimalNumber - WholeNumber), "0")
 
            If Numerator Then
 
                GCD = LargestDenominator
                TopNumber = Numerator
 
                Do
 
                    Remainder = (GCD Mod TopNumber)
                    GCD = TopNumber
                    TopNumber = Remainder
 
                Loop Until Remainder = 0
 
                Numerator = Numerator \ GCD
                Denominator = Denominator \ GCD
                AddFractAns1.Text = "" & (WholeNumber) & _
                                        "and" & _
                                       (Numerator) & "/" & _
                                       (Denominator)
 
            Else
 
                AddFractAns1.Text = (WholeNumber)
 
            End If
 
        Else
 
 
        End If
 
 
 
    End Sub
 

original code

Function MakeFraction(ByVal DecimalNumber As Variant, _
                      Optional ByVal LargestDenominator As Long = 64, _
                      Optional bShowDash As Boolean = False) As String
 
   Dim GCD As Long
   Dim TopNumber As Long
   Dim Remainder As Long
   Dim WholeNumber As Long
   Dim Numerator As Long
   Dim Denominator As Long
 
   If IsNumeric(DecimalNumber) Then
 
      DecimalNumber = CDbl(DecimalNumber)
      WholeNumber = Fix(DecimalNumber)
      Denominator = LargestDenominator
      Numerator = Format(Denominator * _
                           Abs(DecimalNumber - WholeNumber), "0")
 
      If Numerator Then
 
         GCD = LargestDenominator
         TopNumber = Numerator
 
         Do
 
            Remainder = (GCD Mod TopNumber)
            GCD = TopNumber
            TopNumber = Remainder
 
         Loop Until Remainder = 0
 
         Numerator = Numerator \ GCD
         Denominator = Denominator \ GCD
 
         MakeFraction = CStr(WholeNumber) & _
                        IIf(bShowDash, "-", "  ") & _
                        CStr(Numerator) & "/" & _
                        CStr(Denominator)
      Else
 
        MakeFraction = CStr(WholeNumber)
 
      End If
 
   Else
 
     'Input wasn't a number, handle error here
 
   End If
 
End Function
 

Any help would be greatly appreciated

Thank you'
Semajthewise

[Shashi Sadasivan]

Hi,
have you tried had a look at this

[Semajthewise]

Hi,
have you tried had a look at this

I looked at it thank you.
I got the code I was writing to work but there was some rounding problems with it
So I went back to the drawing board and wrote this

  ' setting up my variables
        Dim num1add As Double = AddNum1.Text
        Dim num2add As Double = AddNum2.Text
        Dim den1add As Double = AddDen1.Text
        Dim den2add As Double = AddDen2.Text
        Dim numansadd As Double
        Dim denansadd As Double
        Dim WholeNumberadd As Double
 
        ' if denominators  are different in text boxes then run this
        If den1add <> den2add Then
 
            'creates the numerator of the answer
            numansadd = ((num1add * den2add) + (num2add * den1add))
            'creates the denominator of the answer
            denansadd = (den1add * den2add)
 
            ' if denominators match run this
        Else
            ' adds the 2 numerators to create an answer
            numansadd = (num1add + num2add)
            ' keeps the matching denominators
            denansadd = (den1add)
 
        End If
        ' after adding if the numerator is higher that the denominatoer run this
        If numansadd >= denansadd Then
 
            ' setting variables
            Dim LoopCountadd As Integer
            Dim TimesLoopedadd As Integer
            TimesLoopedadd = 0
            LoopCountadd = 0
 
            ' a loop to subtract the denominator from the numerator until the numerator_
            ' is smaller than the denominator
 
            Do While numansadd >= denansadd
                ' subtracts the numerator from the denominator
                TimesLoopedadd = (denansadd - numansadd)
                ' counts up 1 for every time the numerator is subtracted from the denominator
                LoopCountadd += 1
                ' makes WholeNumber = the total of times the loop occurred
                WholeNumberadd = LoopCountadd
                ' makes the remainder = the new numerator answer
                numansadd = (numansadd - denansadd)
 
                ' goes back to see if the numerator is higher than the denominator
            Loop
 
        End If
 
        ' if the new numerator = 0 only the whole number is displayed
        If numansadd = 0 Then
 
            AddFractAns1.Text = "" & (WholeNumberadd)
 
            ' otherwise the whole number and the remaining fraction are displayed
        Else
 
            AddFractAns1.Text = "" & (WholeNumberadd) & " and " _
            & (numansadd) & "/" & (denansadd)
 
        End If
 
 
 
 

This works perfectly but now I need to write the code to reduce the final answer. :) wish me luck.

You will notice that it is very heavily notated I do this since I am still fairly new to VB and it helps later if I need to re-engineer code for something later.

[Semajthewise]

Hi,
have you tried had a look at this

I finished it finally thanks again Shashi. Here's what I finally came up with and it works perfectly. tho probably over engeneered :)

Function.

' Returns the greatest common divisor using Euclid's algorithm
    Private Function GCD(ByVal x As Integer, ByVal y As Integer) As Integer
        Dim temp As Integer
 
        x = Math.Abs(x)
        y = Math.Abs(y)
 
        Do While (y <> 0)
            temp = x Mod y
            x = y
            y = temp
        Loop
 
        Return x
    End Function

Addition

 ' Setting up my variables
        Dim num1add As Integer = AddNum1.Text
        Dim num2add As Integer = AddNum2.Text
        Dim den1add As Integer = AddDen1.Text
        Dim den2add As Integer = AddDen2.Text
        Dim numansadd As Integer
        Dim denansadd As Integer
        Dim WholeNumberAdd As Integer
        Dim ReduceFraction As Integer
 
        ' If denominators  are different in text boxes then run this
        If den1add <> den2add Then
 
            'Creates the numerator of the answer
            numansadd = ((num1add * den2add) + (num2add * den1add))
            'Creates the denominator of the answer
            denansadd = (den1add * den2add)
 
            ' If denominators match run this
        Else
            ' Adds the 2 numerators to create an answer
            numansadd = (num1add + num2add)
            ' Keeps the matching denominators
            denansadd = (den1add)
 
        End If
        ' After adding if the numerator is higher that the denominatoer run this
        If numansadd >= denansadd Then
 
            ' Setting variables
            Dim LoopCountadd As Integer
            Dim TimesLoopedadd As Integer
            TimesLoopedadd = 0
            LoopCountadd = 0
 
            ' A loop to subtract the denominator from the numerator until the numerator_
            ' is smaller than the denominator
 
            Do While numansadd >= denansadd
                ' Subtracts the numerator from the denominator
                TimesLoopedadd = (denansadd - numansadd)
                ' Counts up 1 for every time the numerator is subtracted from the denominator
                LoopCountadd += 1
                ' Makes WholeNumber = the total of times the loop occurred
                WholeNumberAdd = LoopCountadd
                ' Makes the remainder = the new numerator answer
                numansadd = (numansadd - denansadd)
 
                ' Goes back to see if the numerator is higher than the denominator
            Loop
 
        End If
 
        ' Using the function GCD to get the greatest common divisor _
        ' With numansadd and denansadd as the variables
        ReduceFraction = GCD(numansadd, denansadd)
        ' Divides the numerator by the greatest common divisor
        numansadd = (numansadd / ReduceFraction)
        ' Divides the denominator by the greatest common divisor
        denansadd = (denansadd / ReduceFraction)
 
        ' If the new numerator = 0 only the whole number is displayed
        If numansadd = 0 Then
 
            AddFractAns1.Text = "" & (WholeNumberAdd)
 
            ' If there is no whole number then display the fraction only
        ElseIf WholeNumberAdd = 0 Then
            AddFractAns1.Text = "" & (numansadd) & "/" & (denansadd)
 
            ' Otherwise the whole number and the remaining fraction are displayed
        Else
 
            AddFractAns1.Text = "" & (WholeNumberAdd) & " and " _
            & (numansadd) & "/" & (denansadd)
 
        End If
 

subtraction

' Setting up my variables
        Dim num1sub As Integer = SubNum1.Text
        Dim num2sub As Integer = SubNum2.Text
        Dim den1sub As Integer = SubDen1.Text
        Dim den2sub As Integer = SubDen2.Text
        Dim numanssub As Integer
        Dim denanssub As Integer
        Dim WholeNumbersub As Integer
        Dim ReduceFraction As Integer
 
        ' If denominators  are different in text boxes then run this
        If den1sub <> den2sub Then
 
            'Creates the numerator of the answer
            numanssub = ((num1sub * den2sub) - (num2sub * den1sub))
            'Creates the denominator of the answer
            denanssub = (den1sub * den2sub)
 
            ' If denominators match run this
        Else
            ' Adds the 2 numerators to create an answer
            numanssub = (num1sub - num2sub)
            ' Keeps the matching denominators
            denanssub = (den1sub)
 
        End If
        ' After the math. if the numerator is higher that the denominatoer run this
        If Math.Abs(numanssub) >= Math.Abs(denanssub) Then
 
            ' Setting variables
            Dim LoopCountadd As Integer
            Dim TimesLoopedadd As Integer
            TimesLoopedadd = 0
            LoopCountadd = 0
 
            ' A loop to subtract the denominator from the numerator until the numerator_
            ' is smaller than the denominator
 
            Do While Math.Abs(numanssub) >= Math.Abs(denanssub)
                ' Subtracts the numerator from the denominator
                TimesLoopedadd = (Math.Abs(denanssub) - Math.Abs(numanssub))
                ' Counts up 1 for every time the numerator is subtracted from the denominator
                LoopCountadd += -1
                ' Makes WholeNumber = the total of times the loop occurred
                WholeNumbersub = LoopCountadd
                ' Makes the remainder = the new numerator answer
                numanssub = (Math.Abs(numanssub) - Math.Abs(denanssub))
 
                ' Goes back to see if the numerator is higher than the denominator
            Loop
 
        End If
 
        ' Using the function GCD to get the greatest common divisor _
        ' with numansadd and denansadd as the variables
        ReduceFraction = GCD(numanssub, denanssub)
        ' Divides the numerator by the greatest common divisor
        numanssub = (numanssub / ReduceFraction)
        ' Divides the denominator by the greatest common divisor
        denanssub = (denanssub / ReduceFraction)
 
        ' If the new numerator = 0 only the whole number is displayed
        If numanssub = 0 Then
 
            SubFractAns1.Text = "" & (WholeNumbersub)
 
            ' Of there is no whole number then display the fraction only
        ElseIf WholeNumbersub = 0 Then
            SubFractAns1.Text = "" & (numanssub) & "/" & (denanssub)
 
            ' Otherwise the whole number and the remaining fraction are displayed
        Else
 
            SubFractAns1.Text = "" & (WholeNumbersub) & " and " _
            & (numanssub) & "/" & (denanssub)
 
        End If
 

Multiplication

' Setting my variables
        Dim num1multi As Integer = MultiNum1.Text
        Dim num2multi As Integer = MultiNum2.Text
        Dim den1multi As Integer = MultiDen1.Text
        Dim den2multi As Integer = MultiDen2.Text
        Dim numansmulti As Integer = (num1multi * num2multi)
        Dim denansmulti As Integer = (den1multi * den2multi)
        Dim ReduceFractionmulti = GCD(numansmulti, denansmulti)
        Dim WholeNumberMulti As Integer
 
        ' This Reduces the fraction down to the least common denominator using the function GCD
        numansmulti = (numansmulti / ReduceFractionmulti)
        denansmulti = (denansmulti / ReduceFractionmulti)
 
        ' After the math. If the numerator is higher that the denominatoer run this
        If Math.Abs(numansmulti) >= Math.Abs(denansmulti) Then
 
            ' Setting variables
            Dim LoopCountadd As Integer
            Dim TimesLoopedadd As Integer
            TimesLoopedadd = 0
            LoopCountadd = 0
 
            ' A loop to subtract the denominator from the numerator until the numerator_
            ' is smaller than the denominator
            Do While Math.Abs(numansmulti) >= Math.Abs(denansmulti)
                ' Subtracts the numerator from the denominator
                TimesLoopedadd = (Math.Abs(denansmulti) - Math.Abs(numansmulti))
                ' Counts up 1 for every time the numerator is subtracted from the denominator
                LoopCountadd += 1
                ' Makes WholeNumber = the total of times the loop occurred
                WholeNumberMulti = LoopCountadd
                ' Makes the remainder = the new numerator answer
                numansmulti = (Math.Abs(numansmulti) - Math.Abs(denansmulti))
 
                ' Goes back to see if the numerator is higher than the denominator
            Loop
 
        End If
        ' If there is no fraction display only the whole number
        If numansmulti = 0 Then
 
            MultiFractAns1.Text = "" & (WholeNumberMulti)
 
            ' If there is no whole number then display the fraction only
        ElseIf WholeNumberMulti = 0 Then
 
            MultiFractAns1.Text = "" & (numansmulti) & "/" & (denansmulti)
 
            ' Otherwise the whole number and the remaining fraction are displayed
        Else
 
            MultiFractAns1.Text = "" & (WholeNumberMulti) & " and " _
            & (numansmulti) & "/" & (denansmulti)
 
        End If
 

Division

 ' Setting my variables
        Dim num1div As Integer = DivNum1.Text
        Dim num2div As Integer = DivNum2.Text
        Dim den1div As Integer = DivDen1.Text
        Dim den2div As Integer = DivDen2.Text
        Dim numansdiv As Integer = (num1div * den2div)
        Dim denansdiv As Integer = (num2div * den1div)
        Dim WholeNumberDiv As Integer
        Dim ReduceFractionDiv = GCD(numansdiv, denansdiv)
 
        ' This Reduces the fraction down to the least common denominator using the function GCD
        numansdiv = (numansdiv / ReduceFractionDiv)
        denansdiv = (denansdiv / ReduceFractionDiv)
 
        ' After the math. If the numerator is higher that the denominatoer run this
        If Math.Abs(numansdiv) >= Math.Abs(denansdiv) Then
 
            ' Setting variables
            Dim LoopCountadd As Integer
            Dim TimesLoopedadd As Integer
            TimesLoopedadd = 0
            LoopCountadd = 0
 
            ' A loop to subtract the denominator from the numerator until the numerator_
            ' is smaller than the denominator
            Do While Math.Abs(numansdiv) >= Math.Abs(denansdiv)
                ' Subtracts the numerator from the denominator
                TimesLoopedadd = (Math.Abs(denansdiv) - Math.Abs(numansdiv))
                ' Counts up 1 for every time the numerator is subtracted from the denominator
                LoopCountadd += 1
                ' Makes WholeNumber = the total of times the loop occurred
                WholeNumberDiv = LoopCountadd
                ' Makes the remainder = the new numerator answer
                numansdiv = (Math.Abs(numansdiv) - Math.Abs(denansdiv))
 
                ' Goes back to see if the numerator is higher than the denominator
            Loop
 
        End If
 
        ' If there is no fraction display only the whole number
        If numansdiv = 0 Then
 
            DivFractAns1.Text = "" & (WholeNumberDiv)
 
            ' If there is no whole number then display the fraction only
        ElseIf WholeNumberDiv = 0 Then
 
            DivFractAns1.Text = "" & (numansdiv) & "/" & (denansdiv)
 
            ' Otherwise the whole number and the remaining fraction are displayed
        Else
 
            DivFractAns1.Text = "" & (WholeNumberDiv) & " and " _
            & (numansdiv) & "/" & (denansdiv)
 
 
 
        End If
 

Thx all