![YOKOGAWA GS820 User Manual Download Page 250](http://html.mh-extra.com/html/yokogawa/gs820/gs820_user-manual_911275250.webp)
16-57
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, ":CHAN1:SENS:MODE FIX") ' Measurement mode fixed function
Call CommSend(dev, ":CHAN1:SENS ON") ' Measurement ON
Call CommSend(dev, ":CHAN1:SENS:NPLC 1") ' Integration time 1 PLC
Call CommSend(dev, ":CHAN1:SENS:ZERO:AUTO ON") ' Auto zero ON
Call CommSend(dev, ":CHAN1:SENS:TRIG SOUR") ' Measurement trigger Source change
Call CommSend(dev, ":CHAN1:SENS:DEL MIN") ' Measurement delay Minimum
Call CommSend(dev, ":TRIG:TIM1 100ms") ' Timer1 period 100 ms
Call CommSend(dev, ":CHAN1:OUTP ON") ' Output ON
Call CommSend(dev, "*OPC?") ' Wait for the setting to complete
Call CommRecvString(dev)
End Function
Function SampleSequence1(ByVal dname As String, ByVal rm As Long)
Dim i, dev As Long
Dim result(9) As Double
dev = CommOpen(rm, dname) ' Open the device
Call Setup1(dev) ' To Setup 1
For i = 0 To 9 ' Loop 10 times
Call CommSend(dev, ":CHAN1:READ?") ' Query the new measured result
result(i) = Val(CommRecvString(dev)) ' Read the result and substitute into an array
Next i
Call CommSend(dev, ":OUTP OFF") ' Output OFF
Call CommClose(dev) ' Close the device
End Function