Setup Example

VB.NET

Dim hWnd As Integer

Dim wMsg As Short

Dim DecOn, Ret As Integer

hWnd = Handle.ToInt32 ' Handle is handle of executing procedure.

wMsg = WM_USER + &H32S ' A random number of 0x400-0x7FFF

DecOn = 1 ' Event of DEC(Device clear) generation

Ret = GpSetEventDec(hWnd, wMsg, DecOn)

C

HANDLE hWnd;

WORD wMsg;

DWORD DecOn, Ret;

hWnd = hDlg; /* hDlg is handle of executing procedure.*/

wMsg = WM_USER + 0x32; /* A random number of 0x400-0x7FFF */

DecOn = 1; /* Event of DEC(Device clear) generation */

Ret = GpSetEventDec(hWnd, wMsg, DecOn);

C#

int hWnd;

ushort wMsg;

uint DecOn, Ret;

hWnd = this.Handle.ToInt32(); /* this.Handle is handle of executing procedure.*/

wMsg = WM_USER + 0x32; /* A random number of 0x400-0x7FFF */

DecOn = 1; /* Event of DEC(Device clear) generation */

Ret = gpib.SetEventDec(hWnd, wMsg, DecOn);

Python

wMsg = ctypes.c_ushort()

DecOn, Ret = ctypes.c_ulong(), ctypes.c_ulong()

hWnd = ctypes.windll.user32.FindWindowW(0, "Name") # "Name" is caption of executing procedure.

wMsg.value = WM_USER + 0x32 # A random number of 0x400-0x7FFF

DecOn.value = 1 # Event of DEC(Device clear) generation

Ret.value = GpibPy.GpSetEventDec(hWnd, wMsg, DecOn)