|
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
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.
|
