设为首页收藏本站
开启辅助访问 切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

热门： 51单片机 | 24小时必答区 | 单片机教程 | 单片机DIY制作 | STM32 | Cortex M3 | 模数电子 | 电子DIY制作 | 音响/功放 | 拆机乐园 | Arduino | 嵌入式OS | 程序设计

搜索
»论坛 › 嵌入式/单片机论坛 › 51单片机 › 组态王单片机ASCII协议编程源码与仿真(含注解)
返回列表 发新帖
查看: 4872|回复: 3
打印 上一主题 下一主题
收起左侧

组态王单片机ASCII协议编程源码与仿真(含注解)

[复制链接]
跳转到指定楼层
楼主
ID:386025 发表于 2018-8-14 08:54 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
组态王51单片机ASCII协议编程
仿真原理图如下（proteus仿真工程文件可到本帖附件中下载）


单片机源程序如下:
  1. #define uchar unsigned char
  2. #define uint unsigned int
  3. #define tim0 -50000
  4. #define BPS57600 -1          //11.0592
  5. #define BPS28800 -2          //11.0592
  6. #define BPS19200 -3          //11.0592
  7. #define BPS9600 -6          //11.0592
  8. #define BPS4800 -12          //11.0592
  9. //////////////////////////////////////////////////////////////
  10. //支持字节和字类型，由于他的浮点怪异所以不支持
  11. idata uchar DatB[4];   //组态字节
  12. idata uint  DatW[4];   //组态整数
  13. idata float DatF[4];   //组态浮点
  14. uchar Addr;

  16. bit RECV=0;
  17. idata uchar Rbuf[40],Rptr,Rnum;
  18. idata uchar Tbuf[40],Tptr,Tnum;
  19. code uchar asc[]="0123456789ABCDEF";

  21. uchar AscHex(uchar m)
  22. {
  23.   if(m>='0' && m<='9') return m-'0';
  24.   else if(m>='A' && m<='F') return m-'A'+10;
  25.   else if(m>='a' && m<='f') return m-'a'+10;
  26.   return 0;
  27. }

  29. uchar AscByte(uchar p) //ASC变BYTE
  30. {
  31.   uchar x1,x2;
  32.   x1=AscHex(Rbuf[p]);
  33.   x2=AscHex(Rbuf[p+1]);
  34.   return x2+x1*16;
  35. }

  37. void ByteAsc(uchar p)  //BUYE变ASC
  38. {
  39.   Tbuf[Tnum++]=asc[p>>4];
  40.   Tbuf[Tnum++]=asc[p&15];
  41. }

  43. bit ChkLRC() //接收数据包效验
  44. {
  45.   uchar i,d,s=0;
  46.   for(i=0;i<Rnum-2;i++) s^=Rbuf[i];
  47.   d=AscByte(Rnum-2);
  48.   return s==d;
  49. }

  51. void SetLRC() //发送数据包效验并发送
  52. {
  53.   uchar i,s=0;
  54.   for(i=0;i<Tnum;i++) s^=Tbuf[i];
  55.   ByteAsc(s);
  56.   Tbuf[Tnum++]=0x0d;  //添加包结束符
  57.   SBUF=0x40;          //发送包起始并启动串口发送
  58. }

  60. void serial() interrupt 4 using 2  //串口数据收发
  61. {
  62.   uchar m;
  63.   if(RI)   //接收部分
  64.   {
  65.     RI=0; m=SBUF;
  66.         if(m==0x40)      //帧开始
  67.         {
  68.           Rptr=0; Rnum=0;
  69.         }
  70.         else if(m==0x0D) //帧结束
  71.         {
  72.           RECV=1;
  73.         }
  74.         else if(Rnum<40) //包长限制
  75.         {
  76.           Rbuf[Rptr++]=m;
  77.           Rnum++;
  78.         }
  79.   }
  80.   if(TI)   //发送部分
  81.   {
  82.     TI=0;
  83.     if(Tnum>0)
  84.         {
  85.           SBUF=Tbuf[Tptr++];
  86.           Tnum--;
  87.         }
  88.   }
  89. }

  91. //////////////////////////////////////////////////////

  93. void KingASC()       //通信协议的处理程序
  94. {
  95.   uint p,x0,x1,x2;
  96.   uchar n,cmd,i;
  97.   uchar *s;
  98.   cmd=AscByte(2)&0xf;
  99.   p=AscByte(4)*256+AscByte(6);  
  100.   n=AscByte(8);
  101.   if((cmd&1)==0)     //组态王从单片机读数据
  102.   {
  103.     Tnum=0; Tptr=0;
  104.         ByteAsc(Addr);
  105.         ByteAsc(n);
  106.     switch(cmd&0x0c)
  107.         {
  108.           case 0x00:   //字节变量处理
  109.             s=(uchar*)DatB+p;
  110.         for(i=0;i<n;i++)
  111.                   ByteAsc(s[i]);
  112.                 break;
  113.           case 0x04:   //字变量处理
  114.             s=(uchar*)DatW+2*p;
  115.         for(i=0;i<n/2;i++)
  116.                 {
  117.                   ByteAsc(s[2*i]);
  118.                   ByteAsc(s[2*i+1]);
  119.                 }
  120.                 break;
  121.           case 0x08: //浮点变量处理
  122.           case 0x0c: //浮点变量处理
  123.             s=(uchar*)DatF+4*p;
  124.         for(i=0;i<n/4;i++)
  125.                 {
  126.           x1=s[4*i]&0x80;
  127.           x2=s[4*i]<<1;
  128.           x2+=(s[4*i+1])>>7;
  129.                     ByteAsc(x1+x2-126);
  130.                   ByteAsc((s[4*i+1])|0x80);
  131.                   ByteAsc(s[4*i+2]);
  132.                   ByteAsc(s[4*i+3]);
  133.                 }
  134.                 break;
  135.         }
  136.         SetLRC();
  137.   }
  138.   else              //组态王向单片机写数据
  139.   {
  140.     switch(cmd&0x0c)
  141.         {
  142.           case 0x00: ////字节变量处理
  143.             s=(uchar*)DatB+p;
  144.         for(i=0;i<n;i++)
  145.                   s[i]=AscByte(10+2*i);
  146.                 break;
  147.           case 0x04: //字变量处理
  148.             s=(uchar*)DatW+2*p;
  149.             for(i=0;i<n/2;i++)
  150.                 {
  151.                   s[2*i]=AscByte(10+4*i);
  152.                   s[2*i+1]=AscByte(12+4*i);
  153.                 }
  154.                 break;
  155.           case 0x08: //浮点变量处理
  156.           case 0x0c: //浮点变量处理
  157.             s=(uchar*)DatF+4*p;
  158.             for(i=0;i<n/4;i++)
  159.                 {
  160.                   x0=AscByte(10+8*i);
  161.                   x1=x0&0x80;
  162.                   x2=x0&0x7f;
  163.           x2=x2+126;
  164.           x0=x1|(x2>>1);
  165.           s[4*i]=x0;
  166.                   x0=AscByte(12+8*i)&0x7f;
  167.           if(x2&1) x0=x0|0x80;
  168.                   s[4*i+1]=x0;
  169.                   s[4*i+2]=AscByte(14+8*i);
  170.                   s[4*i+3]=AscByte(16+8*i);
  171.                 }
  172.                 break;
  173.         }
  174.     Tnum=0; Tptr=0;
  175.         ByteAsc(Addr);
  176.     Tbuf[Tnum++]='#';
  177.     Tbuf[Tnum++]='#';
  178.         SetLRC();
  179.   }
  180.   Rnum=0; Rptr=0;
  181. }

  183. void timer0() interrupt 1  //定时对串口收到的数据包进行处理
  184. {
  185.   TH0=tim0>>8; TL0=tim0;
  186.   if(RECV)
  187.   {
  188.     RECV=0;
  189.     if(ChkLRC()) //先进行数据效验
  190.     {
  191.       if(AscByte(0)==Addr) KingASC();  //地址是本机则进行协议的处理
  192.     }
  193.   }
  194. }

  196. void Init() //对定时器及串口进行初始化
  197. {
  198.   EA=1; ES=1; ET0=1;
  199.   TMOD=0X21; IP=0x10;
  200.   SCON=0X50; PCON=0X80;     
  201.   TH1=BPS19200; TR1=1;   //串口波特率的设置
  202.   TH0=tim0>>8; TL0=tim0; TR0=1;
  203. }



  207. 主函数：
  208. #include <reg52.h>
  209. #include <glzxj.h>  //对协议的引用

  211. ///////////////////////////////////////////////////////
  212. main()
  213. {
  214.   Init(); //资源的初始化
  215.   DatB[0]=0xff; DatB[1]=0xff;
  216.   DatW[0]=123;  DatW[1]=234;
  217.   DatW[2]=345;  DatW[3]=456;
  218.   DatF[0]=-1.123;  DatF[1]=-1.145;
  219.   DatF[2]=10.123;  DatF[3]=100.145;
  220.   Addr=1; //单片机地址设置
  221.   while(1)
  222. ……………………

  224. …………限于本文篇幅 余下代码请从51黑下载附件…………
复制代码

所有资料51hei提供下载:
组态王单片机ASCII协议编程.rar (25.66 KB, 下载次数: 102)


评分

参与人数 1黑币 +30 收起 理由
2bsheep + 30 赞一个！

查看全部评分

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏1 分享淘帖 顶顶1 踩踩
回复

使用道具 举报

沙发
ID:380052 发表于 2018-8-29 23:22 | 只看该作者
非常感谢楼主的分享
回复

使用道具 举报

板凳
ID:343192 发表于 2019-7-6 14:40 | 只看该作者
组态王的那部分怎么做，想知道组态王怎么和Proteus连接起来
回复

使用道具 举报

地板
ID:728133 发表于 2020-4-13 13:03 | 只看该作者
是我需要的
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|51黑电子论坛 |51黑电子论坛6群 QQ 管理员QQ:125739409;技术交流QQ群281945664

Powered by 单片机教程网

快速回复 返回顶部 返回列表