RE6 Adressen

[DNA]

Weiß nicht, ob es im Trainermodul drin ist, ansonsten hier nochmal:

[code=VB]
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

Public Function Float24Byte(ByVal Value As Single)
Dim intvalue As Int32
Dim intbytes() As Byte = BitConverter.GetBytes(Value)
intvalue = BitConverter.ToInt32(intbytes, 0)
Return intbytes
End Function[/code]

Aufgerufen wird dann wie folgt:

[code=vb]
Dim FloatWert as Single
Dim 4ByteWert as Int32

FloatWert = 4Byte2Float(Dein Int Wert)
'oder andersrum
4ByteWert = Float24Byte(Dein Float Wert)
[/code]