KG ELS-304, Руководство по эксплуатации

Страница: 61 / 80

ELS-304
Programming Mode 8-7
Private Sub Command2_Click() ' Start of sample -2
）
Call InitIF ' initialize GPIB I/F
ilwrt IFid, "SW1", 3 ' LOAD ON
ilwrt IFid, "CC2", 3 ' Set constant curr. 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 ' Change setting to 0A
End Sub ' End of sample -2
）
Private Sub Command3_Click()
' Start of 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
）