ADLINK Technology RTV Series User Manual page 97

I16 Result;
U32 DriverVersion[4] = {0}, DLLVersion[4] = {0},
Reserved[4] = {0};
char strDriverVersion[20], strDLLVersion[20];
Result = AngeloRTV_Get_Version (DriverVersion,
DLLVersion, Reserved);
sprintf(strDriverVersion, "%d.%d.%d.%d",
DriverVersion[0], DriverVersion[1],
DriverVersion[2], DriverVersion[3]);
sprintf(strDLLVersion, "%d.%d.%d.%d",
DLLVersion[0], DLLVersion[1],
DLLVersion[2], DLLVersion[3]);
< Visual Basic >
AngeloRTV_Initial –
Dim Result As Integer
Dim PortNo As Integer
For PortNo= 0 To 3
Result = AngeloRTV_Initial (ByVal PortNo)
AngeloRTV_Cose –
Dim Result As Integer
Dim PortNo As Integer
For PortNo= 0 To 3
Result = AngeloRTV_Close (ByVal PortNo)
AngeloRTV_Read_Serial–
Dim Result As Integer
Dim CardNo As Integer
Dim HighByte As Long, LowByte As Long
CardNo=0
HighByte=0
LowByte=0
Result = AngeloRTV_Read_Serial(CardNo, HighByte,
LowByte)
AngeloRTV_Software_Reset–
Dim Result As Integer
Dim PortNo As Integer
For PortNo= 0 To 3
Result = AngeloRTV_Software_Reset (ByVal PortNo)
AngeloRTV_Get_Version –
Dim Result As Integer
Dim DriverVersion(3) As Long, DLLVersion(3) As
Long, Reserved(3) As Long
Dim strDriverVersion, strDLLVersion As String
Function Library 87