De Visual Basic ( VB ) programmeertaal wordt geleverd met een schare van geïntegreerde functies voor het maken van eenvoudige berekeningen , zoals het optellen, aftrekken , vermenigvuldigen en delen van gehele getallen . Helaas , VB is niet al te vriendelijk fractie , in dat alle berekeningen met betrekking tot de rationale getallen handmatig moet worden gedaan . De beste manier om dit te doen is door het creëren van je eigen fractie klas en inbedding met een functie die fracties zal omkeren . Instructies
1 Maak een nieuwe klasse module en noem maar FractionClass.cls . Kopen van 2 Definieer de variabelen voor de klas . Deze variabelen zal verantwoordelijk zijn voor het opslaan van de teller en de noemer waarden . Prive m_Numerator
As Long Prive m_Denominator
As Long
3 Initialiseer de fractie . Dit zal een string te nemen in de vorm van een A /B en voor te bereiden om te worden verdeeld in afzonderlijke waarden . scheiden door de invoering van de A in m_Numerator en de B in m_Denominator . Public Sub FromString ( ByVal txt As String ) Dim stukken ( ) As String stukken
= Split
( txt , " /" ) m_Numerator
= CLng ( stukken ( 0 ) ) op m_Denominator = CLng ( stukken ( 1 ) ) op Vereenvoudig
end Sub Public Property
Get Teller ( ) As Long Teller
= m_Numerator
end Property
Public Property Laat Teller ( ByVal value As Long ) < br m_Numerator > = waarde
Vereenvoudig End Property
Public Property
Get Noemer ( ) As Long Noemer = m_Denominator
End Property
Public Property Laten Noemer ( ByVal value As Long ) m_Denominator = waarde
Vereenvoudig End Property
4 Scheid de A en B uit de string A /B in de m_Numerator en m_Denominator variabelen , respectievelijk . Public Sub gewenste waarden
( ByVal numer zoals lang, ByVal DENOM Zoals _
Long ) m_Numerator
= numer m_Denominator
= DENOM
Vereenvoudig End Sub
5
Maak een functie Omkeren ( ) dat een string zal duren a /B en keer het in de omgekeerde waarde B /A. Overheidsfunctie
omkeren ( ) Zoals Fraction Dim resultaat
als Nieuwe Fraction resultaat
. gewenste waarden m_Denominator , m_Numerator
Stel omkeren = resultaat
End Function
6 Access de invertsuiker fracties functie van uw belangrijkste bron code op elk gewenst moment door het te gebruiken Omgekeerde ( ) met een string . Maak er rekening mee dat de variabele die de string moet worden in de lange gegevens formulier .
|
