Svenska ElektronikForumet

Kod: Markera allt

PROGRAM PLC_PRG
VAR
	OnePush					: R_TRIG;
	Timer_3_Sec_Reset		: TON;
	AddTime					: TIME;
	Timer_Set_Solenoid	: TP;
	RunCycle					: BOOL;
	Solenoid					: BOOL;
	Knapp						: BOOL;
END_VAR


(* Timer för att dra solenoid *)
Timer_Set_Solenoid(IN:=RunCycle, PT:=AddTime);

(* Utgång för solenoid, när Timern är aktiverad, och inom tidsramen så drar utgången *)
Solenoid := Timer_Set_Solenoid.Q;

(* R_TRIG funktion för att endast detekera en puls på knappen *)
OnePush(CLK := Knapp);

(* När Timern för solenoiden har räknat upp så nollställs timerfunktionen *)
RunCycle := Timer_Set_Solenoid.Q;

(* IF sats för att kontrollera att knappen har tryckts in och att tiden inte överstiger 50 sekunder *)
IF (OnePush.Q = TRUE) AND (Addtime < T#50s) THEN
	(* Adderar 10 sekunder per tryck *)
	AddTime := AddTime + T#10s;
	(* Om inte timern har startat så sätts den till aktiv *)
	RunCycle := TRUE;
END_IF;

(* Timer för att kontrollera hur länge knappen hålls in, 3 sekunder aktiverar timerns utgång *)
Timer_3_Sec_Reset(IN:=Knapp, PT:=T#3s);

(* När 3 sekunders timern är aktiverad och tiden uppfylld så nollställs allt. *)
IF Timer_3_Sec_Reset.Q = TRUE THEN
	(* Nollställer den akumlerade tiden *)
	AddTime := T#0s;
	(* Nollställer solenoiden och timern om denna är aktiverad *)
	RunCycle := FALSE;
END_IF;