Hi PicNick,

sieht intresannt aus. Habs auch schon probiert, funktioniert soweit ganz gut mit dem senden und empfangen. Jedoch versteh ich das ganze noch nicht ganz. Bin ich der richtigen Annahme, daß das Single direkt aus dem Speicher Byte für Byte gelesen und gesendet wird? Oder lieg ich damit falsch? Ein Single besteht doch immer 4 Bytes?


Senden:
Code:
Sub Sendsingle(byval Einesingle01 As Single)

local cnt as byte
local vll as byte
Adr01 = Varptr(einesingle01)                                ' adresse von der single
 For Cnt = 1 To 4
     Vll = Inp(adr01)                                       ' lesen byte aus SRAM
     Printbin Vll;                                          ' senden
     Incr Adr01                                             ' address ++
 Next
End Sub
Empfangen:
Code:
Sub Recsingle(byval Einesingle01 As Single)

local cnt as byte
local vll as byte
Adr01 = Varptr(einesingle01)                                ' adresse von der single
 For Cnt = 1 To 4
     Inputbin Vll,                                          ' empfangen
     Out Adr01 , Vll                                        ' schreibt in SRAM
     Incr Adr01                                             ' address ++
 Next
End Sub