用st语言写个简单的电气自动化

以下是一个简单的电气自动化程序，使用ST语言编写：

VAR MotorOn: BOOL := FALSE; // 电机是否开启 SensorActivated: BOOL := FALSE; // 传感器是否被触发 Counter: INT := 0; // 计数器

BEGIN // 等待传感器被触发 WHILE NOT SensorActivated DO SensorActivated := ReadSensor(); // 读取传感器状态 END_WHILE;

// 传感器被触发，开始运行电机 MotorOn := TRUE;

// 循环执行，直到计数器达到指定值 WHILE Counter < 10 DO // 更新计数器 Counter := Counter + 1;

// 等待一段时间
DELAY 1000;

// 检查传感器是否被触发
IF NOT ReadSensor() THEN
  // 传感器未被触发，停止电机
  MotorOn := FALSE;
  EXIT; // 退出循环
END_IF;

END_WHILE;

// 计数器达到指定值，停止电机 MotorOn := FALSE; END_FUNCTION

FUNCTION ReadSensor: BOOL VAR SensorValue: BOOL := FALSE; // 传感器状态

BEGIN // 读取传感器状态 SensorValue := ReadInput(1);

// 返回传感器状态 RETURN SensorValue; END_FUNCTION

在这个程序中，当传感器被触发时，电机会开始运行。程序会循环执行一定次数，每次等待一段时间，然后检查传感器是否被触发。如果传感器未被触发，则停止电机并退出循环。如果计数器达到指定值，则停止电机