國產(chǎn)plc-vb與海為通訊源程序講解

1、VB 與海為PLC 通訊源程序講解作者：廈門海為科技在做自動(dòng)化工程項(xiàng)目時(shí)常常需要用上位機(jī)對(duì) PLC 進(jìn)行，如果是大的工程項(xiàng)目可以使用組態(tài)來完成，但對(duì)中小項(xiàng)目為了節(jié)約成本，可以采用自己寫上位機(jī)程序來完成對(duì) PLC 的。海為提供了一個(gè)海為 PLC 的通訊控件，通過這個(gè)控件實(shí)現(xiàn)上位機(jī)與海為 PLC 之間的通訊十分方便，它封裝了Modbus 通訊協(xié)議和 HaiwellBus 協(xié)議，以點(diǎn)的形式實(shí)現(xiàn)對(duì)海為PLC 的數(shù)據(jù)，對(duì)每個(gè)點(diǎn)可以定義它的名稱/數(shù)據(jù)類型/小數(shù)長度/點(diǎn)注釋等，不必去了解 Modbus 通訊協(xié)議和 HaiwellBus 協(xié)議的具體內(nèi)容，只要有上位機(jī)編程經(jīng)驗(yàn)就可以完成。www PLCworld

2、 cn海為PLC 的通訊控件和例子源程序可以到海為（/download.asp）的“中心”。下面以VB 為例介紹該控件的使用，新建一個(gè) VB 工程，添加 2 個(gè)窗口如下圖:www PLCworld cn窗口 1 的程序如下：Option Explicit啟動(dòng)跑馬燈按鈕Private Subd1_Click()啟動(dòng)跑馬燈，M0 置 1，點(diǎn)序號(hào) 30m1.HWPLCs(1).SetPoValue 30, 1EndSub停止跑馬燈按鈕Private Subd2_Click()www PLCworld cn停止跑馬燈，M1 置 1，點(diǎn)序號(hào) 31m1.HWPLCs(1).SetPoValue 31, 1

3、EndSub啟動(dòng)采樣按鈕Private Subd3_Click()m1 是海為PLC 通訊控件名稱，Timer1 是畫面刷新定時(shí)器m1.Run Notm1.RunFlagTimer1.Enabled =m1.RunFlagIfm1.RunFlag Thend3.Caption = 停止采樣Sh2.FillColor = vbGreen 采樣指示燈綠色Elsewww PLCworld cnommand3.Caption = 啟動(dòng)采樣Sh2.FillColor = vbWhite 采樣指示燈紅色End IfEndSub窗口 1 裝載Private Sub Form_Load()Dim i As L

4、ong添加 1 臺(tái)PLC，PLC 地址為 1，名稱為“1 號(hào)PLC”m1.HWPLCs.AddPLC 1, 1 號(hào)PLC在“1 號(hào)PLC”下增加采樣點(diǎn)For i = 0 To 15m1.HWPLCs(1).AddPoy & i 增加采樣點(diǎn) Y0-Y15Nextwww PLCworld cn在“1 號(hào)PLC”下增加其他離散的采樣點(diǎn)m1.HWPLCs(1).AddPosv0, , 當(dāng)前掃描時(shí)間0.1msm1.HWPLCs(1).AddPosv1, , 最小掃描時(shí)間0.1msm1.HWPLCs(1).AddPosv2, , 最大掃描時(shí)間0.1msm1.HWPLCs(1).AddPosv12, Yea

5、r, 年m1.HWPLCs(1).AddPosv13, Month, 月m1.HWPLCs(1).AddPosv14, Day, 日m1.HWPLCs(1).AddPosv15, Hour, 時(shí)m1.HWPLCs(1).AddPosv16, Minute, 分m1.HWPLCs(1).AddPosv17, Second, 秒m1.HWPLCs(1).AddPosv18, k, m1.HWPLCs(1).AddPosm3, , 10ms 時(shí)鐘脈沖m1.HWPLCs(1).AddPosm4, , 100ms 時(shí)鐘脈沖m1.HWPLCs(1).AddPosm5, , 1s 時(shí)鐘脈沖www PLCwo

6、rld cnm1.HWPLCs(1).AddPom0, Start, 跑馬燈啟動(dòng)m1.HWPLCs(1).AddPom1, Stop, 跑馬燈停止m1.HWPLCs(1).AddPov0m1.HWPLCs(1).AddPov2m1.HWPLCs(1).AddPo實(shí)數(shù)類型為 5v100, , 實(shí)數(shù)例子, REAL m1.HWPLCs(1).AddPoccv50, , 32 位計(jì)數(shù)器m1.HWPLCs(1).AddPoccv100, , 16 位計(jì)數(shù)器將點(diǎn)加到 Listview 中顯示, Y0-Y1516 個(gè)點(diǎn)不加入，用指示燈來顯示狀態(tài)Dim Newitem As ListItemFor i =

7、17 Tom1.HWPLCs(1).Po CountSet Newitem = ListView1.ListItems.Add(, ,i)Newitem.SubItems(1) =m1.HWPLCs(1).iPos(i).PoAddresswww PLCworld cnNewitem.SubItems(2) =m1.HWPLCs(1).iPos(i).PoNameNewitem.SubItems(4) =m1.HWPLCs(1).iPos(i).PoNoteNext i將 PLC 地址和名稱用顯示Label3(0) =m1.HWPLCs(1).PLCAddressLabel3(1) =m1.H

8、WPLCs(1)ame將 16 只指示燈的以點(diǎn)名稱顯示（Y0Y15）For i = 1 To 16Label1(i - 1) =m1.HWPLCs(1).iPo s(i).Po NameNext iEndSubwww PLCworld cn雙擊列表中的點(diǎn)打開窗口 2，對(duì)該點(diǎn)的值進(jìn)行修改Private Sub ListView1_DblClick()Dim i As LongIf Not ListView1.SelectedItem Is NothingTheni = ListView1.SelectedItem.Index + 16Form2.vPo Index = iForm2.Captio

9、n = 寫入值 &m1.HWPLCs(1).iPo s(i).Po NameForm2.Label1.Caption = 寫入值 &m1.HWPLCs(1).iPos(i).PoName & ：Form2.Text1 =m1.HWPLCs(1).iPos(i).PoValueForm2.Show 1End IfEndSubwww PLCworld cnTimer1 是畫面刷新定時(shí)器Private Sub Timer1_Timer()刷新值Dim i As Long刷新 Y0-Y15 值For i = 1 To 16IfThenm1.HWPLCs(1).iPos(i).Po Value = 1S

10、h1(i - 1).FillColor = vbRed 值=1，為真ElseSh1(i - 1).FillColor = vbWhite 值=0，為假End IfNext i刷新其他點(diǎn)值For i = 17 Tom1.HWPLCs(1).Po Countwww PLCworld cnListView1.ListItems(i - 16).SubItems(3) =m1.HWPLCs(1).iPo s(i).PoValueNext iEndSub窗口 2 的程序如下：Option ExplicitPublic vPo Index As Long 公共變量，被雙擊點(diǎn)的序號(hào)確定按鈕Private Subd1_Click()If Text1.Text = Then Exit Sub按確定，則寫入點(diǎn)的值m1.HWPLCs(1).SetPoValue vPo Index,Text1.Textwww PLCworld cnUnload MeEndSub取消按鈕Private Subd2_Click()Unload MeEndSubPrivate Sub Text1_GotFocus()Text1