pcl752.bas

16 relay output channels and 16 isolated digital input channels LED indicators to show activated

Attribute VB_Name = "Module1"
'This module is provided for user who develops their program using Visual Basic 5.0
'Add this module to your own program
Option Explicit

Declare Function OpenComm Lib "ADS752.dll" (RaConfig As RASCONFIG) As Long
Declare Function CloseComm Lib "ADS752.dll" (ByVal uBoardID As Integer) As Long
Declare Function RASSYSConfigSet Lib "ADS752.dll" (ByVal uBoardID As Integer, ByVal uNewBoardID As Integer, ByVal uBaud As Integer, ByVal uBoardConfig As Integer) As Long
Declare Function RASSYSConfigRead Lib "ADS752.dll" (ByVal uBoardID As Integer, LPuBaud As Long, LPuBoardConfig As Long) As Long
Declare Function RASSYSReset Lib "ADS752.dll" (ByVal uBoardID As Integer) As Long
Declare Function RASWriteReg Lib "ADS752.dll" (ByVal uBoardID As Integer, ByVal uRegNum As Integer, ByVal uData As Integer) As Long
Declare Function RASReadReg Lib "ADS752.dll" (ByVal uBoardID As Integer, ByVal uRegNum As Integer, LPuData As Integer) As Long
Declare Function RASSetTime Lib "ADS752.dll" (ByVal uBoardID As Integer, ByVal LPString As String) As Long
Declare Function RASReadTime Lib "ADS752.dll" (ByVal uBoardID As Integer, ByVal LPString As String) As Long
Declare Function RASSetTELnum Lib "ADS752.dll" (ByVal uBoardID As Integer, ByVal LPString As String) As Long
Declare Function RASReadTELnum Lib "ADS752.dll" (ByVal uBoardID As Integer, ByVal LPString As String) As Long
Declare Function RASSetSYSID Lib "ADS752.dll" (ByVal uBoardID As Integer, ByVal LPString As String) As Long
Declare Function RASReadSYSID Lib "ADS752.dll" (ByVal uBoardID As Integer, ByVal LPString As String) As Long
Declare Function RASReadHardwareVer Lib "ADS752.dll" (ByVal uBoardID As Integer, ByVal LPString As String) As Long
Declare Function RASReadFirmwareVer Lib "ADS752.dll" (ByVal uBoardID As Integer, ByVal LPString As String) As Long
Declare Function RASAlarmSoundOff Lib "ADS752.dll" (ByVal uBoardID As Integer) As Long
Declare Function RASAnalogIn Lib "ADS752.dll" (ByVal uBoardID As Integer, ByVal uChanNum As Integer, LPfData As Single) As Long
Declare Function RASDigitalIn Lib "ADS752.dll" (ByVal uBoardID As Integer, LPuData As Integer) As Long
Declare Function RASDigitalOut Lib "ADS752.dll" (ByVal uBoardID As Integer, ByVal uData As Integer) As Long
Declare Function RASReadDigitalOut Lib "ADS752.dll" (ByVal uBoardID As Integer, LPuData As Integer) As Long
Declare Function RASAlarmSetLimits Lib "ADS752.dll" (ByVal uBoardID As Integer, ByVal uChanNum As Integer, ByVal fData As Single, ByVal bHiLo As Integer) As Long
Declare Function RASAlarmReadLimits Lib "ADS752.dll" (ByVal uBoardID As Integer, ByVal uChanNum As Integer, LPfData As Single, ByVal bHiLo As Integer) As Long
Declare Function RASAlarmEnable Lib "ADS752.dll" (ByVal uBoardID As Integer, ByVal uChanNum As Integer, ByVal uData As Integer) As Long
Declare Function RASAlarmReadEnable Lib "ADS752.dll" (ByVal uBoardID As Integer, ByVal uChanNum As Integer, LPuData As Integer) As Long
Declare Function RASReadAlarmStatus Lib "ADS752.dll" (ByVal uBoardID As Integer, LPdwData As Long) As Long
Declare Function RASSetWDT Lib "ADS752.dll" (ByVal uBoardID As Long, ByVal uData As Long) As Long
Declare Function RASTrigWDT Lib "ADS752.dll" (ByVal uBoardID As Long) As Long

Type RASCONFIG
    uLinkWay As Integer
    uPortNum As Long
    uBoardID As Long
    uBaud As Long
    cTEL As String * 16
    bRS485 As Boolean
End Type