User manual

Using the DLL in Visual basic
Here is the declaration of the K8D.DLL procedures and functions, some array variables, and the
two most important procedures of the application program (Form_Load and Form_Terminate).
Option Explicit
'Declare use of the DLL
'K8D.DLL interfaces
'IO CONFIGURATION PROCEDURES
Private Declare Sub ConfigAllIOasInput Lib "k8d.dll" ()
Private Declare Sub ConfigAllIOasOutput Lib "k8d.dll" ()
Private Declare Sub ConfigIOchipAsInput Lib "k8d.dll" (ByVal Chip_no As Long)
Private Declare Sub ConfigIOchipAsOutput Lib "k8d.dll" (ByVal Chip_no As Long)
Private Declare Sub ConfigIOchannelAsInput Lib "k8d.dll" (ByVal Channel_no As Long)
Private Declare Sub ConfigIOchannelAsOutput Lib "k8d.dll" (ByVal Channel_no As Long)
'OUTPUT PROCEDURES
Private Declare Sub IOoutput Lib "k8d.dll" (ByVal Chip_no As Long, ByVal Data As Long)
Private Declare Sub UpdateAllIO Lib "k8d.dll" ()
Private Declare Sub ClearAllIO Lib "k8d.dll" ()
Private Declare Sub SetAllIO Lib "k8d.dll" ()
Private Declare Sub UpdateIOchip Lib "k8d.dll" (ByVal Chip_no As Long)
Private Declare Sub ClearIOchip Lib "k8d.dll" (ByVal Chip_no As Long)
Private Declare Sub SetIOchip Lib "k8d.dll" (ByVal Chip_no As Long)
Private Declare Sub SetIOchannel Lib "k8d.dll" (ByVal Channel_no As Long)
Private Declare Sub ClearIOchannel Lib "k8d.dll" (ByVal Channel_no As Long)
'INPUT FUNCTIONS AND PROCEDURES
Private Declare Function ReadIOchip Lib "k8d.dll" (ByVal Chip_no As Long) As Long
Private Declare Function ReadIOchannel Lib "k8d.dll" (ByVal Channel_no As Long) As
Boolean
Private Declare Sub ReadIOconficArray Lib "k8d.dll" (Array_Pointer As Long)
Private Declare Sub ReadIOdataArray Lib "k8d.dll" (Array_Pointer As Long)
Private Declare Sub ReadDACarray Lib "k8d.dll" (Array_Pointer As Long)
Private Declare Sub ReadDAarray Lib "k8d.dll" (Array_Pointer As Long)
'How to use these calls:
' ReadIOconficArray IOconfig(0)
' ReadIOdataArray IOdata(0)
' ReadDACarray DAC(1)
' ReadDAarray DA(1)
'6 BIT DAC CONVERTER PROCEDURES
Private Declare Sub OutputDACchannel Lib "k8d.dll" (ByVal Channel_no As Long, ByVal Data
As Long)
Private Declare Sub ClearDACchannel Lib "k8d.dll" (ByVal Channel_no As Long)
Private Declare Sub SetDACchannel Lib "k8d.dll" (ByVal Channel_no As Long)
Private Declare Sub ClearDACchip Lib "k8d.dll" (ByVal Chip_no As Long)
Private Declare Sub SetDACchip Lib "k8d.dll" (ByVal Chip_no As Long)
Private Declare Sub ClearAllDAC Lib "k8d.dll" ()
Private Declare Sub SetAllDAC Lib "k8d.dll" ()
'8 BIT DA CONVERTER PROCEDURES
Private Declare Sub OutputDAchannel Lib "k8d.dll" (ByVal Channel_no As Long, ByVal Data
As Long)
Private Declare Sub ClearDAchannel Lib "k8d.dll" (ByVal Channel_no As Long)
Private Declare Sub SetDAchannel Lib "k8d.dll" (ByVal Channel_no As Long)
Private Declare Sub ClearAllDA Lib "k8d.dll" ()
Private Declare Sub SetAllDA Lib "k8d.dll" ()
'8 BIT AD CONVERTER FUNCTION
Private Declare Function ReadADchannel Lib "k8d.dll" (ByVal Channel_no As Long) As
Boolean
'GENERAL PROCEDURES
Private Declare Sub SelectI2CprinterPort Lib "k8d.dll" (ByVal port As Long)
Private Declare Sub Start_K8000 Lib "k8d.dll" ()
Private Declare Sub Stop_K8000 Lib "k8d.dll" ()
'COMMON USED GLOBALS
Const MaxIOcard As Long = 3
Const MaxIOchip As Long = 7
Const MaxDACchannel As Long = 32
Const MaxDAchannel As Long = 4
'Declare variables
Dim IOconfig(0 To MaxIOchip) As Long