設定例

■VB.NET用

Dim Stb, SrqFlag, EoiFlag As Integer

Dim Ret As Integer

' ステータスバイトの設定と同時にSRQを送出する場合

Stb = &H41

SrqFlag = 1   ' SRQを送出する

EoiFlag = 1   ' EOIを付加

Ret = GpSrqEx(Stb, SrqFlag, EoiFlag)

' この場合、相手が受け取るステータスバイトは41H

' ステータスバイトの設定だけでSRQを送出しない場合

Stb = &H41

SrqFlag = 0   ' SRQを送出しない

EoiFlag = 1   ' EOIを付加

Ret = GpSrqEx(Stb, SrqFlag, EoiFlag)

' この場合、相手が受け取るステータスバイトは01H

■C言語用

DWORD Stb, SrqFlag, EoiFlag;

DWORD Ret;

/* ステータスバイトの設定と同時にSRQを送出する場合 */

Stb = 0x41;

SrqFlag = 1;   /* SRQを送出する */

EoiFlag = 1;    /* EOIを付加 */

Ret = GpSrqEx(Stb, SrqFlag, EoiFlag);

/* この場合、相手が受け取るステータスバイトは41H */

/* ステータスバイトの設定だけでSRQを送出しない場合 */

Stb = 0x41;

SrqFlag = 0;   /* SRQを送出しない */

EoiFlag = 1;    /* EOIを付加 */

Ret = GpSrqEx(Stb, SrqFlag, EoiFlag);

/* この場合、相手が受け取るステータスバイトは01H */

■C#用

uint Stb, SrqFlag, EoiFlag;

uint Ret;

/* ステータスバイトの設定と同時にSRQを送出する場合 */

Stb = 0x41;

SrqFlag = 1;   /* SRQを送出する */

EoiFlag = 1;    /* EOIを付加 */

Ret = gpib.SrqEx(Stb, SrqFlag, EoiFlag);

/* この場合、相手が受け取るステータスバイトは41H */

/* ステータスバイトの設定だけでSRQを送出しない場合 */

Stb = 0x41;

SrqFlag = 0;   /* SRQを送出しない */

EoiFlag = 1;    /* EOIを付加 */

Ret = gpib.SrqEx(Stb, SrqFlag, EoiFlag);

/* この場合、相手が受け取るステータスバイトは01H */

■Python用

Stb, SrqFlag, EoiFlag = ctypes.c_ulong(), ctypes.c_ulong(), ctypes.c_ulong()

Ret = ctypes.c_ulong()

# ステータスバイトの設定と同時にSRQを送出する場合

Stb.value = 0x41

SrqFlag.value = 1   # SRQを送出する

EoiFlag.value = 1   # EOIを付加

Ret.value = GpibPy.GpSrqEx(Stb, SrqFlag, EoiFlag)

# この場合、相手が受け取るステータスバイトは41H

# ステータスバイトの設定だけでSRQを送出しない場合

Stb.value = 0x41

SrqFlag.value = 0   # SRQを送出しない

EoiFlag.value = 1   # EOIを付加

Ret.value = GpSrqEx(Stb, SrqFlag, EoiFlag)

# この場合、相手が受け取るステータスバイトは01H