mdts.bas

来自「采用Visual Basic6.0」· BAS 代码 · 共 31 行

Attribute VB_Name = "Module1"
Option Explicit

Global icdev As Long
Global st As Long
Global IsLCD As Boolean
Global handok As Boolean
Global pass As String * 8


'通用函数
Declare Function OpenComm Lib "dascomm" (ByVal commport&) As Long
Declare Function CloseComm Lib "dascomm" (ByVal icdev&) As Long
Declare Function Hand_Shake_N Lib "dascomm" (ByVal icdev&, ByVal node_addr As Long) As Long

Declare Function Hand_Shake Lib "dascomm" (ByVal icdev&, ByVal node_addr As Long, ByVal pass As String) As Long

Declare Function Set_NodeTime Lib "dascomm" (ByVal icdev&, ByVal datetime As String) As Long
Declare Function Get_NodeTime Lib "dascomm" (ByVal icdev&, ByVal datetime As String) As Long

Declare Function Get_Curr_Record Lib "dascomm" (ByVal icdev&, ByRef node_addr&, ByVal record_data As String) As Long
Declare Function Get_Next_Record Lib "dascomm" (ByVal icdev&, ByRef node_addr&, ByVal record_data As String) As Long

Declare Function Real_Query Lib "dascomm" (ByVal icdev&, ByVal node_addr&, ByVal record_data As String) As Long

Declare Function Real_Query_N Lib "dascomm" (ByVal icdev&, ByVal node_addr&, ByVal record_data As String) As Long

Declare Function Set_ADDR Lib "dascomm" (ByVal icdev As Long, ByVal old_node_addr As Long, ByVal new_node_addr As Long) As Long