Il Basic (VB) linguaggio di programmazione Visual viene fornito con uno stuolo di funzioni integrate per fare calcoli semplici come l'addizione, sottrazione, moltiplicazione e divisione di numeri interi. Purtroppo, VB non è troppo frazione accogliente, nel senso che tutti i calcoli che coinvolgono numeri razionali devono essere fatte manualmente. Il modo migliore per farlo è attraverso la creazione di una classe frazione e incorporarlo con una funzione che invertire le frazioni.

istruzione

1 Creare un nuovo modulo di classe e il nome FractionClass.cls.

2 Definire le variabili per la classe. Queste variabili saranno responsabili per la memorizzazione dei valori numeratore e denominatore.

m_Numerator privata As Long

m_Denominator privata As Long

3 Inizializzare la frazione. Questo richiederà una stringa in forma di A / B e prepararlo per essere diviso in valori separati. separarlo mettendo A in m_Numerator e B in m_Denominator.

Public Sub fromstring (ByVal txt As String)

pezzi Dim () As String

pieces = Split(txt, "/")

m_Numerator = CLng (pezzi (0))

m_Denominator = CLng (pezzi (1))

Semplificare

End Sub

Public Property Get numeratore () As Long

Numerator = m_Numerator

End Property

Public Property Let numeratore (valore di ByVal come lungamente)

m_Numerator = value

Semplificare

End Property

Public Property Get Denominatore () As Long

Denominator = m_Denominator

End Property

Public Property Let denominatore (valore di ByVal come lungamente)

m_Denominator = value

Semplificare

End Property

4 Separare A e B dalla stringa A / B nelle variabili m_Numerator e m_Denominator rispettivamente.

SetValues ​​Public Sub (ByVal numer As Long, ByVal DENOM Come _

Long)

m_Numerator = numer

m_Denominator = denom

Semplificare

End Sub

5 Creare una funzione Inverti (), che avrà una stringa A / B e capovolgere in il reciproco valore di B / A.

Inverti Funzione Pubblica () come frazione

risultato fioco come nuovo Frazione

result.SetValues m_Denominator, m_Numerator

Set Inverti = risultato

End Function

6 Accedere alla funzione frazioni invertire dal codice sorgente principale in qualsiasi momento utilizzando lo Inverti () con una stringa. Prendere nota che la variabile che tiene la stringa dovrebbe essere sotto forma di dati a lungo.