VB与永宏PLC通信源码

VB与永宏PLC通信源码
VB与永宏PLC通信源码

VB與PLC之即時控制系統詹金萬、陳嘉龍

一、前言

隨著IT產業的進步及網際網路的發展,傳統工業控制所使用之PLC控制器,具有高度的穩定性及抗雜訊的特性且配線容易及價格便宜,因此被大量應用在自動化的場所,已由單機操作朝向網路控制化發展,本文在探討網路控制化的核心技術,使PC藉由RS-232通訊協定(註1)控制PLC(如圖一),並透過VB程式語言,達到遠端控制及網路自動化控制的功能。本文以手動/自動紅綠燈控制為主題,所使用之PLC為國內永宏電機公司所製FB-PLC,內含通訊模組,因此不需額外增購,且可由該公司網站免費下載及更新階梯圖發展軟體(Winproladder)。

二、FB-PLC通訊協定

FB-PLC藉由RS-232與PLC取得介面的傳輸,其傳輸格式(註2)如圖二所示,以起始字元(ASCII 02H)與結束字元(ASCII 03H)作為整個命令傳輸及回應訊息的傳輸封包,FB-PLC總計提供15種命令格式(ASCII 40H~4EH),當主系統將命令傳至PLC後,PLC 將依據命令自動回傳所對應的訊息,如圖三所示

範例:將PLC啟動(RUN)

Master 命令

PLC

回應

三.手動/自動紅綠燈控制階梯圖程式

利用暫存器R0,R4作為綠燈時間的計數器,R1,R2作為綠燈閃爍次數及閃爍時間的計數器,R3作為黃燈停留時間計數器,Y0、Y1、Y2分別代表東西向紅、黃、綠三個

燈,Y3、Y4、Y5分別代表南北向紅、黃、綠三個燈。利用輸入X2作手動/自動的切換控制。當PLC處於自動模式時,綠燈交換分別由暫存器R0、R4控制;當PLC處於手動模式時,由輸入X1決定綠燈交換程序。紅綠燈階梯圖的設計程式如圖四所示。

圖四手動/自動紅綠燈控制階梯圖程式

四、VB 即時監程式架構及程式設計

PC藉由RS232與PLC取得連線,傳送速度設定為9600bps,整個連線設定請參考VB程式Form_Load()段。即時監控畫面設計如圖五所示,當執行即時偵測狀態按鈕時,桌面將呈現如圖六~圖九所示即時狀態圖,狀態的偵測採用輪詢(polling)方式,依序讀取PLC輸出及輸入的即時狀態,程式執行請參考VB程式SendFrame(Data, No)段;執行參數傳遞按鈕時,桌面將呈現如圖十畫面,當使用者修改參數後,執行傳遞參數按鈕,PLC 將依據新的數據執行其程序,程式執行請參考VB程式Send_Ref_Click()段。另傳送命令按鈕提供個別參數的讀取和設定及PLC執行程式的載入和存檔等多項功能,桌面呈

現如圖十一畫面,程式執行請參考VB程式SendCmd_Click()段。

圖五即時監控畫面設計圖六東西向綠燈Y0監控狀態

圖七東西向黃燈Y1監控狀態圖八南北向綠燈Y3監控狀態

圖十參數設定傳遞畫面

圖九南北向黃燈Y4監控狀態

五、結論

隨著網際網路的普及,遠端監控已是必然的趨勢,本專題所提供PC與FB-PLC間的連線,僅需在VB程式中加入網際網路物件即可達到Internet的遠距控制,亦可透過RS485介面達到遠端即時監控。

六、參考資料

1:“Vb與8051串列傳送之研製”國立瑞芳高工90年教師專題研究

2:“FB-系列RS-232 通訊協定”永宏電機股份有限公司

七、VB 程式碼

Form1程式碼如下:

Dim Status1(15) 'Input X接點的狀態

Dim Status2(12) 'Output Y接點的狀態

Dim bx(15) 'X接點狀態

Dim by(12) 'Y接點狀態

Dim Reg

Dim flag '啟動旗號

Dim flag1 '由電腦讀出PLC暫存器程式旗號命令"4A"程式

Dim flag2 '由電腦寫入PLC暫存器程式旗號命令"4B"程式

Dim page_no '暫存器頁數

Public Sub SendFrame(Data, No) '傳送通訊訊息格式()副程式

Select Case No

Case 0:

Check = Calculate_LRC(Data, 0) '計算LRC值

sendtxt = Chr$(&H2) & Trim(ClientNo) & Trim(CmdNo) & Trim(Data) & Trim(Check) & Chr$(&H3)

'開頭字元+僕站號碼+命令號碼+本文資料+偵誤值+結尾字元Case 1:

Check = Calculate_LRC(Data, 1) '計算LRC值

sendtxt = Chr$(&H2) & Trim(ClientNo) & Trim(Data) & Trim(Check) & Chr$(&H3)

'開頭字元+僕站號碼+本文資料+偵誤值+結尾字元Case 2: sendtxt = Chr$(&H2) & Trim(ClientNo) & Trim(Data) & Trim(Check_RegText) & Chr(&H3)

'開頭字元+本文資料+結尾字元

End Select

MSComm.Output = sendtxt '透過RS-232送出

End Sub

Public Function Calculate_LRC(Data, No) As String '計算LRC值()副程式

Select Case No

Case 0:

LRC = 2 + Asc(Left(ClientNo, 1)) + Asc(Mid(ClientNo, 2, 1)) + Asc(Left(CmdNo, 1)) + Asc(Mid(CmdNo, 2, 1))

'包含開頭字元Chr$(&H2)、僕站號碼與命令碼Case 1:

LRC = 2 + Asc(Left(ClientNo, 1)) + Asc(Mid(ClientNo, 2, 1))

End Select

For i = 1 To Len(Data)

LRC = LRC + Asc(Mid(Data, i, 1)) '將Data一次取一字元加入LRC中Next

LRC_Remain = LRC Mod 16 '取餘數LRC的個位數

LRC_Quotient = LRC \ 16 '取商數

LRC_Quotient = LRC_Quotient Mod 16 'LRC的十位數

Calculate_LRC = Hex(LRC_Quotient) & Hex(LRC_Remain) '回傳十六進位值

End Function

Private Sub B_Y_Click(Index As Integer) 'Y按鈕()副程式

If Index = 0 Then '如果是第0個按鈕

If by(Index) = 1 Then '原先是High,就讓它變Low

sendtxt = "424Y0000" '傳送字串多補一個0

by(Index) = 0 '更改by(Index)內容為Low的狀態Y接點狀態Else '原先是Low,就讓它變High

sendtxt = "423Y0000"

by(Index) = 1 '更改by(Index)內容為High的狀態End If

Else '如果是第1~第11個按鈕If by(Index) = 1 Then

sendtxt = "424Y000" & Format(Hex(Index), "##") '傳送字串為兩位數,不須補一個0

by(Index) = 0

Else

sendtxt = "423Y000" & Format(Hex(Index), "##")

by(Index) = 1

End If

End If

SendFrame sendtxt, 1 '傳送命令資料至RS-232

End Sub

Private Sub CmdList_Click() '命單清單選擇()副程式Select Case CmdList.ListIndex '依據命令清單來選擇命令

Case 0: CmdNo = "40"

Case 1: CmdNo = "41"

Case 2: CmdNo = "42"

Case 3: CmdNo = "43"

Case 4: CmdNo = "44"

Case 5: CmdNo = "45"

Case 6: CmdNo = "46"

