西门子CP340 做modbus RTU 主站从站 目前正在测试中

longlong105

目前正在测试，完成后上传代码，以上是西门子出的modbus rtu程序！

补充内容 (2012-3-26 10:54):
FUNCTION "MODBUS_" : VOID
TITLE =
VERSION : 0.1

BEGIN
NETWORK
TITLE =



      A     DB90.DBX    0.0;
      =     L      0.0;
      BLD   103;
      A     DB90.DBX    0.1;
      =     L      0.1;
      BLD   103;
      CALL "P_SEND" , DB   120 (
           REQ                      := L      0.0,
           R                        := L      0.1,
           LADDR                    := 272,
           DB_NO                    := 91,
           DBB_NO                   := 0,
           LEN                      := "MODBUS_CONTROL".STATER[6],
           DONE                     := DB90.DBX    0.2,
           ERROR                    := DB90.DBX    0.3,
           STATUS                   := "MODBUS_CONTROL".DB_VAR[2]);
      NOP   0;
NETWORK
TITLE =
//1
//
      A     DB90.DBX    0.2;
      FP    M      2.2;
      R     DB90.DBX    0.0;
      S     DB90.DBX   20.0;
NETWORK
TITLE =



      A     DB90.DBX   20.0;
      =     L      0.0;
      BLD   103;
      A     DB90.DBX   20.1;
      =     L      0.1;
      BLD   103;
      CALL "P_RCV" , DB   121 (
           EN_R                     := L      0.0,
           R                        := L      0.1,
           LADDR                    := 272,
           DB_NO                    := 92,
           DBB_NO                   := 0,
           NDR                      := DB90.DBX   20.2,
           ERROR                    := DB90.DBX   20.3,
           LEN                      := "MODBUS_CONTROL".STATER[1],
           STATUS                   := "MODBUS_CONTROL".DB_VAR[12]);
      NOP   0;
NETWORK
TITLE =

      A     DB90.DBX   20.2;
      FP    M      2.0;
      JNB   _001;
      L     "MODBUS_CONTROL".STATER[1];
      T     MW    96;
      SET   ;
      SAVE  ;
      CLR   ;
_001: A     BR;
      S     M      2.1;
      R     DB90.DBX   20.0;
NETWORK
TITLE =

      A     M      2.1;
      =     L      0.0;
      A     L      0.0;
      JNB   _002;
      L     DB92.DBW    0;
      T     DB91.DBW    0;
_002: NOP   0;
      A(    ;
      A     L      0.0;
      JNB   _003;
      L     DB92.DBW    2;
      T     "MODBUS_CONTROL".STATER[2];
      SET   ;
      SAVE  ;
      CLR   ;
_003: A     BR;
      )     ;
      JNB   _004;
      L     DB92.DBW    4;
      T     "MODBUS_CONTROL".STATER[3];
_004: NOP   0;
      A     L      0.0;
      JNB   _005;
      L     "MODBUS_CONTROL".STATER[3];
      L     2;
      *I    ;
      T     "MODBUS_CONTROL".STATER[5];
_005: NOP   0;
      A     L      0.0;
      JNB   _006;
      L     "MODBUS_CONTROL".STATER[5];
      L     5;
      +I    ;
      T     "MODBUS_CONTROL".STATER[6];
_006: NOP   0;
      A     L      0.0;
      JNB   _007;
      L     "MODBUS_CONTROL".STATER[5];
      T     "SEND_TEMP".RCV[3];
_007: NOP   0;
NETWORK
TITLE =

      A     M      2.1;
      =     L      0.0;
      A     L      0.0;
      JNB   _008;
      L     DB92.DBW    0;
      T     DB91.DBW    0;
_008: NOP   0;
      A     L      0.0;
      JNB   _009;
      L     "MODBUS_CONTROL".STATER[6];
      T     "MODBUS_CONTROL".DB_VAR[41];
_009: NOP   0;
      A     L      0.0;
      JNB   _00a;
      CALL "cp340-1" (
           msg_db                   := 91,
           msg_dbb                  := 0,
           msg_len                  := "MODBUS_CONTROL".STATER[6],
           crctbl                   := 1,
           stat                     := DB90.DBX    0.7);
_00a: NOP   0;
      A     L      0.0;
      A(    ;
      O(    ;
      L     "MODBUS_CONTROL".STATER[6];
      L     256;
      <=I   ;
      )     ;
      O(    ;
      L     "MODBUS_CONTROL".STATER[6];
      L     4;
      >=I   ;
      )     ;
      )     ;
      S     DB90.DBX    0.0;
      A     L      0.0;
      BLD   102;
      R     M      2.1;
NETWORK
TITLE =



END_FUNCTION



补充内容 (2012-3-26 10:56):
以上代码为测试时使用的！
crc校验用的是PDF文档中的程序！
第一次使用时需要手动将 DB90.DBX0.0 =0   DB90.DBX20.0 =1   

ctl3432

不错,下来看看,
另外,可以直接显示文件名了,很好.

lystone0001

强烈要求上传

longlong105

lystone0001 发表于 2012-3-26 08:41
强烈要求上传

目前正在调试刚刚调通  我整理一下就发上来！

crg2000

请将程序打包上传啊