■VB.NET用
Dim Ret, Cmd(31), talker, stbyte As Integer
Dim Pstb(31) As Integer ' ステータスバイト用配列
Cmd(0) = 2 ' ポーリングする相手機器数
Cmd(1) = 3 ' 相手機器アドレス
Cmd(2) = 4 ' 相手機器アドレス
Ret = GpPoll(Cmd, Pstb)
talker = Cmd(Pstb(0))' SRQを送出した機器のアドレス
stbyte = Pstb(Pstb(0))' ステータスバイト
■C言語用
DWORD Ret, Cmd[31], talker, stbyte;
DWORD Pstb[31]; /* ステータスバイト用配列 */
Cmd[0] = 2; /* ポーリングする相手機器数 */
Cmd[1] = 3; /* 相手機器アドレス */
Cmd[2] = 4; /* 相手機器アドレス */
Ret = GpPoll(Cmd, Pstb);
talker = Cmd[Pstb[0]];/* SRQを送出した機器のアドレス */
stbyte = Pstb[Pstb[0]];/* ステータスバイト */
■C#用
uint Ret, talker, stbyte;
uint[] Cmd = new uint[31];
uint[] Pstb = new uint[31]; /* ステータスバイト用配列 */
Cmd[0] = 2; /* ポーリングする相手機器数 */
Cmd[1] = 3; /* 相手機器アドレス */
Cmd[2] = 4; /* 相手機器アドレス */
Ret = gpib.Poll(Cmd, Pstb);
talker = Cmd[Pstb[0]];/* SRQを送出した機器のアドレス */
stbyte = Pstb[Pstb[0]];/* ステータスバイト */
■Python用
Ret, Cmd, talker, stbyte = ctypes.c_ulong(), (ctypes.c_ulong * 31)(), ctypes.c_ulong(), ctypes.c_ulong()
Pstb = (ctypes.c_ulong * 31)() # ステータスバイト用配列
Cmd[0] = 2 # ポーリングする相手機器数
Cmd[1] = 3 # 相手機器アドレス
Cmd[2] = 4 # 相手機器アドレス
Ret.value = GpibPy.GpPoll(Cmd, Pstb)
talker.value = Cmd[Pstb[0]] # SRQを送出した機器のアドレス
stbyte.value = Pstb[Pstb[0]] # ステータスバイト