VB.NET
Dim Stb, SrqFlag, EoiFlag As Integer
Dim Ret As Integer
' When SRQ is sent in concurrence with setting of StatusByte.
Stb = &H41
SrqFlag = 1 ' SRQ is sent.
EoiFlag = 1 ' EOI is added.
Ret = GpSrqEx(Stb, SrqFlag, EoiFlag)
' In this case,the statusByte which an opponent rceives becomes "41H".
' When SRQ is not sent in only setting of StatusByte.
Stb = &H41
SrqFlag = 0 ' SRQ is not sent.
EoiFlag = 1 ' EOI is added.
Ret = GpSrqEx(Stb, SrqFlag, EoiFlag)
' In this case,the statusByte which an opponent rceives becomes "01H".
C
DWORD Stb, SrqFlag, EoiFlag;
DWORD Ret;
/* When SRQ is sent in concurrence with setting of StatusByte. */
Stb = 0x41;
SrqFlag = 1; /* SRQ is sent. */
EoiFlag = 1; /* EOI is added. */
Ret = GpSrqEx(Stb, SrqFlag, EoiFlag);
/* In this case,the statusByte which an opponent rceives becomes "41H". */
/* When SRQ is not sent in only setting of StatusByte. */
Stb = 0x41;
SrqFlag = 0; /* SRQ is not sent. */
EoiFlag = 1;/* EOI is added. */
Ret = GpSrqEx(Stb, SrqFlag, EoiFlag);
/* In this case,the statusByte which an opponent rceives becomes "01H". */
C#
uint Stb, SrqFlag, EoiFlag;
uint Ret;
/* When SRQ is sent in concurrence with setting of StatusByte. */
Stb = 0x41;
SrqFlag = 1; /* SRQ is sent. */
EoiFlag = 1; /* EOI is added. */
Ret = gpib.SrqEx(Stb, SrqFlag, EoiFlag);
/* In this case,the statusByte which an opponent rceives becomes "41H". */
/* When SRQ is not sent in only setting of StatusByte. */
Stb = 0x41;
SrqFlag = 0; /* SRQ is not sent. */
EoiFlag = 1;/* EOI is added. */
Ret = gpib.SrqEx(Stb, SrqFlag, EoiFlag);
/* In this case,the statusByte which an opponent rceives becomes "01H". */
Python
Stb, SrqFlag, EoiFlag = ctypes.c_ulong(), ctypes.c_ulong(), ctypes.c_ulong()
Ret = ctypes.c_ulong()
# When SRQ is sent in concurrence with setting of StatusByte.
Stb .value = x41
SrqFlag .value = 1 # SRQ is sent.
EoiFlag .value = 1 # EOI is added.
Ret.value = GpibPy.GpSrqEx(Stb, SrqFlag, EoiFlag)
# In this case,the statusByte which an opponent rceives becomes "41H".
# When SRQ is not sent in only setting of StatusByte.
Stb .vallue = x41
SrqFlag .value = 0 # SRQ is not sent.
EoiFlag .value = 1 # EOI is added.
Ret.value = GpibPy.GpSrqEx(Stb, SrqFlag, EoiFlag)
# In this case,the statusByte which an opponent rceives becomes "01H".