VB 在远程管网数据传输中的应用[组图](5)
ctcy(1).Caption = ctcy(1).Caption + 1 Else: ctcy(1).Caption = 0 End If For i = 0 To 1 ctcy(i).LinkPoke Next i sock1(8).Caption = 0 Exit Sub ec: End Sub 最终的VB软件界面示意如下： 经过上述
ctcy(1).Caption = ctcy(1).Caption + 1
Else: ctcy(1).Caption = 0
End If
For i = 0 To 1
ctcy(i).LinkPoke
Next i
sock1(8).Caption = 0
Exit Sub
ec:
End Sub
最终的VB软件界面示意如下：
经过上述配置后，在主服务器上启动组态软件INTOUCH 7.0后再启动此VB程序，即可实时在组态软件的显示界面上看到远程数据。
以上仅举其中的一个点作为例子，其余的依此类推。经过测试该应用程序运行正常。
VB应用程序一方面与测控终端装置进行通信，另一方面同INTOUCH进行数据交换，对于用户而言只与INTOUCH友好人机界面打交道，实际运行证明该通信软件使用可靠，操作方便。通过VB编制WINDOWS环境下的通信软件，程序实现简单，极大的减轻了软件开发的工作。
精彩图集
精彩文章