在codesys里用ST语言写一段通信程序，通过PLC的串口模块与RS485电压表进行通信

以下是一个示例程序，使用ST语言编写，在PLC的串口模块与RS485电压表进行通信：

PROGRAM RS485_Communication
VAR
    SerialPort : SERIAL_PORT; // 定义串口对象
    TxBuffer : ARRAY[0..255] OF BYTE; // 发送缓冲区
    TxLength : INT; // 发送数据长度
    RxBuffer : ARRAY[0..255] OF BYTE; // 接收缓冲区
    RxLength : INT; // 接收数据长度
END_VAR

// 初始化串口配置
SerialPort.Open(DEVICE := 'COM1',
                BAUDRATE := 9600,
                BYTESIZE := 8,
                PARITY := SERIAL_PORT.PARITY_NONE,
                STOPBITS := SERIAL_PORT.STOPBITS_ONE);

// 发送数据函数
FUNCTION SendData(Data : ARRAY[0..255] OF BYTE; Length : INT) : BOOL
VAR
    i : INT;
    Success : BOOL := TRUE;
BEGIN
    // 发送数据
    FOR i := 0 TO Length - 1 DO
        Success := SerialPort.Write(Data[i]);
        IF NOT Success THEN
            EXIT;
        END_IF
    END_FOR

    // 等待发送完成
    REPEAT
        SerialPort.IsSending(TIMEOUT := T#1s);
    UNTIL NOT SerialPort.IsSending();

    RETURN Success;
END_FUNCTION

// 接收数据函数
FUNCTION ReceiveData(Length : INT) : BOOL
VAR
    i : INT;
    Success : BOOL := TRUE;
BEGIN
    // 等待接收完成
    REPEAT
        SerialPort.IsReceiving(TIMEOUT := T#1s);
    UNTIL NOT SerialPort.IsReceiving();

    // 接收数据
    FOR i := 0 TO Length - 1 DO
        Success := SerialPort.Read(RxBuffer[i]);
        IF NOT Success THEN
            EXIT;
        END_IF
    END_FOR

    RETURN Success;
END_FUNCTION

// 主程序
IF SerialPort.IsOpen THEN
    // 准备要发送的数据
    TxBuffer[0] := 0x01; // 地址
    TxBuffer[1] := 0x03; // 功能码
    TxBuffer[2] := 0x00; // 起始地址高位
    TxBuffer[3] := 0x00; // 起始地址低位
    TxBuffer[4] := 0x00; // 寄存器数量高位
    TxBuffer[5] := 0x01; // 寄存器数量低位
    // 计算CRC校验码
    // ...
    TxBuffer[6] := ...; // CRC校验码高位
    TxBuffer[7] := ...; // CRC校验码低位
    TxLength := 8;

    // 发送数据
    IF SendData(TxBuffer, TxLength) THEN
        // 接收数据
        RxLength := 5; // 接收5个字节的数据
        IF ReceiveData(RxLength) THEN
            // 处理接收到的数据
            // ...
        END_IF
    END_IF
END_IF

在这个示例程序中，我们首先定义了一个串口对象 `SerialPort`，并使用 `Open` 方法初始化串口配置，指定串口为 `COM1`，波特率为 `9600`，数据位为 `8`，无校验位，停止位为 `1`。

接着，我们定义了两个缓冲区 `TxBuffer` 和 `RxBuffer`，分别用于发送和接收数据。在主程序中，我们准备了要发送的数据，计算校验码后，使用 `SendData` 函数发送数据，并等待发送完成。然后，我们调用 `ReceiveData` 函数接收数据，并处理接收到的数据。

需要注意的是，这里的程序只是一个示例，具体的通信协议和数据格式需要根据使用的电压表而定。同时，CRC校验的计算方法也需要根据具体的协议来实现。