Visual Basic ( VB) programmeringssprog kommer med en sværm af integrerede funktioner for at gøre simple beregninger som addition, subtraktion, multiplikation og division af heltal . Desværre , VB er ikke for fraktion venlige, i at eventuelle beregninger, der involverer rationale tal skal foretages manuelt. Den bedste måde at gøre dette på er ved at skabe din egen fraktion klasse og indlejring den med en funktion, der vil vende fraktioner. Instruktioner
1
Opret en ny klasse modul og navngive den FractionClass.cls .
2
Definer variabler for klassen . Disse variabler vil være ansvarlig for opbevaring af tæller og nævner værdier.
Private m_Numerator As Long
Private m_Denominator As Long
3
Initialiser fraktion. Dette vil tage en streng i form af A /B og forberede den til at blive opdelt i separate værdier. adskille den ved at sætte A i m_Numerator og B ind m_Denominator .
Public Sub FromString ( ByVal txt As String )
Dim stykker () As String
stykker = Split ( txt , "/" )
m_Numerator = CLng ( stykker ( 0) )
m_Denominator = CLng ( stykker ) (1)
Simplify
End Sub
Public Property Get Tæller () As Long
Tæller = m_Numerator
End Ejendomsmæglere
Public Property Lad Tæller ( ByVal værdi, så længe ) < br >
m_Numerator = værdi
Forenkle
End Ejendomsmæglere
Public Property Get nævner () As Long
nævner = m_Denominator
< p > Slut Ejendomsmæglere
Public Property Let nævner ( ByVal værdi, så længe )
m_Denominator = værdi
Forenkle
End Property
4
Adskil A-og B fra strengen A /B i m_Numerator og m_Denominator variabler , hhv.
Public sub SetValues ( ByVal numer As Long , ByVal DENOM Som _
Lang )
m_Numerator = numer
m_Denominator = DENOM
Forenkle
End Sub
5
Opret en funktion Invert () , der vil tage en streng A /B og vend det i den reciprokke værdi B /A.
Public Function Invert () som Fraction
Dim resultat As New Fraction
resultat . SetValues m_Denominator , m_Numerator
Set invert = resultat
End Function
6
Gå til invert fraktioner funktionen fra din vigtigste kilde kode til enhver tid ved at bruge det invert () med en snor . Gør opmærksom på, at den variable holder strengen skal være i det lange data formularen.