--[[ @title putm led test Demo zur Verwendung der PTP Befehle 'putm', 'getm' und der LUA Befehle 'write_usb_msg()', 'read_usb_msg()' ]] function restore() my_set_led(0) write_usb_msg("putmtest.lua beendet") print("putmtest.lua beendet") end function my_set_led(val) set_led(8,val) -- Schalte LED 8 (A590=blaue sled=val write_status() -- schreibe LED Status auf USB end function write_status() local text="LED ist aus" if sled==1 then text="LED leuchtet" end write_usb_msg(text) -- schreibe Statustext auf USB end -- Initialisierung quit=false my_set_led(0) -- schreibe Startmeldung auf USB write_usb_msg("putmtest.lua ist bereit fuer Befehle.\nSende 'putm ?' fuer Hilfe") -- Hauptschleife zum Lesen von 'putm' Nachrichten vom USB und Antworten auf USB while not quit do -- lies Nachricht von 'putm' oder 'nil' (keine Nachricht) cmd=read_usb_msg() -- Liegt eine 'putm' Nachricht vor? if cmd~=nil then -- Befehlsauswertung if cmd=="quit" then -- Hauptschleife beenden quit=true elseif cmd=="?" then -- Hilfetext auf USB write_usb_msg("putmtest Hilfe:\nquit\tbeenden\nstatus\taktueller LED Status\nled ein\tschalte LED ein\nled aus\tschalte LED aus") elseif cmd=="status" then -- LED Befehle write_status() -- Status auf USB schreiben elseif cmd=="led ein" then -- LED Befehle my_set_led(1) -- LED einschalten elseif cmd=="led aus" then -- LED Befehle my_set_led(0) -- LED ausschalten else write_usb_msg("unbekannter Befehl: "..cmd) end -- Ende Befehlsauswertung end -- Ende Hauptschleife end -- Programmende restore() -- sicheren Status für Programmende und Abbruch