有關VB實現的plc與上位機通訊應用程序，包括通信初始化程序，通信控件MSComm1屬性設置，從PLC讀取資料，將寄存器內數據資料PC上顯示觀察監控等，一起來看看。

VB實現plc與上位機通訊應用程序

可編程控制器PLC與上位機PC之間通信，下位機為PLC，基于其可靠性極高，主要承擔控制功能，而上位PC機主要承擔監察管理功能，兼備部分控制功能，如發出運行，停止命令。

VB語言是基于WINDOWS操作系統功能強、易學易用、主面向學習對象程序設計語言。

VB帶有專門管理串行通訊MSComm控件，只需設置幾個主要參數就可以實現PLC與PC串行通訊。要完成通信必須設置MSComm相關屬性值：

(1)CommPort：設置或傳回通信連接端口代號

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

(3)PortOpen：設置或傳回通信連接端口狀態

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

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

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

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

軟硬件之間：

臺安TP02與上位機PC通信時，實現兩者通信需要配備通信線。

4、通信程序實現

4.1 通信初始化程序

首先，窗體開始設計之前，添加MSComm控件。

4.2程序編寫：

4.2.1 通信控件MSComm1屬性設置：

MSComm1.CommPort = 1 設置端口號

MSComm1.Settings = "19200，E，7，2" 設置通信參數

MSComm1.InputLen = 0 設置讀入字符串長度

MSComm1.PortOpen = True 設置通信端口狀態

4.2.2 PLC運行程序：

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讀取資料，將寄存器內數據資料PC上顯示觀察監控(反應時間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狀態PC顯示進行監控(反應時間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 設定Relay狀態，將Relay設定為ON(反應時間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停止運行：

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函數代碼如下：

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

總結

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

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。