Πώς να μετατρέψετε ένα Binary Value σε Visual Basic 6

Γνωρίζοντας πώς να μετατρέψετε δυαδικούς αριθμούς στον αντίστοιχο δεκαδικό αριθμό τους είναι μια σημαντική ικανότητα για να μάθει κατά την κωδικοποίηση σε μια γλώσσα προγραμματισμού όπως η Visual Basic 6 ( VB6 ) . Σε αντίθεση με το δεκαδικό σύστημα το οποίο έχει ψηφία μεταξύ 0 και 9 , το δυαδικό σύστημα έχει μόνο ψηφία για 0 και 1 . Κάθε θέση σε ένα δυαδικό αριθμό αντιπροσωπεύει μια δύναμη του 2 . Δεν υπάρχει ενσωματωμένη λειτουργία για να μετατρέψετε ένα δυαδικό αριθμό στοιχειοσειράς , έτσι ώστε να πρέπει να δημιουργήσετε μια συνάρτηση που υπολογίζει το χέρι . Οδηγίες
Η 1

Ανοίξτε VB6 αρχείο προέλευσης σε έναν επεξεργαστή κειμένου , όπως το Microsoft Visual Basic 6 . 2

Δημιουργήστε μια λειτουργία που θα μετατρέψει έναν δυαδικό αριθμό σε δεκαδική μορφή με την προσθήκη ο κώδικας:

ConvBinaryToInteger Public Function ( ByVal MyBinNumber Όπως String ) Όπως Long

Dim n As Integer , πώληση

Dim temp Όπως Long

Για n = 1 Για να Len ( MyBinNumber )

Temp = Θερμοκρασία + Val ( Mid ( MyBinNumber , Len ( MyBinNumber ) - n + 1 , 1 ) ) * 2 ^ ( n - 1 )

Επόμενο

ConvBinaryToInteger = Temp

End Function

η λειτουργία λαμβάνει κάθε άτομο δυαδικό ψηφίο από δεξιά προς τα αριστερά , πολλαπλασιάζει με 2 υψωμένο στην κατάλληλη εξουσία και στη συνέχεια προσθέτει ότι η αξία για το σωρευτικό ποσό . Για παράδειγμα , " 110 " επεξεργάζεται ως " 0 * 2 ^ 0 + 1 * 2 ^ 1 + 1 * 2 ^ 2 = 6 . "
Εικόνων 3

Φυλάξτε το δυαδικό αριθμό που θέλετε να μετατρέψει σε ένα string με την προσθήκη του κώδικα :

Dim binstr As String = " 110 " ?
Η 4

Καλέστε τη λειτουργία για να μετατρέψει μια δυαδική τιμή , με την προσθήκη του κώδικα :

Dim αποτέλεσμα Όπως Long

αποτέλεσμα = ConvBinaryToInteger ( binstr.Text )

το " αποτέλεσμα " μεταβλητή περιέχει την τιμή της δυαδικής μετατροπής , η οποία στο παράδειγμα είναι 6 .

5

Αποθηκεύστε το αρχείο VB6 , την κατάρτιση και την εκτέλεση του προγράμματος να μετατρέψετε την δυαδική τιμή .
Η
εικόνων