Case 7: CmdNo = "47"

Case 8: CmdNo = "48"

Case 9: CmdNo = "49"

Case 10: CmdNo = "4A"

Case 11: CmdNo = "4B"

Case 12: CmdNo = "4C"

Case 13: CmdNo = "4D"

Case 14: CmdNo = "4E"

End Select

End Sub

Private Sub CmdNo_Change() '命令號碼改變()副程式Select Case CmdNo.Text '依據選擇命令顯示命令清單Case "40": CmdList.ListIndex = 0

Case "41": CmdList.ListIndex = 1

Case "42": CmdList.ListIndex = 2

Case "43": CmdList.ListIndex = 3

Case "44": CmdList.ListIndex = 4

Case "45": CmdList.ListIndex = 5

Case "46": CmdList.ListIndex = 6

Case "47": CmdList.ListIndex = 7

Case "48": CmdList.ListIndex = 8

Case "49": CmdList.ListIndex = 9

Case "4A": CmdList.ListIndex = 10

Case "4B": CmdList.ListIndex = 11

Case "4C": CmdList.ListIndex = 12

Case "4D": CmdList.ListIndex = 13

Case "4E": CmdList.ListIndex = 14

Case Else: MsgBox "無此命令!!", vbCritical, "錯誤!"

End Select

End Sub

Private Sub Command1_Click()

Form1.Hide

Form2.Show

End Sub

Private Sub Connect_Click() '同步狀態偵測()副程式

flag = 1 '設定啟動旗號

Connect.Enabled = False '同步狀態偵測按鈕失效

Do

DoEvents

SendFrame "440CY0000", 1 '要求回傳Y0000~Y000B共12個接點狀態

For i = 0 To 10 '延遲時間

DoEvents

Next

SendFrame "4410X0000", 1 '要求回傳X0000~X0010共16個接點狀Loop While (flag = 1) '重覆執行回傳X與Y接點狀態,直到[啟動旗號]被停止為止End Sub

Private Sub Form_Activate() '表單啟用()副程式

CmdList.ListIndex = 1 '預設命令為"PLC執行控制"

End Sub

Private Sub RegText_Change() 'RegText改變()副程式

Check_RegText = Calculate_LRC(RegText, 1) '計算LRC值顯示在Check_RegText上

End Sub

Private Sub SendCmd_Click() '傳送()副程式

If SendData = "" Then

MsgBo x "傳送資料不可空白!!", vbCritical, "錯誤!"

Else

CheckText = Calculate_LRC(SendData, 0) '計算LRC值顯示在檢查碼上

SendFrame SendData, 0 '傳送資料

End If

End Sub

Private Sub ClearData_Click() '清除()副程式

For i = 0 To 15

bx(i) = 0

InpX(i).BackColor = RGB(255, 255, 255) '接點全部OFF,顯示白色

Next

For i = 0 To 11

by(i) = 0

OutY(i).BackColor = RGB(255, 255, 255) '接點全部OFF,顯示白色

Next

End Sub

Private Sub EndCmd_Click() '結束()副程式

If MSComm.PortOpen = True Then

MSComm.PortOpen = False '關閉通訊埠

End If

End '程式結束

End Sub

Private Sub Form_Load() '表單載入()副程式

https://www.360docs.net/doc/2712126767.html,mPort = 1 '指定COM1作為通訊埠

MSComm.Settings = "9600,e,7,1" '設定通訊協定的格式

MSComm.PortOpen = True '開起通訊埠

MSComm.R Threshold = 1 '設定輸入緩衝區接到一個字,即起動接收事件(OnComm)

MSComm.InputLen = 0 '設定每次讀取輸入緩衝區的資料的長度,0表示每次讀取所有資料MSComm.R TSEnable = True '使Request To Send (RTS) 線有效。

'一般情況下,由電腦傳送RTS 信號到數據機,以請示准許傳送資料flag = 1 '啟動旗號

flag1 = 0 '設定讀出PLC暫存器程式旗號

flag2 = 1 '設定寫入PLC暫存器程式旗號

End Sub

Public Sub MSComm_OnComm() 'RS-232接收()副程式Do

buffer = buffer & MSComm.Input '一直接收字串,直到收到結尾字元為止Loop Until InStr(buffer, Chr(&H3))

If InStr(buffer, Chr(&H2)) Then

buffer = Right(buffer, Len(buffer) - 1) '去除開頭字元

End If

If InStr(buffer, Chr(&H3)) Then

buffer = Mid(buffer, 1, InStr(1, buffer, Chr(&H3), 1) - 1) '去除結尾字元

End If

Select Case Mid(buffer, 3, 2) '判別命令碼

Case "40": ' "PLC系統狀態"

Case "41": ' "PLC之RUN/STOP控制"

Case "42": ' "單一個單點之運作控制"

Case "43": ' "連續多個單點之抑/致能狀態讀取"

Case "44":

' "連續多個單點之狀態讀取" '顯示狀態值

XStatus = "" '清除XStatus內容

YStatus = "" '清除YStatus內容

If Len(buffer) = 23 Then '接收到Input X 的內容

For i = 0 To 15 '0~15共16個輸入端

XStatus = XStatus & Mid(buffer, 6 + i, 1)

'將16個接點的ON/OFF狀態顯示在XStatus上

If Mid(XStatus, i + 1, 1) = 1 Then

InpX(i).BackColor = RGB(255, 0, 0) '如果接點為ON,顯示紅色

bx(i) = 1

Else

InpX(i).BackColor = RGB(255, 255, 255) '如果接點為OFF,顯示白色

bx(0) = 0

End If

Next

ElseIf Len(buffer) = 19 Then '接收到Output Y 的內容

For i = 0 To 11 '0~11共12個輸出端

YStatus = YStatus & Mid(buffer, 6 + i, 1)

'將12個接點的ON/OFF狀態顯示在YStatus上

If Mid(YStatus, i + 1, 1) = 1 Then

OutY(i).BackColor = RGB(255, 0, 0) '如果接點為ON,顯示紅色

by(i) = 1

Else

OutY(i).BackColor = RGB(255, 255, 255) '如果接點為OFF,顯示白色

by(i) = 0

End If

Next

End If

Case "45": ' "連續多個單點之狀態寫入"

Case "46": ' "連續多個暫存器之資料讀取"

Case "47": ' "連續多個暫存器之資料寫入"

Case "48": ' "任意單點/暫存器混合之狀態/資料讀取"

Case "49": ' "任意單點/暫存器混合之狀態/資料寫入"

Case "4A":

' "程式存檔"

Reg = buffer '顯示暫存器內容存入Reg

flag1 = 1 '設定讀出暫存器旗標,以利Read_PLC_Click()副程式執行Case "4B":

' "程式載入"

flag2 = 1 '設定寫入暫存器旗標,以利Write_PLC_Click()副程式執行Case "4C": ' "暫存器資料存檔"

Case "4D": ' "暫存器資料載入"

Case "4E": ' "測試回傳"

Case Else: ' "未知命令" & Mid(buffer, 3, 2) & vbCrLf & buffer

End Select

End Sub

Private Sub Read_PLC_Click() '讀取PLC()副程式FileDlg.Filter = "*.txt" '預設副檔名為*.txt

FileDlg.ShowSave '顯示儲存檔案對話盒

fn = FileDlg.FileName '指定檔名fn

On Error GoTo err '如有錯誤發生,跳至錯誤處理Open fn For Append As #1 '將讀出的暫存器內容存檔

