define.bas

opc-OLE PROCESS on Controll

Attribute VB_Name = "define"
Option Base 1
Option Explicit


Public ItemServerHandles() As Long
Public ItemServerErrors() As Long

Public IsConnectSuccess As Boolean


Public Const DcsComputer = "HIS0124"   '计算机名
Public Const OpcServerName = "Yokogawa.CSHIS_OPC"   'dcs提供的opc server名
Public Const GroupName = "Group_First"
Public Const ItemCount = 51 '点数(现在点数为51
Public Const RateTime = 1000 '刷新率
Public Const iSourceDevice = 2


Public OPCItemIDs(ItemCount) As String  '用于存放点值
Public ClientHandles(ItemCount) As Long

Public Values(ItemCount) As Variant
Public ItemErrorHandles(ItemCount) As Long

Public Sub GetTagName()
    Dim i As Long
    Dim ErrorStr As String
    i = 1
    On Error GoTo readFileErr
    Open "c:\citect\TagName.Txt" For Input Access Read Lock Read Write As #1

    Do While Not EOF(1)   ' 检查文件尾。
        Line Input #1, OPCItemIDs(i)   ' 读入一行数据。
        i = i + 1
    Loop
    Close #1
'    OPCItemIDs(1) = "CHANNEL1.DEVICE1.TAG1"
'    OPCItemIDs(2) = "CHANNEL1.DEVICE1.TAG2"
'    OPCItemIDs(3) = "CHANNEL1.DEVICE1.TAG3"
'    OPCItemIDs(4) = "CHANNEL1.DEVICE1.TAG4"
'    OPCItemIDs(5) = "CHANNEL1.DEVICE1.TAG5"
    Exit Sub
readFileErr:
    Close #1
    ErrorStr = "读取文件tagname.txt失败，请检查文件夹citect中的tagname.txt文件，如果损坏，请用备份文件"
    Call OpcForm.DisplayOPC_COM_ErrorValue(ErrorStr, 1001)
End Sub

Public Sub WriteValueToFile()
    Dim i As Long
    Dim ErrorStr As String
    
    On Error GoTo writeFileError
    Open "c:\yokogawa.txt" For Output Access Write Shared As #2
    
    For i = 1 To ItemCount
        Print #2, CStr(Values(i)) + Chr(13)
    Next i
    Close 2#
    Exit Sub
    
writeFileError:
    On Error Resume Next
    Close #2
    Exit Sub
    ErrorStr = "写文件失败，请检查文件夹DDJY中的yokogawa.txt文件，如果损坏，请用备份文件"
    Call OpcForm.DisplayOPC_COM_ErrorValue(ErrorStr, 1000)
End Sub