[VB] Hex in Float konvertieren

[stotterer09]

Hallo ich würde gerne einen 4byte hex wert in einen Float konvertieren
Andersherum ist das ganz einfach:

PHP Code:

TextBox2.Text = BitConverter.ToString(BitConverter.GetBytes(Convert.ToSingle(TextBox1.Text)))
//Textbox1 ist die Eingabe und Textbox2 die Ausgabe 


Mein code ist bisjetzt so Ich habe das mit der Klasse(so verstanden das ich erst alle hexwerte splitten muss weil da immer ein "-" zwischen den hex teilen ist:

PHP Code:

    Dim test As String()
    Dim byte1 As String

        test = Split(TextBox1.Text, "-")//Textbox1 ist die Eingabe
        byte1 = test(0) + test(1) + test(2) + test(3)



        Dim s As Single = Convert.ToSingle(byte1) 


wenn ich das aber ausführe kommt bei

PHP Code:

        Dim s As Single = Convert.ToSingle(byte1) 


"Die Eingabezeichenfolge hat das Falsche Format"

Aber welches andere Format soll ich bitte benutzen?


Dnake für eure Hilfe


Edit: Damit es nicht zur Verwirrung kommt "Single"= "Float"

[Requi]

 Private Function ConvertHexToSingle(ByVal hexValue As String) As Single
        Try
            Dim iInputIndex As Integer = 0
            Dim iOutputIndex As Integer = 0
            Dim bArray(3) As Byte
 
            For iInputIndex = 0 To hexValue.Length - 1 Step 2
                bArray(iOutputIndex) = Byte.Parse(hexValue.Chars(iInputIndex) & hexValue.Chars(iInputIndex + 1), Globalization.NumberStyles.HexNumber)
                iOutputIndex += 1
            Next
 
            Array.Reverse(bArray)
 
            Return BitConverter.ToSingle(bArray, 0)
        Catch ex As Exception
            Throw New FormatException("The supplied hex value is either empty or in an incorrect format. Use the following format: 00000000", ex)
        End Try
 
    End Function

Das hat google ausgespuckt

[SwarN]

Ganz ganz wichtig,

Schreib oben 1. Zeile als aller erstes:

Option Strict On

Für anstehende Projekte würde ich dir empfehle das generell einzuschalten indem du:

Extras -> Options -> Projekte und Projektmappen -> VB-Standard -> Options Strict ON + Option Explicit ON

machst.

[stotterer09]

Originally Posted by Requi

 Private Function ConvertHexToSingle(ByVal hexValue As String) As Single
        Try
            Dim iInputIndex As Integer = 0
            Dim iOutputIndex As Integer = 0
            Dim bArray(3) As Byte
 
            For iInputIndex = 0 To hexValue.Length - 1 Step 2
                bArray(iOutputIndex) = Byte.Parse(hexValue.Chars(iInputIndex) & hexValue.Chars(iInputIndex + 1), Globalization.NumberStyles.HexNumber)
                iOutputIndex += 1
            Next
 
            Array.Reverse(bArray)
 
            Return BitConverter.ToSingle(bArray, 0)
        Catch ex As Exception
            Throw New FormatException("The supplied hex value is either empty or in an incorrect format. Use the following format: 00000000", ex)
        End Try
 
    End Function

Das hat google ausgespuckt

ok mit dem Kommt was anderes raus als was ich als input hab
Ich habe erst 1.1212 zu Hex konvertiert dann kam 00-30-2F-46 raus
das habe ich dann mit der von dir gennanten funktion wieder zurück konvertiert und habe dann aber nichtmehr 1.1212 sondern einen Kleineren Wert mit einer viel zulangen Nachkommastelle für Float

Edit: Mir ist aufgefallen wenn ich das was da rauskomme wieder in hex umwanndle und das dann wieder in float das ich dann meinen Anfangswert ohne Komma bekomm aber woran liegt das??

[Requi]

Vielleicht ist es ja nicht in 4 Bytes wie du es möchtest.

Mit dem Kram hab ich noch nix zu tun gehabt.

[stotterer09]

Originally Posted by Requi

Vielleicht ist es ja nicht in 4 Bytes wie du es möchtest.

Mit dem Kram hab ich noch nix zu tun gehabt.

stimmt des könnte sein würd mich aber wundern da ich gedacht hab float sind immer 4bytes groß

[Requi]

Schreibs halt so um, dass es 2 mal konvertiert xD

[kissein]

byte[] bytes = new byte[]{ 0x00, 0x30, 0x2F, 0x46 }; 
if (BitConverter.IsLittleEndian) {
    Array.Reverse(bytes); 
}
float myFloat = BitConverter.ToSingle(bytes, 0);

ist ungetestet, sollte aber so funktionieren, muss nur noch in vb übertragen werden

[stotterer09]

Originally Posted by kissein

byte[] bytes = new byte[]{ 0x00, 0x30, 0x2F, 0x46 }; 
if (BitConverter.IsLittleEndian) {
    Array.Reverse(bytes); 
}
float myFloat = BitConverter.ToSingle(bytes, 0);

ist ungetestet, sollte aber so funktionieren, muss nur noch in vb übertragen werden

ja funkt ich bin auch n harter vollspast -.- ich hab vergessen das man die hex werte dann von hintenlesen muss(also umgekehrt eingeben um das richtige rauszubekommen -.- ich spast


Der von requi hätt auch funktioniert wenns ned an meiner beschränktheit gescheitert wäre danke euch beiden kann geclosed werden


Edit: wenns jemanden intressiert in vb sieht das dann so aus
Textbox1 ist eingabe textbox2 die ausgabe

PHP Code:

    Dim ByteArray As String()
        ByteArray = Split(TextBox1.Text, "-")
        Dim bytes As Byte() = New Byte() {"&H" & ByteArray(3), "&H" & ByteArray(2), "&H" & ByteArray(1), "&H" & ByteArray(0)}


        If BitConverter.IsLittleEndian Then
            Array.Reverse(bytes)
        End If
        Dim float As String
        float = Convert.ToString(BitConverter.ToSingle(bytes, 0))
        Dim i As Integer = float.Length - 4
        Dim Vorkommastelle As Integer = float.Substring(0, i)
        Dim Nachkommastelle As String = float.Substring(i, float.Length - i)
        MsgBox(Nachkommastelle)
        TextBox2.Text = Vorkommastelle & "." & Nachkommastelle 


[Requi]

Mach dir nichts draus. Mein letzter Fail ist härter.
Und ist auch nicht von mir, sondern von Tante google :

['Heaven.]

Mach mal option strict an...

Nen byte ist kein string ; O

[stotterer09]

Originally Posted by 'Heaven.

Mach mal option strict an...

Nen byte ist kein string ; O

Ja mach ich an
Ich hab auch bemerkt das man einen String , Indem ein HEX Byte steht nicht in byte konvertieren ich habs jetz eh danke

[xxfabbelxx]

closed on request