vb6.0在plc與上位機(jī)通訊中的應(yīng)用

1、1、引PLCPCPLCVisual1、引PLCPCPLCVisualBasic(VB)PLC停止命令。VB WINDOWS 操作系統(tǒng)的功能強(qiáng)、易學(xué)易用、主要是面向?qū)W習(xí)對（1） CommPort：設(shè)置或傳回通信連接端口mm 位、停止位等 4 個(gè)參數(shù)InputLen：指定由串行端口讀入的字符4、通信程序的實(shí)4.1 4.2.1 m1mPort1 m1.Settings19200,E,7,2設(shè)置通信參數(shù) m1.InputLen = 0 設(shè)置讀入字符串長度 m1.PortOpen = True 設(shè)置通信端口狀態(tài) STX$=TransmitBuf$ = 01?5RUN ETX$ = Chr$(13)SXD

2、$=STX$+transmitBuf$+sum$LoopIn1$4.2.3 從 50msm1.Output= PC sum$ = CheckSum(transmitBuf$) ETX$ = Chr$(13)SXD$=STX$+transmitBuf$+sum$InData$sum$ = CheckSum(transmitBuf$) ETX$ = Chr$(13)SXD$=STX$+transmitBuf$+sum$InData$m1.Output= Label2.Caption=Mid$(InData$,10,Label3.Caption=Mid$(InData$,14,4.2.4從STX$=

3、資料RelayC0001狀態(tài)通PC顯示進(jìn)（反應(yīng)50mstransmitBuf$=01?5MCRC0001 sum$=CheckSum(transmitBuf$) ETX$ = Chr$(13)SXD$=STX$+transmitBuf$+sum$In4$m1.Output= Coil$=Mid$(In4$,10,1) C1% = CLabel6.Caption = C1% DimC1STX$=sum$ = CheckSum(transmitBuf$) ETX$ = Chr$(13)SXD$=STX$+transmitBuf$+sum$In2$m1.Output= STX$=transmitBuf$=ETX$ = Chr$(13)SXD$=STX$+transmitBuf$+sum$+SXD$ DoLoop In3$ 4.2.7VB6.0SXD$ DoLoop In3$ 4.2.7VB6.0CheckSum函數(shù)代碼如下： Private Function CheckSum(transmitBuf$) L = Len(transmitBuf$)Add = Dimk,sumFork = 1 ToTJ$=Mid$(transmitBuf$,k,1) Add = Add + Asc(TJ$)NextDoWhileAdd=256 Add = Add - 25