Πώς να μετατρέψετε Hex να Byte σε VB6

Όταν μαθαίνουν να κώδικα σε Visual Basic 6.0 ( VB6 ) , είναι σημαντικό να καταλάβετε πώς να μετατρέψετε τους τύπους δεδομένων , όπως ένα δεκαεξαδικό αριθμό σε ένα byte . Ένα byte αποτελείται από 8 bits και μπορεί να αποθηκεύσει ένα ανυπόγραφο αριθμός από μηδέν έως 255 . Ένας αριθμός δεκαεξαδικό χρησιμοποιεί βάση 16 αντί της γνωστής βάσης 10 δεκαδικό σύστημα . Τα γράμματα A έως F αντιπροσωπεύουν τα ψηφία 10 έως 15 . Μετατρέποντας έναν δεκαεξαδικό αριθμό σε ένα byte γίνεται με το " CByte ", η οποία μπορεί να μετατρέψει οποιαδήποτε έγκυρη έκφραση σε ένα byte . Οδηγίες
Η

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

κηρύξει « Byte » και « String » μεταβλητές για να χρησιμοποιήσετε κατά τη διαδικασία μετατροπής με την προσθήκη του παρακάτω κώδικα στην κορυφή της λειτουργίας σας :

Dim h_byte Όπως Byte

Dim strhex Όπως String
εικόνων 3

Ανάκτηση μια αριθμητική τιμή από το το χρήστη με ένα " Πλαίσιο εισαγωγής » με την προσθήκη του κώδικα :

strhex = InputBox ( " Πληκτρολογήστε μια τιμή Hex : " )

strhex = " & H" & strhex

ή

strhex = InputBox ( "Πληκτρολογήστε ένα δεκαδικό αξία: " )

strhex = Hex ( strhex )

Ο χρήστης έχει ζητηθεί για μια τιμή με ένα pop - up παράθυρο . Δεκαεξαδικές τιμές σε VB6 έχουν " & H » προστίθεται στην αρχή του string . Η λειτουργία " Hex" μετατρέπει ένα δεκαδικό αριθμό σε δεκαεξαδικό
Η 4

Καλέστε τη λειτουργία " CByte « να μετατρέψει την δεκαεξαδική τιμή στο « Byte » τύπο δεδομένων με την προσθήκη του κώδικα : .

h_byte = CByte ( strhex )

η " strhex " μεταβλητή πρέπει να έχει μια αριθμητική τιμή από μηδέν έως 255 ή η λειτουργία " CByte " θα επιστρέψει ένα μήνυμα σφάλματος . Κλασματικά μέρη , όπως 121.56 , είναι στρογγυλεμένες .
5

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