Visual Basic kann von einem Zahlensystem in ein anderes wechseln mit ein wenig Manipulation in einigen kurzen Zeilen Code. Zahlreiche Listen der numerischen Umrechnungstabellen einschließlich aller Formen --- dezimal, binär , hex und oktal --- sind auf der Web mit einer einfachen Suche . Allerdings kann es sinnvoll sein , einen Konverter auf Ihrem Computer haben . Ein Code erstellt eine grundlegende hex -Dual-Umwandlung , die schneller als das Laden eines Browsers und die Suche nach einem Tisch auf der Web führt . Things You
Visual Basic 6.0
brauchen anzeigen Weitere Anweisungen
1

Öffnen Sie Visual Basic , und klicken Sie auf "Datei" im Hauptmenü . Klicken Sie auf "Neues Projekt" in der Drop -Down-Menü und wählen Sie " Standard EXE " als eine Art .
2

auf der "Label"- Tool (dargestellt durch ein " A") Doppelklick aus die Toolbox auf der linken Seite . Auf dem TextBox (dargestellt durch den Buchstaben "ab" ) Doppelklicken Sie auf . Klicken und ziehen Sie das Textfeld so dass es neben dem Etikett ist . Verwenden Sie die Liste "Eigenschaften" , um die Beschriftung des Labels verändern "Enter Hex -Nummer " und löschen Sie die Buchstaben in das Textfeld Beschriftung der Textbox .
3

Fügen Sie eine Befehlsschaltfläche zum bilden mit einem Doppelklick auf den Button Werkzeug ( ein kleines Rechteck ) , und ändern Sie die Beschriftung von dieser zu lesen "Convert Hex auf Binär . " Ziehen Sie diese Schaltfläche unterhalb der beiden Artikel, die Sie in Schritt 2 erstellt haben. Fügen Sie zwei weitere Labels auf die gleiche Weise , indem sie unter dem Befehl -Taste und auf der gleichen Linie . Ändern Sie die Beschriftung des ersten Etiketts zu " Die binäre Äquivalent " und löschen Sie die Buchstaben in der Caption-Eigenschaft der zweiten Bezeichnung.
4

Klicken Sie auf "View" im Hauptmenü und wählen Sie "Code . " Im Code-Fenster , geben Sie die folgenden Schritte aus: Private Sub Command1_Click () Dim HexNbr Wie StringDim DecNbr Als Ergebnis IntegerDim Wie StringDecNbr = Val ( " & H " & Text1.Text ) Ergebnis = BinaryNbr ( DecNbr ) Do While Len (Ergebnis) < 8Result = "0" & ResultLoopLabel3.Caption = ResultEnd Sub
5

Typ in den folgenden Code unter dem in Schritt 4 : Funktion FirstConv (ByVal exp As Long) As LongStatic TempNbr (0 bis 31 ) As Long , n Wie IntegerIf TempNbr (0) = 0 ThenTempNbr (0) = 1Für n = 1 To 30TempNbr (n) = TempNbr ( n - 1) * 2NextTempNbr (31) = & H80000000End IfFirstConv = TempNbr (exp ) End Function

6

Geben Sie diese letzten Zeilen Code unter dem " End Function " in Schritt 5 : Funktion BinaryNbr (ByVal calc As Long) As StringDim TempNbr As String , exp Wie IntegerTempNbr = String $ (32, "0") DoIf calc und FirstConv (exp ) ThenMid $ ( TempNbr , 32 - exp, 1) = "1" = calc calc Xor FirstConv (exp ) Ende Ifexp = exp + 1Loop Während calcBinaryNbr = Mid $ ( TempNbr , 33 - exp) End Function
Seite 7

Verwenden Sie die Taste "F5" , um die Anwendung auszuführen. Geben Sie eine Zahl in das leere Feld neben " Geben Sie einen Hex -Nummer " und klicken Sie auf "Convert Hex auf Binär . " Wenn Sie den Code korrekt eingegeben haben , werden Sie sehen das Ergebnis in das leere Feld neben " The Binary gleichwertiges Ergebnis ist . " Wenn nicht, prüfen Sie den Code.