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