540 B
540 B
#"Start Ramp Pulse" := #"Enable Ramp" AND NOT #ONs;
#ONs := #"Enable Ramp";
IF #"Ramp s" <= 0 THEN
RETURN;
END_IF;
IF #"Enable Ramp" AND #"Time Pass s" < #"Ramp s" THEN
#"Time Pass s" := #"Time Pass s" + #"Scan Time";
END_IF;
IF #"Time Pass s" > #"Ramp s" THEN
#"Time Pass s" := #"Ramp s";
END_IF;
IF #"Start Ramp Pulse" THEN
#"Time Pass s" := 0;
END_IF;
IF #"Ramp Type" = 0 THEN
#"Ramp Value" := (#"Time Pass s" / #"Ramp s");
ELSE
#"Ramp Value" := (1-EXP(-#"Time Pass s" / #"Ramp s"));
END_IF;