![YOKOGAWA GS820 Скачать руководство пользователя страница 252](http://html.mh-extra.com/html/yokogawa/gs820/gs820_user-manual_911275252.webp)
16-59
IM 765601-01E
Communication Commands
3
2
1
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
App
Index
16.4 Sample Programs
Call CommSend(dev, ":CHAN2:SENS:MODE FIX") ' Measurement mode Fixed function
Call CommSend(dev, ":CHAN2:SENS ON") ' Measurement ON
Call CommSend(dev, ":CHAN2:SENS:FUNC CURR") ' Measurement function Current
Call CommSend(dev, ":CHAN2:SENS:NPLC MIN") ' Integration time Minimum
Call CommSend(dev, ":CHAN2:SENS:ZERO:AUTO OFF") ' Auto zero OFF
Call CommSend(dev, ":CHAN2:SENS:TRIG SOUR") ' Measurement trigger Source change
Call CommSend(dev, ":CHAN2:SENS:DEL 1ms") ' Measurement delay 1 ms
Call CommSend(dev, ":CHAN2:OUTP:STAT ON") ' Output ON
Call CommSend(dev, "*OPC?") ' Wait for the setting to complete
Call CommRecvString(dev)
End Function
Function SampleSequence2(ByVal dname As String, ByVal rm As Long)
Dim dev As Long
Dim result(4) As Double
dev = CommOpen(rm, dname) ' Open the device
Call Setup2(dev) ' To Setup 2
Call CommSend(dev, ":CHAN2:SOUR:LEV 2.8") ' Set the level to 2.8 V
Call CommSend(dev, ":CHAN2:MEAS?") ' Generate a trigger and read the result
result(0) = Val(CommRecvString(dev))
Call CommSend(dev, ":CHAN2:SOUR:LEV 2.9") ' Set the level to 2.9 V
Call CommSend(dev, ":CHAN2:MEAS?") ' Generate a trigger and read the result
result(1) = Val(CommRecvString(dev))
Call CommSend(dev, ":CHAN2:SOUR:LEV 3.0") ' Set the level to 3.0 V
Call CommSend(dev, ":CHAN2:MEAS?") ' Generate a trigger and read the result
result(2) = Val(CommRecvString(dev))
Call CommSend(dev, ":CHAN2:SOUR:LEV 3.1") ' Set the level to 3.1 V
Call CommSend(dev, ":CHAN2:MEAS?") ' Generate a trigger and read the result
result(3) = Val(CommRecvString(dev))
Call CommSend(dev, ":CHAN2:SOUR:LEV 3.2") ' Set the level to 3.2 V
Call CommSend(dev, ":CHAN2:MEAS?") ' Generate a trigger and read the result
result(4) = Val(CommRecvString(dev))
Call CommSend(dev, ":CHAN2:OUTP OFF") ' Output OFF
Call CommClose(dev) ' Close the device
End Function