16-58
IM 765501-01E
Function SampleSequence3()
Dim dev As Integer
dev = CommOpen()
‘ Open the device
Call Setup3(dev)
‘ Set to Setup 3
For i = 15 To 30
‘ Change the level
Call CommSend(dev, “:SOUR:VOLT:LEV “ + CStr(i))
‘ from 15 V to 30 V
Sleep (1000)
‘ 1 s wait
Next
Call CommSend(dev, “:OUTP:STAT OFF”)
‘ Turn the output OFF
Call CommClose(dev)
‘ Close the device
End Function
16.4 Sample Programs