玉林西门子工控系统授权代理商
| 更新时间 2024-11-23 08:00:00 价格 请来电询价 品牌 西门子 西门子 PIC 西门子 中国代理商 联系电话 18717946324 联系手机 18717946324 联系人 占雪芬 立即询价 |
玉林西门子工控系统授权代理商
全新原装,,保修一年,提供技术服务,价格合理
本公司长期供应:德国西门子PLC可编程控制器。触摸屏,直流调速器 软启动器。数控系统。NCU数控主板。DP接头,DP电缆,伺服电机,CP5611网卡,诚信经营 价格实惠,质保一年人为损坏除外,选择上海隆彦是我们追求的目标 合作双赢,24小时恭候您的来电,
本店可开百分之十七个点的增值税发票,产品保证全新原装,质保一年
2.3 通讯协议
本通信协议应用于D08-8CZM型流量积算仪与上位机的通信,数据以16进制格式传输,波特率:9600;数据位8位;停止位:1位;效验位:无。本协议与MODBUS协议兼容,可以通过上位机显示流量积算仪的瞬时流量、累积流量、满量程、单位和阀状态(包括阀控、关闭和清洗),而且可以通过上位机设定流量积算仪的瞬时流量、使流量积算仪的累积流量清零。因此在本协议用到了MODBUS协议的命令$03(Reading 1~9words)、命令$05(Force single coil)和命令$06(Writing 1 word)。
使用命令$03可以通过上位机读流量积算仪的当前状态,其通信协议的具体格式为:
上位机 积算仪:01 03 00 02 00 08 E5 CC
各字节含义:
01: MODBUS地址;
03: 功能码03(Reading 1~9words);
00 02:起始地址,00为高8位,02为低8位;
00 08:读取的字数;
E5 CC:CRC效验值,E5为CRC的低8位,CC为高8位。
上位机 积算仪:01 03 10 (1)~(16) CRCL CRCH
各字节含义:
01:MODBUS地址;
03:MODBUS命令号;
10:上传的字节数;
(1)~(4):瞬时流量值;“00~09"表示数字“0~9",“10~19"表示“0.~9.";
(5)~(10):流量累积值;同上;
(11)~(14):满量程;同上;
(15):流量单位;00表示SCCM和SCC,01表示SCCM和SL,11表示SLM和SL;
(16):阀状态;00表示关闭,80表示阀控,FF表示清洗;
CRCL:CRC的低八位;CRCH:CRC的高8位。
3、用VB实现串行通讯玉林西门子工控系统授权代理商
3.1 MSComm控件
VB的通信控件MSComm能够提供串行通信的全部功能,程序编写、调试简单方便,开发速度快,该控件封装了通信过程中的底层操作程序,用户只需设置和监控控件的属性和事件,就可以方便地实现异步串行通信。
采用MSComm控件接收数据,按照接收方式分两种形式:事件驱动方式,定时查询方式。本例为适应流量的实时控制采用定时驱动方式,若定时器计时到,通过串行通信口向地址流量积算仪发出读写等操作命令,等待时间到则检查InBufferCount属性值来判断输入缓冲区中是否接受到了相应数目的字符,从而进行读取、判断数据合法性和数据存储、处理等操作。
3.2 通信功能的编程实现
串口初始化:MSComm1.CommPort = 1
MSComm1.SThreshold = 1
MSComm1.Settings = 9600,N,8,1
MSComm1.InBufferSize = 1024
MSComm1.OutBufferSize = 1024
MSComm1.bbbbbMode = combbbbbModeBinary
打开串口并定时发送数据命令:Private Sub Timer1_Timer()
Dim bytearray(0 To 7) As Byte
bytearray(0) = &H1
bytearray(1) = &H3
bytearray(2) = &H0
bytearray(3) = &H2
bytearray(4) = &H0
bytearray(5) = &H8
bytearray(6) = &HE5
bytearray(7) = &HCC
MSComm1.bbbbbLen = 21
MSComm1.InBufferCount = 0
MSComm1.OutBufferCount = 0
MSComm1.RThreshold = 1
MSComm1.PortOpen = True
If MSComm1.PortOpen = True Then
MSComm1.Output = bytearray
End If
End Sub
接受数据:Private Sub MSComm1_OnComm()
Do
DoEvents
Loop Until MSComm1.InBufferCount = 21
Dim dataread() As Byte
Dim tempdata As Variant
Dim str As bbbbbb
If MSComm1.CommEvent = comEvReceive Then
玉林西门子工控系统授权代理商
联系方式
- 电 话:18717946324
- 联系人:占雪芬
- 手 机:18717946324
- 微 信:18717946324