'  Beispiel Funktion für SerialComInstruments
'
avr.device = atmega328p
avr.clock = 16000000
avr.stack = 100
uart.baud = 115200
uart.Send.enable

Dim i, f as single

do                           ' Erzeugt Rampe (i) und Sinus (f)
  for i =0 to 6.28 step 0.02
    f = fsin(i)
    print SendString(1,i);SendString(90,f);
    waitms 10
  next
loop



' Funktion erzeugt den kompletten Protokoll-String
function SendString(InstrNr as byte, MWert as single) as string
return "#" + Str(InstrNr) + "M" + str(MWert) + "<"
endfunc