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

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

Δημιουργήστε ένα εκτελέσιμο πρόγραμμα σε Visual Basic με το άνοιγμα του προγράμματος και κάνοντας κλικ στο "Αρχείο . " Στη συνέχεια, κάντε κλικ στο " New Project" και επιλέξτε το πρότυπο τύπου EXE έργου . 2

Τοποθετήστε ένα κουμπί στη φόρμα κάνοντας διπλό κλικ αυτό το εργαλείο στην εργαλειοθήκη . Σάρωση προς τα κάτω το "Ιδιότητες" παράθυρο στη δεξιά πλευρά και να αλλάξετε τη λεζάντα του κουμπιού για να "Μετατροπή Δεκαδικό σε δυαδική . "
Εικόνων 3

Κάντε διπλό κλικ στο κουμπί που τώρα πρέπει να διαβάσετε " Μετατροπή δεκαδικών σε δυαδικό "για να ανοίξετε την άμεση κώδικα γραφής παράθυρο . Πληκτρολογήστε τις ακόλουθες εντολές μεταξύ του " Private Sub Command1_Click ( ) " και " End Sub" που βλέπετε : Dim DecimalNbr Όπως LongDecimalNbr = InputBox ( "Πληκτρολογήστε το δεκαδικό αριθμό για να μετατρέψετε σε δυαδικό " ) MsgBox ( " Το δυαδικό ισοδύναμο είναι " & BinaryNbr ( DecimalNbr ) )
Η 4

Παράκαμψη αρκετές γραμμές μετά την παραπάνω κώδικα και πληκτρολογήστε τα ακόλουθα : ExpUp Λειτουργία ( exp ByVal Όπως Long ) Όπως LongStatic ενδιάμεση ( 0 έως 31) Όπως Long , n Όπως IntegerIf ενδιάμεση ( 0 ) = 0 Theninterim ( 0 ) = 1 Για n = 1 Για να 30interim (n ) = ενδιάμεση ( n - 1 ) * 2Nextinterim ( 31 ) = & H80000000End IfExpUp = ενδιάμεση ( exp ) End Function
5

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

Πατήστε το πλήκτρο " F5 " για να εκτελέσετε την εφαρμογή . Κάντε κλικ στο πλήκτρο "Enter δεκαδικό σε δυαδικό " . Εισάγετε οποιοδήποτε δεκαδικό αριθμό ( σύνολο) και πατήστε το πλήκτρο "Return ". Αν έχετε εισάγει τον παραπάνω κώδικα σωστά , θα δείτε το δυαδικό ισοδύναμο .
Η

7 Αποθηκεύστε το έργο και τη μορφή με ένα εύκολο να θυμηθεί το όνομα , όπως « δυαδική μετατροπή . " Στη συνέχεια, κάντε κλικ στο " Αρχείο" και "Make Binary Conversion.exe . Αποθηκεύστε το αποτέλεσμα στην επιφάνεια εργασίας σας για εύκολη πρόσβαση .
Η
εικόνων