Durch die Schaffung einer kurzen Hilfsprogramm in Visual Basic 6.0 oder Visual Basic Express können Sie Ihre eigene Konverter bauen können Dezimalzahlen in binäre Äquivalente ändern. Alles, was erforderlich ist , um eine Schnittstelle bilden mit einem Befehl , um den Prozess und zwei Funktionen, die nach Durchführung der Operation zu starten erstellen. Die Funktionen übersetzen eine sonst aufwändige manuelle Prozess der Arbeit mit absteigenden Potenzen von zwei und Subtraktion Operationen zu einer endgültigen Binärzahl ankommen . Things You
Visual Basic 6.0 oder Visual Basic Express
brauchen anzeigen Weitere Anweisungen
1

erstellen ein ausführbares Programm in Visual Basic , indem Sie das Programm und klicken Sie auf "Datei . " Dann klicken Sie auf "Neues Projekt" und wählen Sie die Standard- EXE Art von Projekt.
2

Platz eine Schaltfläche auf dem Formular durch einen Doppelklick auf das entsprechende Werkzeug in der Toolbox. Scannen Sie die " Eigenschaften" auf der rechten Seite , und ändern Sie die Beschriftung der Schaltfläche "Konvertieren Dezimal zu Binär . "
3

auf die Schaltfläche , die jetzt zu lesen Doppelklick " Konvertieren Dezimal zu Binär " um die direkte Code - Schreiben -Fenster zu öffnen . Geben Sie die folgenden Befehle zwischen dem " Private Sub Command1_Click () " und " End Sub ", die Sie sehen : Dim DecimalNbr Wie LongDecimalNbr = InputBox ("Geben Sie die Dezimalzahl in binäre konvertieren " ) MsgBox (" Die binäre Äquivalent ist" & BinaryNbr ( DecimalNbr ) )
4

überspringen mehrere Zeilen nach den obigen Code und geben Sie den folgenden : Funktion ExpUp (ByVal exp As Long) As LongStatic Zwischenbericht (0 bis 31 ) As Long , n Wie IntegerIf Zwischenbericht (0) = 0 Theninterim (0) = 1Für n = 1 To 30interim (n) = Zwischenbericht ( n - 1) * 2Nextinterim (31) = & H80000000End IfExpUp = Zwischenbericht (exp ) End Function
5

Weiter mehrere Zeilen unter den obigen Zeilen im Code und geben dies : Funktion BinaryNbr (ByVal calc As Long) As StringDim Zwischenbericht As String , exp Wie Integerinterim = String $ (32, "0") DoIf Calc und ExpUp (exp ) ThenMid $ (Zwischen- , 32 - exp, 1) = "1" = calc calc Xor ExpUp (exp ) Ende Ifexp = exp + 1Loop Während calcBinaryNbr = Mid $ (Zwischen- , 33 - exp) End Function
6 < p> Presse "F5 ", um die Anwendung auszuführen. Klicken Sie auf die "Enter Dezimal zu Binär " -Taste. Geben Sie eine beliebige Zahl ( ganze ) und drücken Sie "Return ". Wenn Sie den obigen Code richtig eingegeben haben , werden Sie sehen das binäre Äquivalent .
7

Speichern Sie das Projekt und das Formular mit einem leicht zu merkenden Namen wie " Binary Conversion. " Dann klicken Sie auf "Datei" und "Make Binary Conversion.exe . Speichern Sie das Ergebnis auf dem Desktop für den einfachen Zugriff .