Visual Basic ( VB ) programmeringsspråk kommer med en uppsjö av inbyggda funktioner för att göra enkla beräkningar som addition, subtraktion , multiplikation och division av heltal . Tyvärr är VB inte alltför fraktion vänliga , eftersom alla beräkningar med rationella tal måste göras manuellt . Det bästa sättet att göra detta är genom att skapa din egen fraktion klass och bädda in den med en funktion som kommer att invertera bråk . Instruktioner
1
Skapa en ny klass modul och namnge det FractionClass.cls .
2
Definiera variabler för klassen . Dessa variabler kommer att ansvara för att lagra täljare och värderingar nämnare .
Privat m_Numerator As Long
Privat m_Denominator As Long
3
Initiera fraktionen . Detta kommer att ta en sträng i form av A /B och förbereda den att delas upp i separata värden. separera den genom att sätta A i m_Numerator och B i m_Denominator .
Public Sub FromString ( ByVal txt As String ) katalog
Dim bitar ( ) As String
bitar = Split ( txt , " /" ) katalog
m_Numerator = CLng ( stycken ( 0 ) ) katalog
m_Denominator = CLng ( styck ( 1 ) ) katalog
Förenkla
End Sub
Public Property Get Täljare ( ) As Long
Täljare = m_Numerator
End Property
Public Property Let Täljare ( ByVal value As Long )
m_Numerator = värde
Förenkla
End Property
Public Property Get Nämnare ( ) As Long
Nämnare = m_Denominator
End Property
Public Property Let Nämnare ( ByVal value As Long ) katalog
m_Denominator = värde
Förenkla
End Property
4
Separat A och B från strängen A /B i m_Numerator och variabler m_Denominator , respektive .
Public sub SetValues ( ByVal numer As Long , ByVal DENOM Som _
Lång ) katalog
m_Numerator = numer
m_Denominator = DENOM
Förenkla
End Sub
5
Skapa en funktion Invertera ( ) som tar en sträng A /B och invertera den i det reciproka värdet B /A.
Public Function invertera ( ) som fraktion
Dim resultat As New Fraction
resultat . SetValues m_Denominator , m_Numerator
Set Invertera = resultat
End Function
6
Gå invertera bråk funktionen från din huvudsakliga källkod när som helst genom att använda den namnrymd ( ) med en sträng. Notera att variabeln håller strängen ska vara på lång dataformuläret .
