Passing Objects

[RBCC]

Dim WithEvents clsfraction As New fraction
Dim WithEvents clsfraction1 As New fraction

Dim denominator, denominator1 As Int16







Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
Dim common, numer1, numer2, denom, total As Int16
Dim gcd As Int16 holds value of gcd



numer1 = Val(txtnum1.Text)
numer2 = Val(txtnum2.Text)
denominator = Val(txtdenom1.Text)
denominator1 = Val(txtdenom2.Text)
common = clsfraction.calculate_common_denominator(denominator, denominator1)
total = clsfraction.add(clsfraction, clsfraction1)
gcd = clsfraction.reduce(total, common)
common = common / gcd
total = total / gcd

txtsumnum.Text = total
txtsumdenom.Text = common





End Sub



Private Sub clsfraction1_zerodenom() Handles clsfraction1.zerodenom
MessageBox.Show("Error-Zero in the denominator")

End Sub


End Class
;***************Classes******************************

Public Class fraction
Dim m_numerator As Int16
Dim m_denominator As Int16

Public Event zerodenom()


Public Property numerator() As Int16
Get
Return m_numerator
End Get
Set(ByVal Value As Int16)
Value = m_numerator
End Set
End Property
Public Property denominator() As Int16
Get
Return m_denominator
End Get
Set(ByVal Value As Int16)
Value = m_denominator
End Set
End Property

Public Function reduce(ByVal numerator As Int16, ByVal denominator As Int16) As Int16
Dim temp As Int16

Do While denominator <> 0
temp = denominator
denominator = numerator Mod denominator
numerator = temp
Loop
Return numerator
End Function
Public Function calculate_common_denominator(ByVal denominator As Int16, ByVal denominator1 As Int16)
Dim common As Int16
common = denominator * denominator1

Return common
End Function

Public Function add(ByVal frac1 As fraction, ByVal frac2 As fraction)
Dim sum1, sum2, total As Int16

How do I pass the numerator and denominator of each fraction??

total = sum1 + sum2

End Function










End Class



John

 

[PlausiblyDamp]

Not sure what you are asking here - what do you want the add function to do? Also what data type should it return?
If you want a new fraction with the number and denominator totalled then the following should work

    Public Function add(ByVal frac1 As fraction, ByVal frac2 As fraction)

        How do I pass the numerator and denominator of each fraction??
        Dim tmp As New fraction()
        tmp.numerator = frac1.numerator + frac2.numerator
        tmp.denominator = frac1.denominator + frac2.denominator
        Return tmp

    End Function