加入收藏 在线留言 联系我们
关注微信
手机扫一扫 立刻联系商家
全国服务热线18717946324

襄阳西门子工控系统授权代理商

更新时间
2024-10-21 08:00:00
价格
请来电询价
品牌
西门子
西门子
PIC
西门子
中国代理商
联系电话
18717946324
联系手机
18717946324
联系人
占雪芬
立即询价

详细介绍


襄阳西门子工控系统授权代理商

我公司致力于推广西门子高性能自动化系统和驱动产品,所经营产品范围包括:LOGO!通用模块;SIMATIC S7-200、S7-300、S7-400系列可编程控制器; SIMATIC HMI面板,工控机,编程器;工业PROFIBUS、以太网及无线通讯等相关产品;正版PCS7 软件、WINCC组态软件、STEP 7编程软件;SITOP工业开关电源;通用型、工程型变频器,直流调速装置等。随着技术的发展和产品的更替,产品的出现层出不穷,我公司也紧随西门子脚步争取为广大客户提供新的自动化产品:SIMATIC S7-1200系列PLC;SIMATIC BASIC HMI面板;G120、G130、G150、S120等全新SINAMICS家族驱动产品;PCS7 V7.1和新的STEP7 Basic平台软件等。公司各类产品齐全,货量充足,能够满足客户紧急大量现货需求,保证工期进度。

价格波动,请来电咨询 

6RA70直流调速装置

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.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
tempdata = MSComm1.bbbbb
ReDim dataread(UBound(tempdata)) As Byte
For i = 0 To UBound(tempdata)
dataread(i) = tempdata(i)
End Sub

同理利用以上程序框图和通信协议可以完成下图的所有功能:


襄阳西门子工控系统授权代理商


联系方式

  • 电  话:18717946324
  • 联系人:占雪芬
  • 手  机:18717946324
  • 微  信:18717946324