<plaintext>

' Rational Inheritance

' Author: Allen Benusa

' April 19th, 2004


Public Class frmMain

    Inherits System.Windows.Forms.Form


    Dim fraction1, fraction2 As ProperRational

    Dim fractionAdd, fractionSub, fractionMul, fractionDiv As ProperRational

    Dim view As Integer


#Region " Windows Form Designer generated code "


    Public Sub New()

        MyBase.New()


        'This call is required by the Windows Form Designer.

        InitializeComponent()


        'Add any initialization after the InitializeComponent() call


        fraction1 = New ProperRational

        fraction2 = New ProperRational

        fractionAdd = New ProperRational

        fractionSub = New ProperRational

        fractionMul = New ProperRational

        fractionDiv = New ProperRational

        view = 2


    End Sub


    - snip -


#End Region


    Private Sub cmdCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCalculate.Click

        Dim whole1, numerator1, denominator1 As Integer

        Dim whole2, numerator2, denominator2 As Integer


        whole1 = Int32.Parse(txtRat1Whole.Text)

        numerator1 = Int32.Parse(txtRat1Num.Text)

        denominator1 = Int32.Parse(txtRat1Denom.Text)


        whole2 = Int32.Parse(txtRat2Whole.Text)

        numerator2 = Int32.Parse(txtRat2Num.Text)

        denominator2 = Int32.Parse(txtRat2Denom.Text)


        If denominator1 = 0 Or denominator2 = 0 Then

            MessageBox.Show("Denominator cannot be a zero", "Divide by Zero Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

        Else

            fraction1.SetProperRational(whole1, numerator1, denominator1)

            fraction2.SetProperRational(whole2, numerator2, denominator2)


            fractionAdd.AddProperRational(fraction1, fraction2)

            lblAddWhole.Text = Convert.ToString(fractionAdd.numWhole)

            lblAddNum.Text = Convert.ToString(fractionAdd.num)

            lblAddDenom.Text = Convert.ToString(fractionAdd.denom)


            fractionSub.SubProperRational(fraction1, fraction2)

            lblSubWhole.Text = Convert.ToString(fractionSub.numWhole)

            lblSubNum.Text = Convert.ToString(fractionSub.num)

            lblSubDenom.Text = Convert.ToString(fractionSub.denom)


            fractionMul.MulProperRational(fraction1, fraction2)

            lblMulWhole.Text = Convert.ToString(fractionMul.numWhole)

            lblMulNum.Text = Convert.ToString(fractionMul.num)

            lblMulDenom.Text = Convert.ToString(fractionMul.denom)


            fractionDiv.DivProperRational(fraction1, fraction2)

            lblDivWhole.Text = Convert.ToString(fractionDiv.numWhole)

            lblDivNum.Text = Convert.ToString(fractionDiv.num)

            lblDivDenom.Text = Convert.ToString(fractionDiv.denom)


            lblDoubleOutput.Text = Convert.ToString(fraction1.DoubleProperRational())

            lblStringOutput.Text = fraction1.StringProperRational()

        End If


    End Sub


    - snip -


End Class