設定例

■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

' この時点での"i"が接続されている機器数

■C言語用

DWORD   Ret;

DWORD   Fstb[32];

INT   i;

Ret = GpDevFind(Fstb);

for(i = 0; i < 32; i++){

if(Fstb[i] == 255)

      break;

}

// この時点での"i"が接続されている機器数

■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;

}

// この時点での"i"が接続されている機器数

■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

# この時点での"i"が接続されている機器数