Πώς να Αντιστροφή κλάσματα σε Visual Basic

Η γλώσσα Visual Basic ( VB ) προγραμματισμού έρχεται με μια συντροφιά από τις ενσωματωμένες λειτουργίες για την κατασκευή απλούς υπολογισμούς , όπως η πρόσθεση, αφαίρεση , πολλαπλασιασμό και διαίρεση των ακεραίων . Δυστυχώς , VB δεν είναι πολύ φιλικό προς το κλάσμα , κατά το ότι οποιεσδήποτε υπολογισμούς που αφορούν την ορθολογική αριθμοί πρέπει να γίνεται με το χέρι . Ο καλύτερος τρόπος να γίνει αυτό είναι με τη δημιουργία του δικού σας Κατηγορία κλάσματος και ενσωματώνοντάς το με μια λειτουργία που θα αναστραφούν κλάσματα . Οδηγίες
Η 1

Δημιουργήστε μια νέα λειτουργική μονάδα κλάσης και ονομάστε το FractionClass.cls . 2

Καθορισμός μεταβλητών για την κατηγορία . Αυτές οι μεταβλητές θα είναι υπεύθυνη για την αποθήκευση των τιμών αριθμητή και παρονομαστή .

Private m_Numerator Όπως Long

Private m_Denominator Όπως Long
εικόνων 3

προετοιμαστεί το κλάσμα . Αυτό θα πάρει μια σειρά , με τη μορφή του A /B και να προετοιμαστεί να μπορεί να χωρίζεται σε ξεχωριστές τιμές . διαχωρίσει με την τοποθέτηση του Α σε m_Numerator και Β σε m_Denominator .

FromString Public Sub ( ByVal txt Όπως String )

Dim κομμάτια ( ) Όπως String

κομμάτια = Split ( txt , " /" )

m_Numerator = CLng (τεμάχια ( 0 ) )

m_Denominator = CLng (τεμάχια ( 1 ) )

Απλοποιήστε

End Sub

Δημόσιας Περιουσίας τον αριθμητή ( ) Όπως Long

αριθμητή = m_Numerator

End ιδιοκτησίας

Δημόσιας Περιουσίας Ας Ονομαστής ( ByVal αξία Όπως Long )

m_Numerator = αξία

Απλοποιήστε

End ιδιοκτησίας

Δημόσιας Περιουσίας Πάρτε Παρονομαστής ( ) Όπως Long

Παρονομαστής = m_Denominator

Τέλος Ακίνητα

Δημόσιας Περιουσίας Ας Παρονομαστής ( ByVal αξία Όπως Long )

m_Denominator = αξία

Απλοποιήστε

Τέλος Ακίνητα
Η 4

Χωρίστε τα Α και Β από τη σειρά Α /Β στις μεταβλητές m_Numerator και m_Denominator , αντίστοιχα .

SetValues ​​Public Sub ( ByVal numer Όπως Long , ByVal denom Όπως _

Long )

m_Numerator = numer

m_Denominator = denom

Απλοποιήστε

End Sub
5

Δημιουργία Αντιστροφή λειτουργία ( ) που θα λάβει μια σειρά A /B και αναποδογυρίστε το σε αμοιβαία αξία Β /Α.

Αντιστροφή Public Function ( ) Όπως κλάσμα

Dim αποτέλεσμα ως νέα κλάσμα
αποτέλεσμα

. SetValues ​​m_Denominator , m_Numerator

Set Αντιστροφή = αποτέλεσμα

Function End
Η 6

Δείτε το ιμβερτοποιημένο λειτουργία κλάσματα από την κύρια πηγαίο κώδικα σας ανά πάσα στιγμή από τη χρήση Αντιστροφή ( ) με ένα string . Σημειώστε ότι η μεταβλητή που κατέχουν το string θα πρέπει να είναι σε μεγάλη φόρμα δεδομένων .
Η
εικόνων