Load Edge Series
Remote Control 87
Private Sub Command2_Click() ' start sample-2)
Call InitIF ' initialize GPIB I/F
ilwrt IFid, "SW1", 3 ' LOAD ON
ilwrt IFid, "CC2", 3 ' set constant cur. for 2A
' ①
ilwrt IFid, "DP1 DC5 DT10", 12 ' CC-1=5A TIME-A=10msec
ilwrt IFid, "DP2 DC3 DT40", 12 ' CC-2=3A TIME-B=40msec
ilwrt IFid, "DR5", 4 ' RESPONS=5A/usec
MsgBox "Dynamic Load Start" ' ②
ilwrt IFid, "CD1", 3
MsgBox "Dynamic Load Stop" ' ③
ilwrt IFid, "CD0", 3
ilwrt IFid, "DP2 DT0", 7 ' TIME-B=0msec
MsgBox "Single shot Dynamic Load Start"
ilwrt IFid, "CD1", 3 ' ④
MsgBox "End Dynamic Sample Program"
ilwrt IFid, "SW0", 3 ' LOAD OFF
' ⑤
ilwrt IFid, "CC0", 3 ' set value for 0A
End Sub ' End of sample-2)
Private Sub Command3_Click() ' start sample-3)
Call InitIF ' initialize GPIB I/F
Dim stb As Integer
ilrsp IFid, stb ' read status information
MsgBox CStr(stb)
End Sub ' End of sample-3)