有關(guān)VB實(shí)現(xiàn)的plc與上位機(jī)通訊應(yīng)用程序，包括通信初始化程序，通信控件MSComm1屬性設(shè)置，從PLC讀取資料，將寄存器內(nèi)數(shù)據(jù)資料PC上顯示觀察監(jiān)控等，一起來看看。

VB實(shí)現(xiàn)plc與上位機(jī)通訊應(yīng)用程序

可編程控制器PLC與上位機(jī)PC之間通信，下位機(jī)為PLC，基于其可靠性極高，主要承擔(dān)控制功能，而上位PC機(jī)主要承擔(dān)監(jiān)察管理功能，兼?zhèn)洳糠挚刂乒δ?#xff0c;如發(fā)出運(yùn)行，停止命令。

VB語言是基于WINDOWS操作系統(tǒng)功能強(qiáng)、易學(xué)易用、主面向?qū)W習(xí)對(duì)象程序設(shè)計(jì)語言。

VB帶有專門管理串行通訊MSComm控件，只需設(shè)置幾個(gè)主要參數(shù)就可以實(shí)現(xiàn)PLC與PC串行通訊。要完成通信必須設(shè)置MSComm相關(guān)屬性值：

(1)CommPort：設(shè)置或傳回通信連接端口代號(hào)

(2)Settings：設(shè)置初始化參數(shù)。以字符串形式設(shè)置或傳回連接速度、奇偶校驗(yàn)、數(shù)據(jù)位、停止位等4個(gè)參數(shù)

(3)PortOpen：設(shè)置或傳回通信連接端口狀態(tài)

(4)Input：從輸入寄存器傳 回并移除字符

(5)Output：將一個(gè)字符串寫入輸出寄存器

(6)InputLen：指定由串行端口讀入字符串長度

(7)InBufferCount：傳回接收寄存器中字符數(shù)

軟硬件之間：

臺(tái)安TP02與上位機(jī)PC通信時(shí)，實(shí)現(xiàn)兩者通信需要配備通信線。

4、通信程序?qū)崿F(xiàn)

4.1 通信初始化程序

首先，窗體開始設(shè)計(jì)之前，添加MSComm控件。

4.2程序編寫：

4.2.1 通信控件MSComm1屬性設(shè)置：

MSComm1.CommPort = 1 設(shè)置端口號(hào)

MSComm1.Settings = "19200，E，7，2" 設(shè)置通信參數(shù)

MSComm1.InputLen = 0 設(shè)置讀入字符串長度

MSComm1.PortOpen = True 設(shè)置通信端口狀態(tài)

4.2.2 PLC運(yùn)行程序：

STX$ = "::"

TransmitBuf$ = "01?5RUN"

sum$ = CheckSum(transmitBuf$)

ETX$ = Chr$(13)

SXD$ = STX$ + transmitBuf$ + sum$ + ETX$

MSComm1.Output = SXD$

Do

DoEvents

Loop Until MSComm1.InBufferCount >= 12

In1$ = MSComm1.Input

4.2.3 從PLC讀取資料，將寄存器內(nèi)數(shù)據(jù)資料PC上顯示觀察監(jiān)控(反應(yīng)時(shí)間50ms)：

STX$ = "::"

transmitBuf$ = "01?5MRVD000102"

sum$ = CheckSum(transmitBuf$)

ETX$ = Chr$(13)

SXD$ = STX$ + transmitBuf$ + sum$ + ETX$

MSComm1.Output = SXD$

Do

DoEvents

Loop Until MSComm1.InBufferCount >= 20

InData$ = MSComm1.Input

Label2.Caption = Mid$(InData$， 10， 4)

Label3.Caption = Mid$(InData$， 14， 4)

4.2.4從PLC讀取資料，將RelayC0001狀態(tài)PC顯示進(jìn)行監(jiān)控(反應(yīng)時(shí)間50ms)：

STX$ = "::"

transmitBuf$ = "01?5MCRC0001"

sum$ = CheckSum(transmitBuf$)

ETX$ = Chr$(13)

SXD$ = STX$ + transmitBuf$ + sum$ + ETX$

MSComm1.Output = SXD$

Do

DoEvents

Loop Until MSComm1.InBufferCount >= 13

In4$ = MSComm1.Input

Coil$ = Mid$(In4$， 10， 1)

C1% = CInt(Coil$)

Label6.Caption = C1%

4.2.5 設(shè)定Relay狀態(tài)，將Relay設(shè)定為ON(反應(yīng)時(shí)間50ms)：

Dim C1 As Integer

STX$ = "::"

transmitBuf$ = "01?5SCSY00011"

sum$ = CheckSum(transmitBuf$)

ETX$ = Chr$(13)

SXD$ = STX$ + transmitBuf$ + sum$ + ETX$

MSComm1.Output = SXD$

Do

DoEvents

Loop Until MSComm1.InBufferCount >= 12

In2$ = MSComm1.Input

4.2.6 PLC停止運(yùn)行：

STX$ = "::"

transmitBuf$ = "01?5STP"

sum$ = CheckSum(transmitBuf$)

ETX$ = Chr$(13)

SXD$ = STX$ + transmitBuf$ + sum$ + ETX$

MSComm1.Output = SXD$

Do

DoEvents

Loop Until MSComm1.InBufferCount >= 12

In3$ = MSComm1.Input

4.2.7 VB6.0下CheckSum函數(shù)代碼如下：

Private Function CheckSum(transmitBuf$)

L = Len(transmitBuf$)

Add = 0

Dim k， sum As Integer

For k = 1 To L

TJ$ = Mid$(transmitBuf$， k， 1)

Add = Add + Asc(TJ$)

Next k

Do While Add >= 256

Add = Add - 256

Loop

Add = 255 - Add + 1

tempBuf$ = Hex$(Add)

CheckSum = LTrim(tempBuf$)

End Function

總結(jié)

以上是生活随笔為你收集整理的plc vb c语言编程,【实例】VB实现plc与上位机通讯应用程序的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。