加入收藏 在線留言 聯系我們
關注微信
手機掃一掃 立刻聯系商家
全國服務熱線18717946324

襄陽西門子工控系統授權代理商

更新時間
2024-11-22 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