For page_no = 0 To 127 '暫存器共128頁RegTxt = "" '每次清除轉換後要存檔的Reg內容SendFrame "4A" & Format(Hex(page_no), "##"), 1

Do Until flag1 = 1 '直到電腦讀出PLC暫存器程式旗號為止DoEvents

Loop

For i = 3 To Len(Reg) - 2 '從頭開始至偵誤碼前結束If i = 4 Then

RegTxt = RegTxt & "B" '將命令"4A"改成"4B"

ElseIf i = 5 Then

If page_no < 16 Then

RegTxt = RegTxt & "0" & Hex(page_no) '少於兩碼的,補一位數的"0"

Else

RegTxt = RegTxt & Hex(page_no) '本來就是兩碼的,不須補"0"

End If

Else

RegTxt = RegTxt & Mid(Reg, i, 1) '將讀取進來的RegText轉換成要存檔的Reg End If

Next

RegText = RegTxt '顯示在RegText上

Write #1, RegText '寫入檔案

flag1 = 0 '清除旗號,等待下次再執行Next

err: '錯誤處理Close #1 '關閉檔案

End Sub

Private Sub RunCmd_Click() '執行()副程式

If MSComm.PortOpen = False Then

MSComm.PortOpen = True

End If

RunCmd.Enabled = False '執行按鈕失效

StopCmd.Enabled = True '停止按鈕有效

Connect.Enabled = True '同步狀態偵測按鈕有效

SendFrame "411", 1 '傳送命令

flag = 1 '設定[啟動旗號],執行迴圈

End Sub

Private Sub SendData_Change() '傳送資料改變()副程式

CheckSum = Calculate_LRC(SendData, 0) '計算檢查碼顯示在CheckSum上

End Sub

Private Sub StopCmd_Click() '停止()副程式

RunCmd.Enabled = True '執行按鈕有效

StopCmd.Enabled = False '停止按鈕失效

Connect.Enabled = False '同步狀態偵測按鈕有效

flag = 0 '停止[啟動旗號],跳離執行迴圈

For i = 0 To 4

SendFrame "410", 1 '為防止無法立即關閉,傳送三次命令,強迫停止Next

For i = 0 To 11

by(i) = 0

OutY(i).BackColor = RGB(255, 255, 255) '接點全部OFF,顯示白色

Next

End Sub

Form2程式碼如下:

Dim R0, R1, R2, R3, R4

Private Sub BackMain_Click()

Unload Me

Form1.Show

End Sub

Private Sub Default_Ref_Click()

EW_GreenTime = 25

GreenFlashCount = 2

GreenFlashTime = 4

Y ellowTime = 20

SN_GreenTime = 25

End Sub

Private Sub EW_GreenTime_Change()

VScrollGT_EW.V alue = EW_GreenTime

End Sub

Private Sub Form_Activate()

Default_Ref_Click

End Sub

Private Sub Form_Load()

VScrollGFT = GreenFlashTime

VScrollGFC = GreenFlashCount

VScrollYT = Y ellowTime

VScrollGT_EW = EW_GreenTime

VScrollGT_SN = SN_GreenTime

End Sub

Private Sub GreenFlashCount_Change()

VScrollGFC.Value = GreenFlashCount

End Sub

Private Sub GreenFlashTime_Change()

VScrollGFT.V alue = GreenFlashTime

End Sub

Private Sub Send_Ref_Click()

R0 = Format(Hex(EW_GreenTime), "0000")

R1 = Format(Hex(GreenFlashCount), "0000")

R2 = Format(Hex(GreenFlashTime), "0000")

R3 = Format(Hex(Y ellowTime), "0000")

R4 = Format(Hex(SN_GreenTime), "0000")

sendtxt = "4905" & "R00000" & R0 & "R00001" & R1 & "R00002" & R2 & "R00003" & R3 & "R00004" & R4 Form1.SendFrame sendtxt, 1

End Sub

Private Sub SN_GreenTime_Change()

VScrollGT_SN.V alue = SN_GreenTime

End Sub

Private Sub VScrollGFC_Change()

GreenFlashCount = VScrollGFC.V alue

End Sub

Private Sub VScrollGFT_Change()

GreenFlashTime = VScrollGFT.V alue

End Sub

Private Sub VScrollGT_EW_Change()

EW_GreenTime = VScrollGT_EW.V alue End Sub

Private Sub VScrollGT_SN_Change()

SN_GreenTime = VScrollGT_SN.V alue End Sub

Private Sub VScrollYT_Change()

Y ellowTime = VScrollYT.V alue

End Sub

Private Sub Y ellowTime_Change()

VScrollYT.V alue = Y ellowTime

End Sub

VB控件Mscomm控件与PLC进行RSModbus通讯源码

