西門子CPU221中央控制單元6ES7211-0BA23-0XB0/代理經銷商

西門子CPU221中央控制單元6ES7211-0BA23-0XB0/代理經銷商

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

價格波動，請來電咨詢 

串口初始化：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

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

西門子CPU221中央控制單元6ES7211-0BA23-0XB0/代理經銷商