■VB.NET用
Dim Ret, Reg, Preg, Cmd(3), Srlen As Integer
Dim Srbuf As String
Reg = &H8 ' ステータス（マイアドレス）指定
Ret = GpBoardsts(Reg, Preg)
Cmd(0) = 2 ' トーカ＋リスナ数
Cmd(1) = Preg ' トーカ(マイアドレス)
Cmd(2) = 3 ' リスナ
Srbuf = "Send Data" ' 送信データ
Srlen = Len(SrBuf) ' 送信データ長
Ret = GpTalk(Cmd, Srlen, Srbuf)
■C言語用
DWORD Ret, Reg, Preg, Cmd[3], Srlen;
CHAR Srbuf[256];
Reg = 0x8; /* ステータス（マイアドレス）指定 */
Ret = GpBoardsts(Reg, &Preg);
Cmd[0] = 2; /* トーカ＋リスナ数 */
Cmd[1] = Preg; /* トーカ(マイアドレス) */
Cmd[2] = 3; /* リスナ */
lstrcpy(Srbuf, "Send Data"); /* 送信データ */
Srlen = lstrlen(SrBuf); /* 送信データ長 */
Ret = GpTalk(Cmd, Srlen, Srbuf);
■C#用
uint Ret, Reg, Preg, Srlen;
uint[] Cmd = new uint[3];
string Srbuf;
Reg = 0x8; /* ステータス（マイアドレス）指定 */
Ret = gpib.Boardsts(Reg, out Preg);
Cmd[0] = 2; /* トーカ＋リスナ数 */
Cmd[1] = Preg; /* トーカ(マイアドレス) */
Cmd[2] = 3; /* リスナ */
Srbuf = "Send Data"; /* 送信データ */
Srlen = Srbuf.Length; /* 送信データ長 */
Ret = gpib.Talk(Cmd, Srlen, Srbuf);
■Python用
Ret, Reg, Preg, Cmd, Srlen = ctypes.c_ulong(), ctypes.c_ulong(), ctypes.c_ulong(), (ctypes.c_ulong * 3)(), ctypes.c_ulong()
Srbuf = (ctypes.c_ubyte * 256)()
Reg.value = 0x8 # ステータス（マイアドレス）指定
Ret.value = GpibPy.GpBoardsts(Reg, ctypes.byref(Preg))
Cmd[0] = 2 # トーカ＋リスナ数
Cmd[1] = Preg.value # トーカ(マイアドレス)
Cmd[2] = 3 # リスナ
Srlen.value = len("Send Data".encode('UTF-8')) # 送信データ長
ctypes.memmove(Srbuf, "Send Data".encode('UTF-8'), Srlen.value) # 送信データ
Ret.value = GpibPy.GpTalk(Cmd, Srlen, Srbuf)