THEMA:

local Taster,Prop,Empf,Empfindlichkeit,erg,Alt,Neu
 
local function initForm()
	local value
	form.addRow(2)
	form.addLabel({label="Taster wählen"})
	form.addInputbox(Taster, true, function(value) Taster=value system.pSave("Taster",value) end)
	form.addRow(2)
	form.addLabel({label="Prop wählen"})
	form.addInputbox(Prop, true, function(value) Prop=value system.pSave("Prop",value) end)
	form.addRow(2)
	form.addLabel({label="Empfindlichkeit"})
	form.addIntbox(Empf,0,100,0,0,1,function(value) Empf=value Empfindlichkeit=Empf/100 system.pSave("Empf",value) end)
end
 
local function loop()
	if Taster and Prop and Empf then
		Neu=system.getInputsVal(Prop)
		if system.getInputsVal(Taster)==1 then	
			Alt=system.getInputsVal(Prop)
			if erg then
				system.setControl(1,1,0)
			end
		end
		if math.abs(Neu-Alt)>Empfindlichkeit then
			if erg then
				system.setControl(1,-1,0)
			end
		end
	end
end
 
local function init()
	Taster=system.pLoad("Taster")
	Prop=system.pLoad("Prop")
	Empf=system.pLoad("Empf") or 1
	Empfindlichkeit=Empf/100
	erg = system.registerControl(1,"Schalter","C01")
	if erg then
		system.setControl(1,-1,0)
	end
	Alt=1
	system.registerForm(1,MENU_MAIN,"Schalter",initForm)
end
 
return {init=init,loop=loop,author="Ich",version="0.01",name="Schalter"}