module1.bas

一个VB开的调用组态王OPC SERVER的客户端程序代码,包括说明书

Attribute VB_Name = "Module1"
Public Index As Integer
Public TagNo As Integer
Public Typ(32767) As Integer
Public biaozhi As Integer
Public xuhao As Long
Public JieDian  As Long
Public NodeName1, NodeName2, nodeName3, NodeName4, NodeName5 As String
Public JianZhi1, JianZhi2, JianZhi3, JianZhi4, JianZhi5 As String
Public BiaoZhi1, BiaoZhi2, BiaoZhi3, BiaoZhi4, BiaoZhi5 As String

Declare Function StartCliend Lib "C:\kingvewcliend.dll" (ByVal pNode As String) As Integer
Declare Function StopCliend Lib "C:\kingvewcliend.dll" () As Integer
Declare Function ReadItemNo Lib "C:\kingvewcliend.dll" () As Integer
Declare Function GetItemNames Lib "C:\kingvewcliend.dll" (ByVal pNode As String, ByVal Index As Integer) As Integer
Declare Function AddTag Lib "C:\kingvewcliend.dll" (ByVal pNode As String, ByRef TagID As Integer, ByRef DataType As Integer) As Integer
Declare Function ReadTag Lib "C:\kingvewcliend.dll" (ByVal TagID As Integer, ByRef bVal As Boolean, ByRef lVal As Long, ByRef fVal As Single, ByRef sVal As String) As Integer
Declare Function WriteTag Lib "C:\kingvewcliend.dll" (ByVal TagID As Integer, ByVal bVal As Boolean, ByVal lVal As Long, ByVal fVal As Single, ByVal sVal As String) As Integer