VB6.0在台安PLC与上位机通讯中的应用

#36;)
　　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

<< MDS OEM电台和西门子S7-226的无线连接德维森PPC系列可编程逻辑控制器在轻烃检测系统中的应用 >>