Hallo Frank,
danke damit bin ich weiter gekommen, meine Lösung ist folgende:
B4X:
Sub Process_Globals
Dim Conv As ByteConverter
End Sub
Sub Globals
End Sub
Sub Activity_Create(FirstTime As Boolean)
Msgbox(ConvertHexToFloat("C7F12064"),"Floats:")'soll -123456.78 sein
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub ConvertHexToFloat(Hex As String)
Dim fp(0) As Float
fp = Conv.FloatsFromBytes(Conv.HexToBytes(Hex))
Return Round2(fp(0),2)
End Sub
Funktioniert wie gewünsch. Danke für de Tipp !
Norman
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.