ADLINK Technology RTV Series User Manual page 119

AngeloRTV_Set_GPIO_Int_Logic –
Dim Result As Integer
Dim PortNo As Integer
Dim Logic As Integer
PortNo = 0
Logic = 0
Result = AngeloRTV_Set_GPIO_Int_Logic (ByVal
PortNo, ByVal Logic)
AngeloRTV_Write_EEPROM
AngeloRTV_Read_EEPROM
Dim Result As Integer
Dim PortNo As Integer
Dim Offset As Byte
Dim Value As Byte
PortNo = 0
Offset =0
Value = 128
Result = AngeloRTV_Write_EEPROM(ByVal PortNo,
ByVal Offset, ByVal Value)
Result = AngeloRTV_Read_EEPROM(ByVal PortNo,
ByVal Offset, ByRef Value)
AngeloRTV_Set_LED_Sts –
Dim Result As Integer
Dim PortNo As Integer
Dim LEDStatus As Byte
PortNo = 0
LEDStatus = 1
Result = AngeloRTV_Set_LED_Sts (ByVal PortNo,
ByVal LEDStatus)
<Delphi >
AngeloRTV_Set_GPIO_Sts –
AngeloRTV_Get_GPIO_Sts –
Var
Result : SmallInt;
PortNo : SmallInt;
Status: Byte;
PortNo:=0;
Status:=1;
Result := AngeloRTV_Set_GPIO_Sts (PortNo,
Status);
Result := AngeloRTV_Get_GPIO_Sts (PortNo,
Status);
AngeloRTV_Set_GPIO_Int_Logic –
Function Library 109