V B控件M s c o m m控件与P L C进行 R S M o d b u s通讯源码集团企业公司编码:(LL3698-KKI1269-TM2483-LUI12689-ITT289-

V B控件M s c o m m控件与P L C进行R S485(M o d b u s)通讯源码本人用的是ModbusRTU通讯模式,通过计算机串口转RS485与外围设备通行通讯,读写外围设备指定地址里的数据,从而达到自动化控制远端设备。 DimHiByteAsByte DimLoByteAsByte DimCRC16LoAsByte DimCRC16HiAsByte DimReturnData(1)AsByte DimKAsInteger DimCmdLenthAsInteger PrivateSubCommand1_Click() K=Text9.Text'写6个字节 Text13.Text="" '===========数组赋值输入代码 =============================================================== ======================== '<<算法一>> DimWriteStr()AsByte DimuAsInteger ReDimWriteStr(K+2)

Foru=0ToK WriteStr(u)=Val("&H"&Text1(u).Text) Next '<<算法二>> DimCRC_2()AsByte DimvAsInteger ReDimCRC_2(K) Forv=0ToK CRC_2(v)=Val("&H"&Text1(v).Text) Next '============================================================== ==================================== CallCRC161(CRC_2()) CallCRC16(WriteStr(),K) MSComm1.InBufferCount=0 '==========显示发送代码 =============================================================== ========================= DimmAsInteger Form=0To23 Ifm<=KThen Text8(m).Text=Hex(WriteStr(m))

VB与AB的PLC之间通讯

VB与AB的PLC之间通讯 2007-05-31 来源:西部工控网浏览:300 [推荐朋友] [打印本稿] [字体:大小] VB与AB PLC之间通讯 AB系列PLC一般都有专用驱动程序用于实现PLC和计算机之间通讯,如RSLINX 就是专门用于做这项工作,但使用RSLINX也具有一定局限性,这里提供一个使用VB编程实现PLC和计算机之间通讯程序,使用协议是DF1,可以支持Micrologix、SLC500等系列PLC。使用代码如下: Option Explicit Dim tns%, comunicating Private Sub Command1_Click() ReDim tb%(10) Dim st If ReadTable(0, tb%()) Then For st = 0 To 9 '显示结果 Text1.SelText = Str(tb%(st)) + Chr(32) Next st Text1.SelText = Chr(13) + Chr(10) End If End Sub Private Sub Command2_Click() ReDim tm%(5) tm%(0) = Rnd * 32768 tm%(1) = Rnd * 32768 tm%(2) = Rnd * 32768 tm%(3) = Rnd * 32768 tm%(4) = Rnd * 32768 If Not WriteTable(4, tm%()) Then Text1.SelText = "写入错误!!" End Sub Private Sub Exit_Click() Unload Me End End Sub Private Sub Form_Load() Comm1.PortOpen = True End Sub

VB与S7 200通讯

本文以下内容为采用VB6.0设计人机界面的工业控制计算机与S7-200PLC 自由口通信进行的方法。 常规的通过PC机,利用PLC对工艺对象的控制,大多都是在具有组态软件或通讯模块的情况下进行,但是对于一些小型的控制系统而言,由于受到简单实用和成本低的原则限制,不适合使用常规方法。利用Visual Basic结合PLC中的通信语言进行编程,实现上位机与PLC之间,在无通讯模块情况下的数据信息的双向通信传输。 SIMATIC S7-200内部集成的PPI接口物理特性为RS485,可在多种模式下工作,其中自由口通信方式是S7-200PLC的一个很有特色的功能,它可以与任何协议公开的其它设备、控制器等进行通信。上位机串口符合RS-232C标准协议,为了实现两者的通信必须进行协议转换,可以利用PC/PPI电缆连接两者,并同时完成协议转换的任务。 控制系统组成 基于VB和PLC的液压试验台监控系统结构如下图所示,主要由上位机监控系统和下位机控制系统组成。 VB6.0提供了串行端口通信控件MSComm,该控件封装了通信过程的底层操作,用户只需设置MSComm控件的属性和对相应的事件进行编程,即可完成串行通信功能。 MSComm控件提供了事件驱动和查询2种处理通信的方法,其中事件驱动方法通过设置CommEvent、Rthreshold等属性实现对MSComm控件的OnComm 事件驱动;查询方法则通常通过OutPut属性直接写输出缓冲区,且通过InPut 属性直接读输入缓冲区实现。因为事件驱动方法程序响应及时、可靠性高,所以本系统采用事件驱动方法实现工控机与PLC之间的串行通信。 1.S7-200PLC的自由口通信 西门子S7-200系列PLC的CPU支持多样的通信协议,如PPI接口协议、

VB与PLC的通信

利用VB6.0 实现PC 与三菱PLC 的通信 本文介绍的 PC 与三菱 FX 系列 PLC 通信,是通过 PLC 的编程口与 PC 机的串口进行的,采用编程电缆作为计算机与 PLC 通信的连线。 FX2系列PLC的编程接口采用RS-422标准,而计算机的串行口采用的是RS-232标准,因此作为实现PLC与计算机通信的接口模块FX-232AW,必须将RS-422标准转换成RS-232标准,同时在实现上述过程中采用光电隔离技术。 图1 一、串口的相关知识 1)串行通信的概念 图2 所谓“串行通信”是指外设和计算机间使用一根数据信号线(另外需要地线,可能还需要控制线),数据在一根数据信号线上一位一位地进行传输,每一位数据都占据一个固定的时间长度。如图2所示。这种通信方式使用的数据线少,在远距离通信中可以节约通信成本,当然,其传输速度比并行传输慢 2)常见的串口通信规约: 目前较为常用的串口有9针串口(DB9)和25针串口(DB25),通信距离较近时(<12m),可以用电缆线直接连接标准RS232端口(RS422,RS485较远),若距离较远,需附加调制解调器(MODEM)。最为简单且常用的是三线制接法,即地、接收数据和发送数据三脚相连,且直接用RS232相连。RS-232C: “1”=-3~-15;“0”=+3~+15速率:0~20000bps;一般传输距离:15m。RS-422:采用平衡传输,平衡发送器、差动接收器,速率:10Mbps/15m;90Kbps/1200m抗干扰能力强。

DB9和DB25的常用信号脚说明 由于FX 2-232AW 价格过贵所以我们选用选用MAXIM 公司的MAX202实现RS-232与TTL 之间的电平转换。MAX202内部有电压倍增电路和转换电路,仅需+5V 电源就可工作,使用十分方便;选用MAX490实现RS-485与TTL 之间的转换。每片MAX490有一对发送器/接收器,由于通信采用全双工 方式,故需两片MAX490,另外只需外接4只电容即可。PLC 的RS-422接口配接DB-25型连接器,而PC 机我们一般用DB-9型连接器。硬件电路图如上。 二、 通信控制线的连接 如图3,由于计算机的RS-232接口的4脚和5脚短接,因此,对计算机发送数 据来说,PLC 总是处于数据就绪状态。也就是说,计算机在任何时候都可以将数据送到PLC 内。又由于RS-232的接口的20脚和6脚交叉相连接,因此,对计算机接受数据来说,就必须检测PLC 是否处于准备就绪状态。如果6脚为1,这可以接受数据:如果6脚为0,则必须等待,直到为1时,才可以接受数据。

VB与PLC通信程序.doc

VB与PLC通信程序(欧姆龙PLC)(2007-08-01 21:00:11) 关于VB的MSCOMM控件可参考相关资料。通信程序摘要如下: (1)初始化程序 https://www.360docs.net/doc/2712126767.html,mport=2 ’选择COM2 Mscomm1.Settings=”9600,N,8,2”’设置通信参数 Mscomm1.Inputlen=0 ’读入接收缓冲区全部字符 Mscomm1.OutbufferSize=256 ’设置发送缓冲区大小 Mscomm1.InbufferSize=512 ’设置接收缓冲区大小 Mscomm1.PortOpen=True ’打开COM2 (2)发送命令程序 比如读取节点号03的PLC中IR000到IR009的内容,并放到tag1字符串变量中,此时有: Dim Command, node, begin, number as string Dim Answerlen as integer node=”03”’节点号 Command=”RR”’命令为读IR区 begin=”0000”’从IR000开始 number=10 ’读取长度 Answerlen=51 ’计算接收字符串长度 进行命令发送和接收应答处理: Dim FCS, I as integer Dim s ,f as string s=”@”+node+Commad+begin+number FCS=0 For i=1 to Len(s) FCS=FCS xor Asc(Mid$(s,i,1) ) ’帧校验码FCS Next i f=Hex$(FCS) If Len(f)=1 Then f=”0”+f Commfrm.MSComm1.Output=s + f + ”*” + CHR$(13) ’命令帧发送 Do Dummy=DoEvents() Loop Untill Commfrm.MSComm1.InbufferCount >= Answerlen ’等待应答帧 Do tag1= Commfrm.MSComm1.Input Loop Untill Commfrm.MSComm1.InbufferCount=0 ’读完应答帧 上述程序具有相当的通用性,对于其它设备不同的只是各自的数据帧格式,因而只需做相应少量修改即可。

三菱PLC与PC上位机VB通讯

