Πώς να μετατρέψετε Hex σε δυαδική σε Visual Basic

Visual Basic μπορεί να αλλάξει από τη μία βάση τον αριθμό στο άλλο με ένα κομμάτι της χειραγώγησης σε ορισμένες σύντομες γραμμές κώδικα . Πολλές λίστες των αριθμητικών πινάκων μετατροπής , συμπεριλαμβανομένων όλων των μορφών --- δεκαδικό , δυαδικό , οκταδικό και δεκαεξαδικό --- είναι διαθέσιμα στο διαδίκτυο με μια απλή αναζήτηση . Ωστόσο , μπορεί να είναι χρήσιμο να έχουμε έναν μετατροπέα στον υπολογιστή σας . Μια διαδικασία κώδικας δημιουργεί ένα βασικό εξάγωνο σε δυαδική μετατροπή που εκτελεί γρηγορότερα από τη φόρτωση ενός προγράμματος περιήγησης και ψάχνουν για ένα τραπέζι στο Web . Τα πράγματα που θα χρειαστείτε
Visual Basic 6.0
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

Ανοίξτε Visual Basic και κάντε κλικ στο "Αρχείο" στο Κεντρικό Μενού . Κάντε κλικ στο "New Project " στο drop -down μενού και επιλέξτε "Standard EXE » ως ένα είδος . 2

Κάντε διπλό κλικ στο " Ετικέτα " εργαλείο ( που αντιπροσωπεύεται από ένα " A") η Εργαλειοθήκη στα αριστερά. Κάντε διπλό κλικ στο πλαίσιο κειμένου ( που αντιπροσωπεύεται από τα γράμματα " ab " ) . Κάντε κλικ και σύρετε το πλαίσιο κειμένου έτσι ώστε να είναι δίπλα στην ετικέτα . Χρησιμοποιήστε την επιλογή " Properties" λίστα για να αλλάξετε τη λεζάντα του σήματος "Εισαγωγή Hex Αριθμός" και να διαγράψετε τα γράμματα στη λεζάντα Κείμενο της Textbox .
Εικόνων 3

Προσθέστε ένα κουμπί εντολής με την μορφή με διπλό κλικ στο εργαλείο Button ( ένα μικρό ορθογώνιο) και να αλλάξετε τη λεζάντα αυτό για να διαβάσει "Μετατροπή Hex σε δυαδική . " Σύρετε αυτό το κουμπί κάτω από τα δύο στοιχεία που δημιουργήσατε στο βήμα 2 . Προσθέστε δύο ετικέτες με τον ίδιο τρόπο , τοποθετώντας τα κάτω από το κουμπί εντολής και στην ίδια γραμμή . Αλλάξτε τη λεζάντα της πρώτης ετικέτας για να " Το δυαδικό ισοδύναμο είναι " και να διαγράψετε τα γράμματα στην ιδιότητα λεζάντα της δεύτερης ετικέτας .
Η

4 Κάντε κλικ στο "Προβολή" στο Κύριο μενού και επιλέξτε " Κώδικας . " Στο παράθυρο κώδικα , πληκτρολογήστε τον ακόλουθο : Private Sub Command1_Click ( ) Dim HexNbr Όπως StringDim DecNbr Όπως IntegerDim αποτέλεσμα Όπως StringDecNbr = Val ( " H & " & Text1.Text ) Αποτέλεσμα = BinaryNbr ( DecNbr ) Do While Len ( Αποτέλεσμα) <8Result = " 0 " & ResultLoopLabel3.Caption = ResultEnd Sub
5

Πληκτρολογήστε τον ακόλουθο κώδικα κάτω από αυτό το Βήμα 4 : Λειτουργία FirstConv ( ByVal exp Όπως Long) Όπως LongStatic TempNbr ( 0 έως 31 ) Όπως Long , n Όπως IntegerIf TempNbr ( 0 ) = 0 ThenTempNbr ( 0 ) = 1 Για n = 1 Για να 30TempNbr ( n ) = TempNbr ( n - 1 ) * Λειτουργία 2NextTempNbr ( 31 ) = & H80000000End IfFirstConv = TempNbr ( exp ) Τέλος

6

Εισάγετε αυτές τις τελευταίες γραμμές κώδικα κάτω από το " Function End" στο Βήμα 5 : Λειτουργία BinaryNbr ( ByVal calc Όπως Long ) Όπως StringDim TempNbr As String , exp Όπως IntegerTempNbr = String $ ( 32 , " 0 " ) DoIf υπολ και FirstConv ( exp ) ThenMid $ ( TempNbr , 32 - exp , 1 ) = " 1 " calc = calc Χορ FirstConv ( exp ) Τέλος Ifexp = exp + 1Loop Ενώ calcBinaryNbr = Mid $ ( TempNbr , 33 - exp ) End Function
Σελίδα 7

Χρησιμοποιήστε το πλήκτρο "F5 " για να εκτελέσετε την εφαρμογή . Πληκτρολογήστε έναν αριθμό στο κενό πλαίσιο δίπλα στο " Εισάγετε έναν αριθμό Hex" και κάντε κλικ στο "Μετατροπή Hex σε δυαδική . " Εάν έχετε εισάγει τον κώδικα σωστά , θα δείτε το αποτέλεσμα εμφανίζεται στο κενό πλαίσιο δίπλα στο στοιχείο " Το δυαδικό ισοδύναμο αποτέλεσμα . " Αν όχι , ελέγξτε ξανά τον κωδικό .
Η
εικόνων