Pointer Byte to Float umwandeln

[DNA]

Hey,

wie silent schon erwähnte, befindet sich so ein "converter" im Trainermodul 2.0


Entweder nimmst du direkt das Trainermodul, oder du kopierst dir die nachfolgenden Funktionen:
[code=VB] '4Byte to Float
Public Function 4Byte2Float(ByVal Value As Int32)
Dim floatnumber As Single
Dim floatbytes() As Byte = BitConverter.GetBytes(Value)
floatnumber = BitConverter.ToSingle(floatbytes, 0)
Return floatnumber
End Function

'Float to 4Byte
Public Function Float24Byte(ByVal Value As Single)
Dim longvalue As Int32
Dim longbytes() As Byte = BitConverter.GetBytes(Value)
Longvalue = BitConverter.ToInt32(longbytes, 0)
Return Longvalue
End Function[/code]

Folgender Aufruf wandelt deinen 4Byte Wert in Float um:
[code=VB]
Dim Float As Single
Dim 4Byte As Int32

4Byte = *HIER DER 4Byte WERT*
Float = 4Byte2Float(4Byte)[/code]

Und dieser folgende Aufruf macht das ganze wieder rückgängig:
[code=VB]
Dim Float As Single
Dim 4Byte As Int32

Float = *HIER DER Float WERT*
4Byte = Float24Byte(Float)[/code]

Das ganze lässt sich natürlich von einem 4-Zeiler in einen 2-Zeiler verkürzen, z.B.
[code=VB]
Dim 4Byte as Int32 = *HIER DER 4Byte WERT*
Dim Float as Single = Integer2Float(4Byte)[/code]

Falls du mein Trainermodul genommen hast, dann lösch die "Converter" Funktion
raus, ich glaube da sind mir gerade einige Fehler aufgefallen :blush:

Wenn ich mal wieder mehr Zeit habe, kommt ein Update.