三菱PLC与PC上位机VB通讯 三菱PLC:FX1N + FX1N-232-BD FX2N + FX2N-232-BD 计算机:Windows XP中文企业版+ V isual Basic 6.0中文企业版 Windows 98中文版+ V isual Basic 6.0 中文企业版 两者之间连接使用的是FX-232CAB-1电缆线(2-3,3-2,4-6(8),5-5) 一.三菱PLC的设置 三菱FX PLC在进行计算机链接(专用协议)和无协议通讯(RS指令)时均须对通讯格式(D8120)进行设定。其中包含有波特率、数据长度、奇偶校验、停止位和协议格式等。在修改了D8120的设置后,确保关掉PLC的电源,然后再打开。 此外,对于采用RS485形式1:N计算机链接的还必须对站点号(D8121)进行设定。设定的范围从00H到0FH(即0到15)。 在这里对D8120采用下述设置: b15 b0 0110 1000 1000 1110 6 8 8 E 即数据长度为7位,偶校验,2位停止位,波特率为9600bps,无标题符和终结符,采用计算机链接(RS-232C),自动添加和校验码,采用专用协议格式1。 同时设定站号为0。具体设定如下所示: FX PLC进行计算机链接时可用的专用协议有两种:格式1和格式4。两种格式的差别在于是否在每一个块上添加了CR + LF,其中添加了CR + LF的是格式4。在这里采用格式1。 二.上位机程序的编制 这里采用Microsoft公司的Visual Basic 6.0中文企业版编制上位机程序。 Visual Basic中提供了一个名为MSComm的通信控件便于设计串行通信的程序。MSComm控件的主要属性有: 1.CommPort属性 CommPort属性用于指定所要使用的串行端口的号码。虽然Windows操作系统可以容纳最多256个串行通信端口,不过Visual Basic的MSComm控件则仅限于16个端口。 2.Settings属性 Settings属性用于设置初始化参数。以字符串的形式设置波特率、奇偶校验、数据位、停止位等4个参数。其格式为“BBBB,P,D,S”,其中BBBB表示波特率,P表示奇偶校验位检查方式,D表示数据位数,S表示停止位数。一般情况下,欧美仪器习惯使用“9600,n,8,1”当成设置值;而日本仪器则习惯使用“9600,e,7,2”作为设置值。Settings设置完成之后,所传输及接受的字符串便以此设置为准,使用RS-232通信的双方,Settings必须完全一样,彼此才能顺利地通信,否则双方将无法正确接收到彼此所传输的信号。所以,该属性的设置必须和三菱PLC中D8120的相关设置保持一致。在这里,统一采用“9600,e,7,2”的设定。

VB与PLC通信程序(欧姆龙PLC)

VB与PLC通信程序(欧姆龙PLC) 分类:| 转自:原文地址被1人转藏+放进我的宝盒2010-9-2 21:45:46 VB与PLC通信程序(欧姆龙PLC) 关于VB的MSCOMM控件可参考相关资料。通信程序摘要如下: (1)初始化程序 https://www.360docs.net/doc/2712126767.html,mport=2 ’选择COM2 Mscomm1.Settings=”9600,N,8,2”’设置通信参数 Mscomm1.Inputlen=0 ’读入接收缓冲区全部字符 Mscomm1.OutbufferSize=256 ’设置发送缓冲区大小 Mscomm1.InbufferSize=512 ’设置接收缓冲区大小 Mscomm1.PortOpen=True ’打开COM2 (2)发送命令程序 比如读取节点号03的PLC中IR000到IR009的内容,并放到tag1字符串变量中,此时有: Dim Command, node, begin, number as string Dim Answerlen as integer node=”03”’节点号 Command=”RR”’命令为读IR区 begin=”0000”’从IR000开始 number=10 ’读取长度 Answerlen=51 ’计算接收字符串长度 进行命令发送和接收应答处理: Dim FCS, I as integer Dim s ,f as string s=”@”+node+Commad+begin+number FCS=0

For i=1 to Len(s) FCS=FCS xor Asc(Mid$(s,i,1) ) ’帧校验码FCS Next i f=Hex$(FCS) If Len(f)=1 Then f=”0”+f Commfrm.MSComm1.Output=s + f + ”*”+ CHR$(13) ’命令帧发送 Do Dummy=DoEvents() Loop Untill Commfrm.MSComm1.InbufferCount >= Answerlen ’等待应答帧 Do tag1= Commfrm.MSComm1.Input Loop Untill Commfrm.MSComm1.InbufferCount=0 ’读完应答帧 上述程序具有相当的通用性,对于其它设备不同的只是各自的数据帧格式,因而只需做相应少量修改即可。

modbus与plc通讯 vb程序caoxi

该程序可以实现实时数据采集显示,以及能对寄存器进行设置。 程序很简单,想用的可以完善,现在只能实时采集显示一个地址的数据,只要修改一下,就可以实时采集多个地址的数据。现在也只能一次对一个寄存器进行设置,也可以更加完善。 下面是运行界面,采集的模块的地址为75,是一个温湿度采集模块。有3个寄存器,显示的数据上是温度,湿度,露点温度。 modbus Private Sub Command1_Click() '设置按钮 Dim bisend() As Byte Dim crc Dim btLoCRC As Byte, btHiCRC As Byte Dim Data As Integer If MSComm1.PortOpen = True Then If Combo5.ListIndex = 0 Then ReDim bisend(7) '重新定义数组长度 bisend(0) = "&h" + Hex(V al(Text1.Text)) '地址码 bisend(1) = "&h" + Hex(3) '功能码读寄存器 bisend(2) = "&h" + Hex(0) '起始地址高位 bisend(3) = "&h" + Hex(0) '起始地址低位 bisend(4) = "&h" + Hex(0) '寄存器个数高位 bisend(5) = "&h" + Hex(Combo6.ListIndex + 1) '寄存器个数低位 crc = CRC16(bisend, 6, btLoCRC, btHiCRC) bisend(6) = "&h" + Hex(btLoCRC) 'CRC高位 bisend(7) = "&h" + Hex(btHiCRC) 'CRC低位 '发送数据 MSComm1.Output = bisend Else ReDim bisend(10) '一次只能写一个寄存器 bisend(0) = "&h" + Hex(V al(Text1.Text)) '地址码 bisend(1) = "&h" + Hex(16) '功能码写寄存器 bisend(2) = "&h" + Hex(0) '起始地址高位 bisend(3) = "&h" + Hex(0) '起始地址低位 bisend(4) = "&h" + Hex(0) '寄存器个数高位 bisend(5) = "&h" + Hex(1) '寄存器个数低位 bisend(6) = "&h" + Hex(2) '字节数 Data = Val(Trim(Text3.Text)) bisend(7) = "&h" + Hex(Data \ 256) '要写入寄存器的值的高字节 bisend(8) = "&h" + Hex(Data Mod 256) '要写入寄存器的值的低字节

VB与三菱PLC通信

V B与三菱P L C通信 VB源代码下载 PLC以卓越的可靠性和方便的可编程性广泛应用于工业控制领域。实现PC机与PLC通信的目的是为了示、窗口技术等多种功能,为PLC提供良好的人机界面。本文详细介绍了FX系列PLC的通信协议,并现了PC机与FX系列PLC之间的串行通信。本文对FX系列PLC的通信协议进行了详细的介绍,并以 1前言 PLC以卓越的可靠性和方便的可编程性广泛应用于工业控制领域。实现PC机与PLC通信的目的是为了示、窗口技术等多种功能,为PLC提供良好的人机界面。本文详细介绍了FX系列PLC的通信协议,并现了PC机与FX系列PLC之间的串行通信。 2PC机与PLC实现通信的条件 带异步通信适配器的PC机与PLC只有满足如下条件,才能互联通信: (1)带有异步通信接口的PLC才能与带异步通信适配器的PC机互联。还要求双方采用的总线标准一致 (2)双方的初始化,使波特率、数据位数、停止位数、奇偶校验都相同。 (3)要对PLC的通信协议分析清楚,严格地按照协议的规定及帧格式编写PC机的通信程序。PLC中 3PC机及与FX系列PLC的串行通讯 3.1硬件连接 PC机与FX系列PLC不能直接连接,要经过FX-232AW单元进行RS232C/RS-422的 3.2FX系列PLC的通信协议 在PC机中必须依据互联的PLC的通信协议来编写通信程序,因此先介绍FX系列PLC的通信协议。 (1)数据格式 FX系列PLC采用异步格式,由1位起始位、7位数据位、1位偶校验位及1位停止位组成,波特率为9 (2)通信命令 FX系列PLC有4个通信命令,它们是读命令、写命令、强制通命令、强制断命令,如下表所示。表中X元件;T—定时器;C—计数器;D—数据寄存器。 (3)通信控制字符 FX系列PLC采用面向字符的传输规程,用到5个通信控制字符,如下表所示。

