■VB.NET用
Dim Ret, Srlen, Cmd(31) As Integer
Dim Srbuf As String
Cmd(0) = 3 ' トーカ＋リスナ数(マスタモード時)
Cmd(1) = 1 ' トーカアドレス
Cmd(2) = 3 ' リスナアドレス
Cmd(3) = 7 ' 〃
Srbuf = "*IDN?" ' 送信データ
Srlen = Len(Srbuf) ' 送信バイト長
Ret = GpTalk(Cmd, Srlen, Srbuf)
■C言語用
DWORD Ret, Srlen, Cmd[31];
BYTE Srbuf[10];
Cmd[0] = 3; /* トーカ＋リスナ数(マスタモード時)*/
Cmd[1] = 1; /* トーカアドレス */
Cmd[2] = 3; /* リスナアドレス */
Cmd[3] = 7; /* 〃 */
lstrcpy((char*)Srbuf, "*IDN?"); /* 送信データ */
Srlen = lstrlen((char*)Srbuf); /* 送信バイト長 */
Ret = GpTalk(Cmd, Srlen, Srbuf);
■C#用
uint Ret, Srlen;
uint[] Cmd = new uint[31];
string Srbuf;
Cmd[0] = 3; /* トーカ＋リスナ数(マスタモード時)*/
Cmd[1] = 1; /* トーカアドレス */
Cmd[2] = 3; /* リスナアドレス */
Cmd[3] = 7; /* 〃 */
Srbuf = "*IDN?"; /* 送信データ */
Srlen = Srbuf.Length; /* 送信バイト長 */
Ret = gpib.Talk(Cmd, Srlen, Srbuf);
■Python用
Ret, Srlen, Cmd = ctypes.c_ulong(), ctypes.c_ulong(), (ctypes.c_ulong * 31)()
Srbuf = (ctypes.c_ubyte * 10)()
Cmd[0] = 3 # トーカ＋リスナ数(マスタモード時)
Cmd[1] = 1 # トーカアドレス
Cmd[2] = 3 # リスナアドレス
Cmd[3] = 7 # 〃
Srlen.value = len("*IDN?".encode('UTF-8')) # 送信バイト長
ctypes.memmove(Srbuf, "*IDN?".encode('UTF-8'), Srlen.value) # 送信データ
Ret.value = GpibPy.GpTalk(Cmd, Srlen, Srbuf)