西門子S7-1200模塊6ES7241-1CH32-0XB0

西門子S7-1200模塊6ES7241-1CH32-0XB0

專業銷售西門子S7-200/300/400/1200/1500PLC，ET200分布式I/O:ET200S、ET200M、ET200SP、ET200PRO、3RW系列軟啟動器(3RW30/3RW40/3RW44/3RW31)、3RK系列電機啟動器、數控系統、變頻器(MM420/MM430/MM440/S110/S120/G120/G120C/V10/V20/V60/V80/V90/G130/G150)、人機界面、觸摸屏、伺服、電機、西門子通訊電纜、現場總線、DP接頭、工控機，西門子低壓電器，儀器儀表等，并可提供西門子維修服務，歡迎來電垂詢。

作為****的工業自動化和數字化解決方案提供商，西門子PLC控制器在工業自動化領域具有廣泛的應用。作為西門子PLC控制器的全國代理商，我們引入了西門子PLC模塊總代理，提供*新的西門子PLC控制器和西門子PLC模塊，我們致力于為客戶提供*優質的西門子PLC控制器產品，同時也提供各種控制面板和自動化系統的設計、開發和集成服務，幫助客戶**生產效率和管理效益。

本通信協議應用于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 通信功能的編程實現

程序框圖如下：

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

同理利用以上程序框圖和通信協議可以完成下圖的所有功能：

西門子S7-1200模塊6ES7241-1CH32-0XB0