VB上位机与PLC通信

随着现代信息技术的发展以及计算机网络的广泛应用,计算机通信技术已经日趋成熟。作为传统的计算机通信方式的串行通信,由于具有线路简单、应用灵活、可靠性高等一系列优点长期以来获得了广泛的应用。计算机串行通信在数据财经、数据通信、故障检测、计算机远程监控等方面有广泛的实用价值,特别在Windows下的串口通信可以充分利用Windows 下的软件资源优势,实现多任务条件下对外部的数据传输、信息收集和处理。在本系统中,我们采用了性能/价格比较高的计算机构成厂级的监控工作站。在PLC与上位计算机之间采用RS-485和RS-232C标准通信接口进行通信。 在两级计算机控制系统中,最不稳定的环节就是上位机。为了保证系统的稳定性,避免因上位机的故障导致系统控制失灵,所有采集到的信号都反馈到PLC当中。上位机需要通过串行通信取得所需的数据信息,并通过串行通信将必要的控制信息和参数设置信息写入PLC 的数据存储区。因此,串行通信作为上位机和下位机联系的唯一方式,在整个系统中具有非常重要的作用。 1.1上位机与PLC间的串行通信 计算机与计算机或计算机与外部设备之间的数据传输和交换的方式主要有串行通信和并行通信两种方式,其中串行通信指的是数据逐位传输的方式。由于串行通信方式具有使用线路少、成本低,特别是在远程传输时,避免了多条线路特性的不一致而被广泛采用。 1.1.1串行通信 串行通信方式又可分为两种:同步串行通信方式和异步串行通信方式。 1.同步串行通信方式:同步串行通信是以数据块(字符块)为信息单位传送,每帧信息可以包含很多字符。同步通信要求通信双方以相同的速率进行,而且要准证确协调,通常通过共

VB控件Mscomm控件与PLC进行RS485(Modbus)通讯源码

VB控件Mscomm控件与PLC进行RS485(Modbus)通讯源码 本人用的是Modbus RTU通讯模式,通过计算机串口转RS485与外围设备通行通讯,读写外围设备指定地址里的数据,从而达到自动化控制远端设备。 Dim HiByte As Byte Dim LoByte As Byte Dim CRC16Lo As Byte Dim CRC16Hi As Byte Dim ReturnData(1) As Byte Dim K As Integer Dim CmdLenth As Integer Private Sub Command1_Click() K = Text9.Text '写6 个字节 Text13.Text = "" '=========== 数组赋值输入代码=============================================================================== ======== '<< 算法一>> Dim WriteStr() As Byte Dim u As Integer ReDim WriteStr(K + 2) For u = 0 To K WriteStr(u) = Val("&H" & Text1(u).T ext) Next '<< 算法二>> Dim CRC_2() As Byte Dim v As Integer ReDim CRC_2(K) For v = 0 To K CRC_2(v) = Val("&H" & Text1(v).Text) Next '============================================================================== ==================== Call CRC161(CRC_2())

VB与三菱PLC通信

VB与三菱PLC通信 VB源代码下载 https://www.360docs.net/doc/2712126767.html,/download.action?t=40&k=MTQzOTcxMTM=&pcode=LCw1NTkwMzYsNTU5MDM2&r PLC以卓越的可靠性和方便的可编程性广泛应用于工业控制领域。实现PC机与PLC通信的目示、动态数据画面显示、报表显示、窗口技术等多种功能,为PLC提供良好的人机界面。本文详在Windows环境下,使用VB6.0开发通信程序,实现了PC机与FX系列PLC之间的协议进行了详细的介绍,并以VB为开发工具实现了PC机与FX系列PLC的串行通信。 1前言 PLC以卓越的可靠性和方便的可编程性广泛应用于工业控制领域。实现PC机与PLC通信的目示、动态数据画面显示、报表显示、窗口技术等多种功能,为PLC提供良好的人机界面。本文详在Windows环境下,使用VB6.0开发通信程序,实现了PC机与FX系列PLC之间的 2PC机与PLC实现通信的条件 带异步通信适配器的PC机与PLC只有满足如下条件,才能互联通信: (1)带有异步通信接口的PLC才能与带异步通信适配器的PC机互联。还要求双方采用的总线元”变换之后才能互联。 (2)双方的初始化,使波特率、数据位数、停止位数、奇偶校验都相同。 (3)要对PLC的通信协议分析清楚,严格地按照协议的规定及帧格式编写PC机的通信程序。程。 3PC机及与FX系列PLC的串行通讯 3.1硬件连接 PC机与FX系列PLC不能直接连接,要经过FX-232AW单元进行RS232C/RS-接关系: 3.2FX系列PLC的通信协议 在PC机中必须依据互联的PLC的通信协议来编写通信程序,因此先介绍FX系列PLC的通信(1)数据格式 FX系列PLC采用异步格式,由1位起始位、7位数据位、1位偶校验位及1位停止位组成,波I码。

台达PLC与VB通讯简易教程

VB 實現電腦與台達PLC 的串列通信 ───────PLC 產品處 王乃全 摘要:本文介紹了Visual Basic6編程語言,MODBUS ASCII 通信協定及通過VB 如何實現 與台達DVP PLC 的通信 關鍵字:Visual Basic MODBUS ASCII PLC 前言: 現代的世界是一個高度自動化的世界,各式各樣的設備都可以和電腦連線,而最簡單的自動化連線方式就是使用串列通信。 VB 提供了串列通信控制項可以讓開發者開發串列通信的系統程式,功能上也提供了不少為用戶著想的簡便之處。 PLC 是現在控制領域不可缺少的部分,已經非常普及,如何簡便的與PLC 交互已經成為眾多廠商新的競爭戰場。由此產生了人機界面、組態軟體等產品。這些產品的產生大大簡化了對PLC 的控制,操作,使用更方便。但也有共同的缺點:價格過高和開發性較差。VB 作為“原始"的編程語言在這兩方面無疑有著明顯的優勢。 本文結合一個簡單的案例,用比較基礎的概念為大家展示如何通過VB 實現PC-PLC 的通信,對於初涉這個領域的工程師,也會受益與本文提供的基本概念。 一、串列通信基本概念 1、 通信的種類:通常通信的形式可以分為兩種,並行通信(Parallel Communication )和串 列通信(Serial Communication )。所謂並行,既是一次傳輸量為8位;而串列一次只傳1位元。這兩種不同的通信模式如圖 平行傳輸 串列傳輸 2、 串列通信

常用的串列通信也有兩種。分別位RS-232和RS-485 2-1 RS-232 RS-232的信號准位元乃是參考地線而來的,如圖,傳輸端參考接地端1來傳送資料;接收端則參考接地端2還原出傳送端的信號準備。 接地端1 接地端2 由圖可知,由於兩個接地端准位不一定一樣,而且很容易受到干擾,所以信號在RS-232線路傳輸時,很容易產生錯誤。 2-2 RS-485 RS-485的信號傳輸方式如圖。 接地點1 接地點2 RS-485的信號將被傳送出去時會分成正負兩條線路,當到達接收端後,在將信號相減還原成原來的信號;如果將原始的信號表示成(DT),而被分成的信號分別標示成(D+)及(D-),則DT= (D+)-(D-) 同樣地,接收端在接收到信號後,也依據上式還原成原來的樣子。如果線路受到干擾,兩條線路的信號分別為(D+)+Noise (D-)+Noise。接收端還原信號為 (DT)= [(D+)+Noise]-[ (D-)+Noise] 與先前結果一樣,所以RS-485可以有效的防止雜訊的干擾。

