'  Beispiel Funktion für SerialComInstruments
'
avr.device = atmega328p
avr.clock = 16000000   '22118400
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.1
    f = fsin(i)
    print SendString(1,i); SendString(40,i); SendString(41,f);
    print SendString(2,i); SendString(42,i); SendString(43,f);
    print SendString(90,f); SendString(44,i); SendString(60,i * 20);
    waitms 100
  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