? Binary Coded Decimal-Werte mit einem binären Muster , um die Ziffern Null bis Neun vertreten . Als Visual Basic verwendet nicht die BCD -Datentyp , muss es nicht eine eingebaute Funktion, die BCD-Werte umwandelt Dezimalwerte . Allerdings können Sie programmieren eigene Funktion, die Eingabe als BCD-Wert formatiert akzeptiert und brechen sie in Vier-Bit- Häppchen , oder Stücke , und dann wandeln diese Knabbereien in eine Dezimalzahl . Anleitung
1
Typ " Public Function BCD_TO_INT (ByVal Eingabe As Long ) ", um Ihre Funktion zu öffnen. Verwenden Sie einen kleineren numerischen Datentyp anstelle von Long um Platz zu sparen , wenn Sie Ihr Programm nicht mit großen Zahlen zu arbeiten wissen .
2
Type " Dim Temp As Integer " und " Dim decNum als Integer" zu erklären zwei Integer in Ihrer Funktion . Type " Dim strNum als String = " "" zu erklären, einen String und initialisieren Sie sie ohne Text.
3
Type " While Not num = 0 ", um eine While-Schleife zu öffnen , die wiederholt bis die Zahl erhält die Funktion Null wird. Type " For i = 0 To 3" in der nächsten Zeile zu beginnen eine Schleife gezählt .
4
Typ "temp = num Mod 10" und "num /= 10 " auf der folgenden Zeile . Die erste Zeile wird isolieren die rechte Ziffer der BCD-Zahl und speichern Sie es in Ihrem "temp "-Variable . In der nächsten Zeile wird die Dezimalstelle der BCD-Zahl nach links zu verschieben .
5
Type " Wenn temp = 1 Then" eine bedingte Prüfung , ob das Programm auf den Wert von Add braucht bestimmt öffnen Ihre Dezimalzahl. Da müssen Sie nur hinzufügen, wenn "temp" gleich eins , beinhalten keine " elseif "-Klausel für Temp. gleich Null
6
Geben Sie den folgenden Code in Ihr "If" -Anweisung : .
Wenn temp = 1 Then
Wenn i = 0 Then
decNum + = 1
ElseIf i = 1 Then
decNum + = 2
ElseIf i = 2 Dann
decNum + = 4
ElseIf i = 3 Dann
decNum + = 8
End If
End If
Diese Bedingungen fügen Sie die entsprechende Dezimalwert auf Ihre gesamten , auf deren Grundlage der vier Bits in jedem knabbern prüft . Die " decNum " variable hält den Dezimalwert des Vier- Bit-Einheit .
7
Typ "Next i" in der nächsten Zeile zu Ihrer " for"-Schleife zu sagen, auf die nächste Stelle zu bewegen in die knabbern . Wenn Ihr Programm hat alle vier Bits geprüft , wird es die nächste Ziffer Ihrer Nachkommastelle berechnet haben . Type " strNum = decNum & strNum ", um diesen Wert auf der linken Seite der Zeichenfolge anzuhängen. Type " decNum = 0" , um diese Variable vor der nächsten Iteration des while-Schleife zurückgesetzt.
8
Typ " End While ", um Ihre While-Schleife zu schließen. Type " decNum = strNum " zu zwingen Visual Basic , um die Zeichenfolge halten Sie Ihre Dezimalwert in einen Integer umwandeln und speichern Sie es in der " decNum " Variable. Sie können dann diese Variable zu manipulieren , wie gebraucht. Geben Sie "Return decNum ", um den Dezimalwert zurück zu schicken , wo Ihr Programm namens Ihre Funktion aus . Type " End Function " , um die Funktion zu schließen.
