西門子直流調速器6SE9212-0DA40授權（中國）代理

西門子直流調速器6SE9212-0DA40授權（中國）代理

我公司致力于推廣西門子高性能自動化系統和驅動產品，所經營產品范圍包括：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平臺軟件等。公司各類產品齊全，貨量充足，能夠滿足客戶緊急大量現貨需求，保證工期進度。

價格波動，請來電咨詢 

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能夠提供串行通信的全部功能，程序西門子直流調速器6SE9212-0DA40授權（中國）代理編寫、調試簡單方便，開發速度快，該控件封裝了通信過程中的底層操作程序，用戶只需設置和監控控件的屬性和事件，就可以方便地實現異步串行通信。

采用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)

西門子直流調速器6SE9212-0DA40授權（中國）代理