Le Basic (VB ) langage de programmation Visual est livré avec une multitude de fonctions intégrées pour faire des calculs simples comme l' addition, soustraction, multiplication et division de nombres entiers . Malheureusement , VB n'est pas trop fraction conviviale, à qui tous les calculs impliquant des nombres rationnels doivent être effectuées manuellement . La meilleure façon de le faire est de créer votre propre classe de fraction et l'incorporer avec une fonction qui va inverser fractions. Instructions
1

créer un nouveau module de classe et nommez-le FractionClass.cls .
2

définir des variables de la classe. Ces variables seront responsables pour stocker le numérateur et le dénominateur valeurs .

M_Numerator privé As Long

m_Denominator privé As Long
3

Initialisation de la fraction. Cela va prendre un string en forme de A /B et le préparer à être divisé en des valeurs distinctes . séparent en mettant le A dans m_Numerator et la B en m_Denominator .

Public Sub fromString ( ByVal txt As String )

morceaux Dim ( ) As String

pièces = split (txt , "/")

m_Numerator = CLng ( pièces (0))

m_Denominator = CLng ( morceaux ) (1) Photos

Simplifiez

End Sub

public Property Get numérateur () As long

numérateur = m_Numerator

End bien immobilier

propriété publique Soit numérateur ( valeur ByVal As Long )

m_Numerator = valeur

Simplifiez

End bien immobilier

public Property Get Dénominateur () As long

Dénominateur = m_Denominator
< p > Fin bien immobilier

public Property Let dénominateur ( valeur ByVal As Long )

m_Denominator = valeur

Simplifiez

End Property
4

Séparez les A et B de la chaîne A /B dans le m_Numerator et variables m_Denominator , respectivement .

SetValues ​​public Sub ( ByVal numer As Long , ByVal comme dénominateur _

long )

m_Numerator = numer

m_Denominator = dénominateur

Simplifiez

End Sub
5

créer une fonction invert ( ) qui aura une chaîne a /B et retourner dans la valeur réciproque B /A.

Fonction publique invert ( ) en tant que fraction

résultat As New Fraction

résultat . SetValues ​​m_Denominator , m_Numerator

Set Inverser = résultats d'

End Function
6

Accéder à la fonction fractions à partir de votre code source principal à tout moment inverti en l'utilisant Inverser ( ) avec une chaîne. Prenez note que la variable contenant la chaîne doit être sous la forme de données de long.