vb与plc通讯(以西门子S7-200为例)

vb与plc通讯(以西门子S7-200为例) S7-200 PLC之PPI协议 通过硬件和软件侦听的方法,分析PLC内部固有的PPI通讯协议,然后上位机采用VB编程,遵循PPI通讯协议,读写PLC数据,实现人机操作任务。这种通讯方法,与一般的自由通讯协议相比,省略了PLC的通讯程序编写,只需编写上位机的通讯程序资源S7-226的编程口物理层为RS-485结构,SIEMENS提供MicroWin软件,采用的是PPI(Point to Point)协议,可以用来传输、调试PLC程序。在现场应用中,当需要PLC与上位机通讯时,较多的使用自定义协议与上位机通讯。在这种通讯方式中,需要编程者首先定义自己的自由通讯格式,在PLC中编写代码,利用中断方式控制通讯端口的数据收发。采用这种方式,PLC 编程调试较为烦琐,占用PLC的软件中断和代码资源,而且当PLC的通讯口定义为自由通讯口时,PLC的编程软件无法对PLC进行监控,给PLC程序调试带来不便。 SIEMENS S7-200PLC的编程通讯接口,内部固化的通讯协议为PPI协议,如果上位机遵循PPI协议来读写PLC,就可以省略编写PLC的通讯代码。如何获得PPI协议?可以在PLC的编程软件读写PLC数据时,利用第三个串口侦听PLC的通讯数据,或者利用软件方法,截取已经打开且正在通讯的端口的数据,然后归纳总结,解析出PPI协议的数据读写报文。这样,上位机遵循PPI协议,就可以便利的读写PLC内部的数据,实现上位机的人机操作功能。 软件设计 系统中测控任务由SIEMENS S7-226PLC完成,PLC采用循环扫描方式工作,当定时时间到时,执行数据采集或PID控制任务,完成现场的信号控制。计算机的监控软件采用VB编制,利用MSComm控件完成串口数据通讯,通讯遵循的协议为PPI协议。 PPI协议 西门子的PPI(Point to Point)通讯协议采用主从式的通讯方式,一次读写操作的步骤包括:首先上位机发出读写命令,PLC作出接收正确的响应,上位机接到此响应则发出确认申请命令,PLC则完成正确的读写响应,回应给上位机数据。这样收发两次数据,完成一次数据的读写[5]。 其通讯数据报文格式大致有以下几类: 1、读写申请的数据格式如下: SD LE LER SD DA SA FC DASP SSAP DU FCS ED SD:(Start Delimiter)开始定界符(68H) LE:(Length)报文数据长度 LER:(Repeated Length)重复数据长度 SD: (Start Delimiter)开始定界符(68H) SA:(Source Address)源地址,指该地址的指针,为地址值乘以8 DA:(Destination Address)目标地址,指该地址的指针,为地址值乘以8 FC:(Function Code)功能码 DSAP:(Destination Service Access Point)目的服务存取点 SSAP:(Source Service Access Point)源服务存取点 DU:(Data Unit)数据单元 FCS:(Frame Check Sequence)校验码 ED:(End Delimiter)结束分界符(16H) 报文数据长度和重复数据长度为自DA至DU的数据长度,校验码为DA至DU数据的和校

VB开发OPC与PLC通信

VB开发WinCC的OPC客户机实例 组态 2009-07-03 19:52 阅读101 评论0 字号:大中小 VB开发WinCC的OPC客户机实例 发布时间:2006.04.29 阅览次数:1804 作者:林启宽单位:厦门市海沧新阳工业区厦门卷烟厂 关键词:OPC VB6.0 WinCC上位机 WinCC是西门子公司在自动化领域采用最先进的技术与微软公司在共同开发的居于世界领先地位的工控软件。WinCC即WINDOWS CONTROL CENTER(视窗控制中心)。WinCC是一个功能强大的全面开放的监控系统,既可以用来完成小规模的简单的过程监控应用,也可以用来完成复杂的应用。在任何情况下WinCC都可以生成漂亮而便捷的人机对话接口,使操作员能够清晰地管理和优化生产过程。它集成的OPC(OLE for process control)服务器使得过程数据可由其它应用程序(OPC客户机)访问。 WinCC在安装时提供了OPC的客户端控件: Siemens OPC DAAutomation 2.0( SOPCDAAuto.dll), 在WINCC的帮助中,有Siemens OPC DAAutomation 2.0使用的简略帮助,但说得不很详细,我在使用VB6.0开发WinCC的OPC客户机中碰到不少问题,现一并写出来,与大家共享。希望起到抛砖引玉,举一反三的作用。 一、开发实例背景:我厂包装机BE电气改造后,由原来了单片机、直流调试板、温度控制板等控制改为带有通讯端口PLC、变频器、温控仪等控制,上位机监控软件为WinCC。在控制系统中,变频器、温控仪的控制信号通过串口、OPC客户机接入上位机WinCC,报警信号接入PLC。其硬件组态结构如图一 OPC开发要求:①通过WinCC建立内部变量Tag(1),Tag(2),Tag(3),Tag(4)……;在视图窗口建立相应了I/O输入输出域。通过更改WinCC中I/O域的值,来设定或更改变频器、温控仪等的参数。②通过VB开发了串口驱动程序,读取变频器、温控仪等的参数,通过OPC控件把值传递给WinCC中的I/O域。 二、VB6开发WinCC的OPC客户机具体步骤: 1、打开VB6,建立如图二窗体: 其中,文本框组Text4.text为写入WinCC内部变量名称;文本框组Text5.text为显示相应了WinCC内

上位机VB实现与三菱PLC的串行通讯

上位机V B实现与三菱P L C的串行通讯 Document serial number【KK89K-LLS98YT-SS8CB-SSUT-SST108】

