Hi,
Wenn ich in meiner Visual Basic 2008 Express Edition ein Hex-Code zu einem Ascii-Text konvertieren will, muss ich wohl über den Weg der Dezimalkodierung gehen, so wie ich das sehe. (Bin erst 2 Tage dabei)
Da mein Plan noch nicht sehr ausgereift ist und es eher am ersten Punkt scheitert, versuche ich mal mein Vorhaben beispielhaft zu erklären, habe ja noch keinen richtigen Code.
Ich würde die Hex-Blöcke in ihre 2 Zahlen aufteilen. Jede Zahl in den Dezimalcode bringen: Asc(Nr1) und Asc(Nr2), anschließend - je nach dem ob Zahl oder Buchstabe(IsNumeric?), -55 oder -48. (Bsp.: a1 = Asc(Nr1) - 55)
Dann das Ergebniss von der ersten Zahl mit 16 Multiplizieren, das Ergebniss der 2. Zahl mit 1. (b1 = a1 * 16) Anschließend dann beide Werte zusammen rechnen (c1 = b1 + b2) und das Ergebniss dekodieren. (TextBox2.Text = Chr(c1))
Frage: Wie teile ich die 2 Nummern des Hexadezimals eines Buchstabens in 2 Variablen ein, sodass ich damit rechnen kann? Oder überhaupt, wie ordne ich Textstellen verschiedene Variablen zu?
Grüße
Wenn ich in meiner Visual Basic 2008 Express Edition ein Hex-Code zu einem Ascii-Text konvertieren will, muss ich wohl über den Weg der Dezimalkodierung gehen, so wie ich das sehe. (Bin erst 2 Tage dabei)
Da mein Plan noch nicht sehr ausgereift ist und es eher am ersten Punkt scheitert, versuche ich mal mein Vorhaben beispielhaft zu erklären, habe ja noch keinen richtigen Code.
Ich würde die Hex-Blöcke in ihre 2 Zahlen aufteilen. Jede Zahl in den Dezimalcode bringen: Asc(Nr1) und Asc(Nr2), anschließend - je nach dem ob Zahl oder Buchstabe(IsNumeric?), -55 oder -48. (Bsp.: a1 = Asc(Nr1) - 55)
Dann das Ergebniss von der ersten Zahl mit 16 Multiplizieren, das Ergebniss der 2. Zahl mit 1. (b1 = a1 * 16) Anschließend dann beide Werte zusammen rechnen (c1 = b1 + b2) und das Ergebniss dekodieren. (TextBox2.Text = Chr(c1))
VB.NET-Quellcode
- Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
- Dim a1 As Object
- Dim b1 As Object
- Dim a2 As Object
- Dim b2 As Object
- Dim c As Object
- Dim d As Object
- 'a1 = [ERSTE.VON.2.HEX.ZAHLEN]
- b1 = Asc(a1)
- If (b1 > 47) Or (b1 < 58) Then
- b1 = b1 - 48
- ElseIf (b1 > 65) Or (b1 < 70) Then
- b1 = b1 - 55
- Else
- ' Fehlermeldung
- End If
- 'a2 = [ZWEITE.VON.2.HEX.ZAHLEN]
- b2 = Asc(a2)
- If (b2 > 47) Or (b2 < 58) Then
- b2 = b2 - 48
- ElseIf (b2 > 65) Or (b2 < 70) Then
- b2 = b2 - 55
- Else
- ' Fehlermeldung
- End If
- c = b1 * 16
- d = c + b2
- TextBox1.Text = Chr(d)End Sub
Frage: Wie teile ich die 2 Nummern des Hexadezimals eines Buchstabens in 2 Variablen ein, sodass ich damit rechnen kann? Oder überhaupt, wie ordne ich Textstellen verschiedene Variablen zu?
Grüße
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Quel“ ()