VB.NET
Dim Ret As Integer
Dim Fstb(32) As Integer
Dim i As Integer
Ret = GpDevFind(Fstb)
For i = 0 to 31
If Fstb(i) = 255 Then
Exit For
End If
Next
' In this point, "i" is number of other devices
C
DWORD Ret;
DWORD Fstb[32];
INT i;
Ret = GpDevFind(Fstb)
for(i = 0; i < 32; i++){
if(Fstb[i] == 255)
break;
}
// In this point, "i" is number of other devices
C#
uint Ret;
uint[] Fstb = new uint[32];
int i;
Ret = gpib.DevFind(Fstb);
for(i = 0; i < 32; i++){
if(Fstb[i] == 255)
break;
}
// In this point, "i" is number of other devices
Python
Ret = ctypes.c_ulong()
Fstb = (ctypes.c_ulong * 32)()
Ret.value = GpibPy.GpDevFind(Fstb)
for i in range(0, 32):
if Fstb[i] == 255:
break
# In this point, "i" is number of other devices