Πώς μπορώ να Μετατροπή BCD στο δεκαδικό Visual Basic

; τιμές Binary Coded Decimal χρησιμοποιούν ένα δυαδικό σχήμα να εκπροσωπεί τα ψηφία μηδέν έως εννέα . Όπως Visual Basic δεν χρησιμοποιεί τον τύπο δεδομένων BCD , δεν έχουν ενσωματωμένη λειτουργία που μετατρέπει τις τιμές BCD σε δεκαδικό τιμές . Ωστόσο , μπορείτε να προγραμματίσετε τη δική σας λειτουργία , που θα δέχεται είσοδο μορφοποιηθεί ως αξία BCD και να σπάσει σε τέσσερα σνακ -bit , ή κομμάτια , και στη συνέχεια να μετατρέψει αυτά τα σνακ σε δεκαδικό αριθμό . Οδηγίες
Η 1

Τύπος " BCD_to_int Public Function (είσοδος ByVal Όπως Long ) " για να ανοίξετε τη λειτουργία σας . Χρησιμοποιήστε ένα μικρότερο αριθμητικό τύπο δεδομένων αντί Long για να εξοικονομήσετε χώρο , αν γνωρίζετε το πρόγραμμά σας δεν θα συνεργαστεί με μεγάλους αριθμούς . 2

Πληκτρολογήστε "Dim temp ως ακέραιος" και "Dim decNum ως ακέραιος" να δηλώσει δύο Ακέραιοι στη λειτουργία σας . Πληκτρολογήστε "Dim strNum ως String = " " " να δηλώσει μια σειρά και να προετοιμάσει το χωρίς κείμενο .
Εικόνων 3

τύπου " Αν δεν num = 0 " για να ανοίξετε ένα βρόχο Ενώ που θα επαναληφθούν έως ότου ο αριθμός η λειτουργία λαμβάνει γίνεται μηδέν . Τύπος " Για i = 0 Για 3 " στην επόμενη γραμμή για να ξεκινήσει μια καταμέτρηση βρόχο .
Η 4

Τύπος " temp = num Mod 10 " και " num /= 10 " στην επόμενη γραμμή . Η πρώτη γραμμή θα απομονώσει το δεξιό ψηφίο του αριθμού BCD και να το αποθηκεύσετε σε σας " temp" μεταβλητή . Η επόμενη γραμμή θα μετατοπίσει το δεκαδικό του αριθμού BCD προς τα αριστερά .
5

Τύπος "Αν temp = 1 Τότε " για να ανοίξει υπό όρους ελέγχου που καθορίζει εάν το πρόγραμμά σας θα πρέπει να προσθέτουν στην αξία της δεκαδικός αριθμός σας . Δεδομένου ότι το μόνο που χρειάζεται να προσθέσετε όταν " temp" ισούται με ένα , δεν περιλαμβάνουν ρήτρα " elseif " για temp ισούται με μηδέν
Η

6 Πληκτρολογήστε τον ακόλουθο κώδικα στο δικό σας " Αν " δήλωση: .

Αν temp = 1 τότε

Αν i = 0 τότε

decNum + = 1

ElseIf i = 1 τότε

decNum + = 2

ElseIf i = 2 τότε

decNum + = 4

ElseIf i = 3 τότε

decNum + = 8

End If

End If

Αυτές οι συνθήκες προσθέσετε την κατάλληλη τιμή δεκαδικό στο σύνολό σας με βάση την οποία από τα τέσσερα bits σε κάθε ροκανίζω ελέγχει . Η " decNum " μεταβλητή θα κρατήσει τη δεκαδική τιμή της ροκανίζω τέσσερις -bit .
Η 7

Τύπος "Next i" στην επόμενη γραμμή για να πει «Για σας» βρόχο για να προχωρήσουμε στο επόμενο ψηφίο η ροκανίζω . Όταν το πρόγραμμά σας έχει ελέγξει όλα τα τέσσερα κομμάτια, θα έχει υπολογιστεί το επόμενο ψηφίο του δεκαδικού σας . Πληκτρολογήστε " strNum = decNum & strNum " να προσθέσετε αυτήν την τιμή στο αριστερή πλευρά της συμβολοσειράς σας . Τύπος " decNum = 0 " για να επαναφέρετε αυτή τη μεταβλητή πριν την επόμενη επανάληψη του βρόχου while σας .
8

Τύπος "End Ενώ " για να κλείσετε σας Ενώ βρόχο . Τύπος " decNum = strNum " για να αναγκάσει Visual Basic για να μετατρέψει το string που κατέχουν δεκαδική τιμή σας σε ένα Integer και να το αποθηκεύσετε στο " decNum " μεταβλητή . Στη συνέχεια μπορείτε να χειριστείτε αυτήν την μεταβλητή , όπως απαιτείται . Πληκτρολογήστε " Επιστροφή decNum " για να στείλετε τη δεκαδική τιμή πίσω στο σημείο όπου το πρόγραμμά σας ονομάζεται λειτουργία από σας. Πληκτρολογήστε " Function End " για να κλείσετε τη λειτουργία .
Η
εικόνων