Visual Basic ( VB ) programmeringsspråk kommer med et vell 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 inn med en funksjon som vil invertere fraksjoner . Instruksjoner
en
Opprett en ny klasse modul og name it FractionClass.cls .
2
definere variabler for klassen . Disse variablene vil være ansvarlig for oppbevaring av teller og nevner verdier.
Private m_Numerator Som Long
Private m_Denominator Som Long
3
Initialiser brøkdel . Dette vil ta en streng i form av A /B og forberede den til å bli delt inn i separate verdier. skille det ved å sette A i m_Numerator og B inn m_Denominator .
Public Sub FromString ( ByVal txt As String )
Dim brikker ( ) Som String
stykker = Split ( txt, "/" )
m_Numerator = CLng ( brikker ( 0 ) )
m_Denominator = CLng ( brikker ( 1 ) )
forenkle
End Sub
offentlig eiendom får Teller ( ) As Long
Teller = m_Numerator
End Property
offentlig eiendom La Teller ( ByVal verdi As Long)
m_Numerator = verdi
Forenkle
End Property
offentlig eiendom får Nevner ( ) As Long
Nevner = m_Denominator
< p> End Property
offentlig eiendom Let Nevner ( ByVal verdi As Long)
m_Denominator = verdi
Forenkle
End Property
4
Separat A og B fra strengen A /B i m_Numerator og m_Denominator variabler , henholdsvis .
Public Sub SetValues ( ByVal numer Som Long , ByVal DENOM Som _
Long )
m_Numerator = numer
m_Denominator = DENOM
Forenkle
End Sub
5
Lag en funksjon Inverter ( ) som vil ta en streng A /B og snu den i den gjensidige verdien B /A.
Public Function Inverter ( ) som fraksjon
Dim resultat som ny fraksjon
resultat . 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 data skjemaet.
