longlong105 发表于 2012-3-24 08:16:19

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










目前正在测试，完成后上传代码，以上是西门子出的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,
         DONE                     := DB90.DBX    0.2,
         ERROR                  := DB90.DBX    0.3,
         STATUS                   := "MODBUS_CONTROL".DB_VAR);
      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,
         STATUS                   := "MODBUS_CONTROL".DB_VAR);
      NOP   0;
NETWORK
TITLE =

      A   DB90.DBX   20.2;
      FP    M      2.0;
      JNB   _001;
      L   "MODBUS_CONTROL".STATER;
      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;
      SET   ;
      SAVE;
      CLR   ;
_003: A   BR;
      )   ;
      JNB   _004;
      L   DB92.DBW    4;
      T   "MODBUS_CONTROL".STATER;
_004: NOP   0;
      A   L      0.0;
      JNB   _005;
      L   "MODBUS_CONTROL".STATER;
      L   2;
      *I    ;
      T   "MODBUS_CONTROL".STATER;
_005: NOP   0;
      A   L      0.0;
      JNB   _006;
      L   "MODBUS_CONTROL".STATER;
      L   5;
      +I    ;
      T   "MODBUS_CONTROL".STATER;
_006: NOP   0;
      A   L      0.0;
      JNB   _007;
      L   "MODBUS_CONTROL".STATER;
      T   "SEND_TEMP".RCV;
_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;
      T   "MODBUS_CONTROL".DB_VAR;
_009: NOP   0;
      A   L      0.0;
      JNB   _00a;
      CALL "cp340-1" (
         msg_db                   := 91,
         msg_dbb                  := 0,
         msg_len                  := "MODBUS_CONTROL".STATER,
         crctbl                   := 1,
         stat                     := DB90.DBX    0.7);
_00a: NOP   0;
      A   L      0.0;
      A(    ;
      O(    ;
      L   "MODBUS_CONTROL".STATER;
      L   256;
      <=I   ;
      )   ;
      O(    ;
      L   "MODBUS_CONTROL".STATER;
      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 发表于 2012-3-25 08:56:05

本帖最后由 ctl3432 于 2012-3-25 08:57 编辑

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

lystone0001 发表于 2012-3-26 08:41:41

强烈要求上传

longlong105 发表于 2012-3-26 09:27:15

lystone0001 发表于 2012-3-26 08:41 static/image/common/back.gif
强烈要求上传

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

crg2000 发表于 2014-8-28 21:28:00

请将程序打包上传啊
页: [1]
查看完整版本: 西门子CP340 做modbus RTU 主站从站 目前正在测试中