上位机V B实现与三菱P L C的串行通讯 2009年12月15日星期二下午07:40 1.通行原理与方法 上位机要能够通过PLC监控下层设备的状态,就要实现上位机与PLC间的通信,一般工业控制中都是采用RS232 C实现。上位机首先向PLC发送查询数据的指令(实际上是查询PLC中端子的状态和DM区的值等),PLC接收了上 位的指令后,进行校验(FCS校验码),看其是否正确,如果正确,则向上位机传送数据(包含首尾校验字节)。否 则,PLC拒绝向上位机传送数据。上位接收到PLC传送的数据,也要判断正确与否,如果正确,则接收,否则, 拒绝接收。 由于CPM1A没有提供串行通信口,我们利用其提供的外设端口实现通信。PLC与计算机之间的 连接是通过OMRON提供的专用电缆CQM1-CIF01来实现的,其硬件连接图如图1所示。(见附图) 2.PLC与计算机间的通信规约 计算机与PLC间的通信是以“帧”为单位进行的,并且在通信的过程中,计算机具有更高的优先级。首先,计算 机向PLC发出命令帧,然后,PLC作出响应,向计算机发送回响应帧。其中命令帧和响应帧的格式如下: (1)命令帧格式。为了方便计算机和PLC的通讯,CPM1A对在计算机连接通信中交换的命令和响应规定了相应的 格式。当计算机发送一个命令时,命令数据主准备格式如图2所示。(见附图) 其中@放在首位,表示以@开始,设备号为上位机识别所连接的PLC的设备号。识别码为命令代码,用来设置用户 希望上位机完成的操作,FCS为帧检验代码,一旦通信出错,通过计算FCS可以及时发现。结束符为“*”和CR 回车符,表示命令结束。 (2)响应帧格式。由PLC发出的对应于命令格式的响应帧格式如图3所示。(见附图) 其中,异常码可以确定计算机发送的命令是否正确执行。其它的与正文中的含义相同。正文仅在有读出数据时有 返回。 3.通信程序的设计 为了充分利用计算机数据处理的强大功能,我们可以采用计算机有优先权的方式,在计算机上编写程序来实现计 算机与PLC的通信,计算机向PLC发出命令发起通信,PLC自动返回响应。本文中采用VB来编写计算机与PLC 间的通讯程序。在VB中提供了通信控件—应用通信控件(MSCOMM),实现通过串行端口传送和接受的功能。 下面介绍MSCOMM控件的属性: *CommPort:设定通信连接端口代号,程序必须指定所要使用的串行端口号,Windows系统使用所设定的端口与外 界通信。 *PortOpen:设定通信口状态,若为真,通信端口打开,否则关闭。 *Settings:设定通信口参数,其格式是"bbbb,p ,d,s",其中bbbb为通信速率(波特率),p为通信检查方式(奇偶校验),d为数据位数,s为停止位数,其设定 应与PLC的设定一致。 *Input:将对方传送至输入缓冲区的字符读入到程序。 *Output:将字符写入输出缓冲区。 *InBufferCount:传回接收缓冲区中的字符数。 *OutBufferCount:传回输出缓冲区中的字符数。 *InputLen:设定串行端口读入字符串的长度。 *InputMode:设定接收数据的方式。 *Rthreshold:设定引发接收事件的字符数。 *CommEvent:传回OnComm事件发生时的数值码 *OnComm事件:无论是错误或事件发生,都会触发此事件。 (1)控件参数的初始化。 初始化程序如下: https://www.360docs.net/doc/2712126767.html,Port=2'使用串口Com2 Mscomm.Settings="9600,E,7,2"'波特率9600,偶校验,7位数据位,2位停止位 Mscomm.PortOpen=True'打开通信端口,准备通信 (2)计算校验码FCS,计算FCS的VB自定义函数如下: FunctionFCS(ByValInputStrAsString)AsString DimSlen,i,XorresultAsInteger DimTempfesAsString

vb与三菱PLC的通信详解概要

Vb6.0与三菱PLC的通信 串行通信程序时,有两种方法,一种是用Windows API函数,另一种是用VB支持的通信控件MSCOMM.OCX。使用MSCOMM.OCX控件编程方便,具有更完善的发送和接收功能。这里采用了MSCOMM.OCX控件。 项目选用三菱FX2N-64MR型PLC,SC-09电缆作为计算机与PLC通信的连线。连接电缆的9针端连接在计算机串口上,另一端连接在PLC的RS-422编程口。 通信格式: 一个多字符帧由图1所示的五部分组成,其中和校验值是将命令码—ETX之间的字符的ASCII码(十六进制数)相加,取得所得和的最低二位数。STX(CHR(2))和ETX(CHR(3))分别表示该字符帧的起始标起和结束标志。 (1) 起始字元STX:ASCII码的起始字元STX对应的16进制数位0x02。无论命令信息还是回应信息,它们的起始字元均为STX,接收方以此来判知传输资料的开始。 (2) 命令号码:为两位16进制数。所谓命令号码是指上位机要求下位机所执行的动作类别,例如要求读取或写入单点状态、写入或读取暂存器资料、强制设定、运行、停止等。在回应信息中,下位机会将上位机接收到的命令号码原原本本的随同其它信息一同发送给上位机。 (3) 元件首地址:对应要操作的元件的相应的地址。如从D123单元中读取数据时,要把它对应的地址:0x10F6发送给PLC。 (4) 元件个数:一次读取位元件或字元件的数量。 (5) 结束字元(ETX):ASCII码的结束字元ETX对应的16进制数为0x03。无论命令信息还是回应信息,它们的结束字元均为ETX,接收方以此来判知此次通讯已结束。 (6) 校验码(Checksum):校验码是将STX-ETX之间的ASCII字元的16进制数值以“LRC(Longitudinal Redunda ncy Check)”法计算出1个Byte长度(两个16进制数值00-FFH)的校验码。当下位机接收到信息后,用同样的方法计算出接收信息的校验码,如果两个校验码相同,则说明传送正确。 FX2系列与计算机之间的通信是以主机发出的初始命令,PLC对其做出回答响应进行通信的,PLC无权命令。 三菱FX系列PLC编程口通信协议总览 该协议实际上适用于PLC编程端口以及 FX-232AW 模块的通信。通讯格式: 传输格式: RS232C波特率:9600bps奇偶even校验:累加方式(和校验)字符: ASCII16进制代码:

VB与西门子S7 200 PPI协议通讯

VB与西门子S7 200 PPI协议通讯 通过硬件和软件侦听的方法,分析PLC内部固有的PPI 通讯协议,然后上位机采用VB编程,遵循PPI通讯协议,读写PLC数据,实现人机操作任务。这种通讯方法,与一般的自由通讯协议相比,省略了PLC的通讯程序编写,只需编写上位机的通讯程序资源 S7-226的编程口物理层为RS-485结构,SIEMENS提供MicroWin软件,采用的是PPI(Point to Point)协议,可以用来传输、调试PLC程序。在现场应用中,当需要PLC与上位机通讯时,较多的使用自定义协议与上位机通讯。在这种通讯方式中,需要编程者首先定义自己的自由通讯格式,在PLC 中编写代码,利用中断方式控制通讯端口的数据收发。采用这种方式,PLC编程调试较为烦琐,占用PLC的软件中断和代码资源,而且当PLC的通讯口定义为自由通讯口时,PLC 的编程软件无法对PLC进行监控,给PLC程序调试带来不便。 SIEMENS S7-200PLC的编程通讯接口,内部固化的通讯协议为PPI协议,如果上位机遵循PPI协议来读写PLC,就可以省略编写PLC的通讯代码。如何获得PPI协议?可以在PLC的编程软件读写PLC数据时,利用第三个串口侦听PLC的通讯数据,或者利用软件方法,截取已经打开且正在通讯的端口的数据,然后归纳总结,解析出PPI协议的数据

读写报文。这样,上位机遵循PPI协议,就可以便利的读写PLC内部的数据,实现上位机的人机操作功能。 软件设计 系统中测控任务由SIEMENS S7-226PLC完成,PLC采用循环扫描方式工作,当定时时间到时,执行数据采集或PID控制任务,完成现场的信号控制。计算机的监控软件采用VB 编制,利用MSComm控件完成串口数据通讯,通讯遵循的协议为PPI协议。 PPI协议 西门子的PPI(Point to Point)通讯协议采用主从式的通讯方式,一次读写操作的步骤包括:首先上位机发出读写命令,PLC作出接收正确的响应,上位机接到此响应则发出确认申请命令,PLC则完成正确的读写响应,回应给上位机数据。这样收发两次数据,完成一次数据的读写[5]。 其通讯数据报文格式大致有以下几类: 1、读写申请的数据格式如下: SD LE LER SD DA SA FC DASP SSAP DU FCS ED SD:(Start Delimiter)开始定界符(68H) LE:(Length)报文数据长度 LER:(Repeated Length)重复数据长度 SD: (Start Delimiter)开始定界符(68H) SA:(Source Address)源地址,指该地址的指针,为地址值

相关主题
相关文档
最新文档