VB6.0在PLC和上位机通讯中的应用 .

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
　　
5、结论

PLC与上位机结合，并VB6.0传送数据所构成计算机监控系统，近距离传输数据现场控制来说是一种性价比很高解决方案。充分利用PLC抗干扰性能和PC强大图形显示，浮点运算特点，与之有效结合，最大限度，合理利用资源。

上一页  [1] [2] 

本文关键字：暂无联系方式PLC入门，plc技术 - PLC入门