西门子PLC通过Modbus写单个线圈，读单个线圈

西门子PLC可以通过内置的通讯模块或分离的Modbus通讯模块实现与其他设备之间的数据通讯，包括读写Modbus协议的数据。Modbus是一种工业通讯协议，支持读写线圈、离散输入、保持寄存器、输入寄存器等多种数据类型。

以下是在西门子PLC中通过Modbus写单个线圈，读单个线圈的示例代码：

写单个线圈:

FUNCTION_BLOCK WriteSingleCoil
VAR_INPUT
    SlaveAddress        : BYTE;          // Modbus从机地址
    FunctionCode        : BYTE;          // Modbus功能码，写单个线圈为0x05
    CoilAddress         : WORD;          // 线圈地址
    CoilValue           : BOOL;          // 线圈值
    ErrorFlag           : BOOL;          // 错误标志
END_VAR
VAR_OUTPUT
    None
END_VAR
VAR
    WriteRequest        : ARRAY[0..7] OF BYTE; // 用于发送Modbus写请求的数组
    WriteResponse       : ARRAY[0..7] OF BYTE; // 用于接收Modbus写响应的数组
    WriteRequestLen     : INT;                  // 消息长度
    WriteResponseLen    : INT;                  // 消息长度
    WriteWriteCRC16     : INT;                  // CRC16值
END_VAR
BEGIN
    WriteRequest[0] := SlaveAddress;
    WriteRequest[1] := FunctionCode;
    WriteRequest[2] := HIWORD(CoilAddress);
    WriteRequest[3] := LOWORD(CoilAddress);
    WriteRequest[4] := HI(CoilValue);
    WriteRequest[5] := LO(CoilValue);
    WriteWriteCRC16 := CalcCRC16(ADR(WriteRequest), 6);  // 计算CRC16
    WriteRequest[6] := LO(WriteWriteCRC16);             // 将CRC16值分解为低位字节和高位字节
    WriteRequest[7] := HI(WriteWriteCRC16);
    WriteRequestLen := 8;
    WriteResponseLen := 5;
    // 发送Modbus写请求并接收响应
    ErrorFlag := ModbusRTUMaster.WriteReadData(ADR(WriteRequest), WriteRequestLen, ADR(WriteResponse), WriteResponseLen, 1500, 3);
    IF WriteResponseLen <> 5 THEN
        ErrorFlag := TRUE;
    END_IF
    IF ErrorFlag THEN
        // 发送或接收错误，输出错误信息
        // ...
    END_IF
END_FUNCTION_BLOCK
读单个线圈:

FUNCTION_BLOCK ReadSingleCoil
VAR_INPUT
    SlaveAddress        : BYTE;          // Modbus从机地址
    FunctionCode        : BYTE;          // Modbus功能码，读单个线圈为0x01
    CoilAddress         : WORD;          // 线圈地址
    CoilValue           : BOOL;          // 线圈值
    ErrorFlag           : BOOL;          // 错误标志
END_VAR
VAR_OUTPUT
    None
END_VAR
VAR
    ReadRequest         : ARRAY[0..7] OF BYTE; // 用于发送Modbus读请求的数组
    ReadResponse        : ARRAY[0..4] OF BYTE; // 用于接收Modbus读响应的数组
    ReadRequestLen      : INT;                  // 消息长度
    ReadResponseLen     : INT;                  // 消息长度
    ReadWriteCRC16      : INT;                  // CRC16值
END_VAR
BEGIN
    ReadRequest[0] := SlaveAddress;
    ReadRequest[1] := FunctionCode;
    ReadRequest[2] := HIWORD(CoilAddress);
    ReadRequest[3] := LOWORD(CoilAddress);
    ReadRequest[4] := 0;    // 读一个线圈
    ReadRequest[5] := 1;    // 线圈数量为1
    ReadWriteCRC16 := CalcCRC16(ADR(ReadRequest), 6);  // 计算CRC16
    ReadRequest[6] := LO(ReadWriteCRC16);             // 将CRC16值分解为低位字节和高位字节
    ReadRequest[7] := HI(ReadWriteCRC16);
    ReadRequestLen := 8;
    ReadResponseLen := 4;
    // 发送Modbus读请求并接收响应
    ErrorFlag := ModbusRTUMaster.WriteReadData(ADR(ReadRequest), ReadRequestLen, ADR(ReadResponse), ReadResponseLen, 1500, 3);
    IF ReadResponseLen <> 4 THEN
        ErrorFlag := TRUE;
    END_IF
    IF ErrorF