Setup Example

VB.NET

Dim hWnd As Integer

Dim wMsg As Short

Dim Ret, SrqOn As Integer

hWnd = Handle.ToInt32  ' Handle is procedure handle

wMsg = WM_USER + &H30S  ' user-specified number 400H to 7FFFH

  ' WM_USER = 0x400

SrqOn = 1   ' Create event

Ret = GpSrqEventEx(hWnd, wMsg, SrqOn)

' Event handler routin

Select Case message  ' message is procedure's 2nd parameter

Case WM_USER + &H30: ' = wMsg

    ... ' Write necessary process

    Ret = GpPoll(cmd, fstb)

    ...

    Ret = GpSrqOn()

End Select

C

HANDLE hWnd;

WORD wMsg;

DWORD Ret, SrqOn;

hWnd = hDlg; /* hDlg is procedure handle */

wMsg = WM_USER + 0x30; /* user-specified number 400H to 7FFFH */

  /* WM_USER = 0x400 */

SrqOn = 1;  /* Create event */

Ret = GpSrqEventEx(hWnd, wMsg, SrqOn);

/* Event handler routin */

switch(message){ /* message is procedure's 2nd parameter */

case WM_USER + 0x30: /* = wMsg */

 ... /* Write necessary process */

 Ret = GpPoll(cmd, fstb);

 ...

 Ret = GpSrqOn();

 break;

}

C#

int hWnd;

short wMsg;

uint Ret, SrqOn;

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

wMsg = WM_USER + 0x30; /* user-specified number 400H to 7FFFH */

  /* WM_USER = 0x400 */

SrqOn = 1;  /* Create event */

Ret = gpib.SrqEventEx(hWnd, wMsg, SrqOn);

/* Event handler routin */

switch(message){ /* message is procedure's 2nd parameter */

case WM_USER + 0x30: /* = wMsg */

    ... /* Write necessary process */

    Ret = gpib.Poll(cmd, fstb);

    ...

    Ret = gpib.SrqOn();

    break;

}

Python

wMsg = ctypes.c_ushort()

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

wMsg.value = WM_USER + 0x30 # user-specified number 400H to 7FFFH

        # WM_USER = 0x400

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

SrqOn.value = 1  # Create event

Ret.value = GpibPy.GpSrqEventEx(hWnd, wMsg, SrqOn)

# Event handler routine

# message is procedure's 2nd parameter

if message == WM_USER + 0x30: # WM_USER + 0x30 is the value set by GpSrqEventEx

    ... # Write necessary process

    Ret.value = GpibPy.GpPoll(cmd, fstb)

    ...

    Ret.value = GpibPy.GpSrqOn()