■VB.NET用
Dim EventOn, Ret As Integer
EventOn = 1 ' イベント発生
Ret = GpSetEvent(EventOn)
' イベントを受け取るルーチン
Select Case message ' messageは実行中のプロシージャが受け取る第2引数
Case WM_USER + &H30S ' WM_USER + 0x30はGpSetEventSrq()等で設定したメッセージ番号
... ' 必要な処理を記述
Ret = GpEnableNextEvent()
End Select
■C言語用
DWORD EventOn, Ret;
EventOn = 1; /* イベント発生 */
Ret = GpSetEvent(EventOn);
/* イベントを受け取るルーチン */
switch(message){ /* messageは実行中のプロシージャが受け取る第2引数 */
case WM_USER + 0x30: /* WM_USER + 0x30はGpSetEventSrq()等で設定したメッセージ番号 */
... /* 必要な処理を記述 */
Ret = GpEnableNextEvent();
break;
}
■C#用
uint EventOn, Ret;
EventOn = 1; /* イベント発生 */
Ret = gpib.SetEvent(EventOn);
/* イベントを受け取るルーチン */
switch(message){ /* messageは実行中のプロシージャが受け取る第2引数 */
case WM_USER + 0x30: /* WM_USER + 0x30はgpib.SetEventSrq()等で設定したメッセージ番号 */
... /* 必要な処理を記述 */
Ret = gpib.EnableNextEvent();
break;
}
■Python用
EventOn, Ret = ctypes.c_ulong(), ctypes.c_ulong()
EventOn.value = 1 # イベント発生
Ret.value = GpibPy.GpSetEvent(EventOn)
# イベントを受け取るルーチン */
# messageは実行中のプロシージャが受け取る第2引数
if message == (WM_USER + 0x30): # WM_USER + 0x30はGpSetEventSrq()等で設定したメッセージ番号
... # 必要な処理を記述
Ret.value = GpibPy.GpEnableNextEvent()