Hvordan Inverter Brøker i Visual Basic

January 31

Visual Basic (VB) programmeringsspråk kommer med en flokk av integrerte funksjoner for å gjøre enkle beregninger som addisjon, subtraksjon, multiplikasjon og divisjon av heltall. Dessverre er VB ikke altfor brøkdel vennlig, ved at noen beregninger som involverer rasjonale tall må gjøres manuelt. Den beste måten å gjøre dette på er ved å lage din egen fraksjon klasse og bygge det med en funksjon som vil snu fraksjoner.

Bruksanvisning

1 Opprett en ny klassemodul og name it FractionClass.cls.

2 Definere variabler for klassen. Disse variablene vil være ansvarlig for lagring teller og nevner verdier.

Private m_Numerator As Long

Private m_Denominator As Long

3 Initial brøkdel. Det vil ta en streng i form av A / B og gjør den klar til å bli delt inn i separate verdier. separere det ved å sette den inn i A m_Numerator og B inn i m_Denominator.

Public Sub FromString (ByVal txt As String)

Dim brikker () As String

pieces = Split(txt, "/")

m_Numerator = CLng (brikker (0))

m_Denominator = CLng (stykker (1))

Forenkle

End Sub

Offentlig eiendom får Teller () As Long

Numerator = m_Numerator

slutt Eiendom

Offentlig eiendom Let Teller (ByVal verdi As Long)

m_Numerator = value

Forenkle

slutt Eiendom

Offentlig eiendom får Nevner () As Long

Denominator = m_Denominator

slutt Eiendom

Offentlig eiendom Let Nevner (ByVal verdi As Long)

m_Denominator = value

Forenkle

slutt Eiendom

4 Separer A og B fra strengen A / B inn i m_Numerator og m_Denominator variable, respektivt.

Offentlige Sub SetValues (ByVal numer Som Long, ByVal DENOM Som _

Long)

m_Numerator = numer

m_Denominator = DENOM

Forenkle

End Sub

5 Lag en funksjon Invert () som tar en streng A / B og invertere den inn i gjensidige verdien B / A.

Public Function Invert () As Fraksjon

Dim resultat som ny Fraction

result.SetValues m_Denominator, m_Numerator

Sett Inverter = resultat

End Function

6 Åpne invertere fraksjoner funksjonen fra din viktigste kilde kode når som helst ved å bruke det Inverter () med en streng. Gjør oppmerksom på at variabelen holder strengen skal være i det lange dataskjemaet.