16-53
IM 765501-01E
Communication
Commands
3
2
1
6
5
4
9
8
7
12
11
10
15
14
13
18
17
16
16
Index
App
16.4.3 Sample 1 (Example of Reading the Measured Results during Free Run
Using Internal Trigger)
Attribute VB_Name = “Sample1”
‘================================================================
‘
‘ Sample 1 (Example of Reading the Measured Results during Free Run Using Internal
Trigger)
‘
‘ CALL SampleSequence1().
‘
‘================================================================
‘————————————————————————————————
‘
‘ Setup 1
‘
‘ <Source setting>
‘ Source function:
Current
‘ Source range setting: 1 A
‘ Limiter:
±
250 mV
‘ Source level:
0.33333 A
‘
‘ <Measurement setting>
‘ Measurement:
ON
‘ Measurement function: Voltage
‘ Integration time:
1PLC
‘ Auto zero:
ON
‘
‘ <Trigger setting>
‘ Trigger source:
Internal trigger 100 ms period
‘ Source delay:
Minimum (= 1 us)
‘ Measurement delay:
Minimum (= 1 us)
‘
‘ Output:
ON
‘
‘————————————————————————————————
Function Setup1(dev As Integer)
Call CommSend(dev, “*RST”)
‘ Reset to factory default
settings
Call CommSend(dev, “:SOUR:FUNC CURR”)
‘ Source function Current
Call CommSend(dev, “:SOUR:CURR:RANG 1A”)
‘ Source range setting 1 A
Call CommSend(dev, “:SOUR:VOLT:PROT:LINK ON”) ‘ Limiter tracking ON
Call CommSend(dev, “:SOUR:VOLT:PROT:ULIM 250mV”)‘ Limiter 250 mV
Call CommSend(dev, “:SOUR:VOLT:PROT:STAT ON”) ‘ Limiter ON
Call CommSend(dev, “:SOUR:CURR:LEV 0.33333A”) ‘ Source level 0.33333 A
Call CommSend(dev, “:SENS:STAT ON”)
‘ Measurement ON
Call CommSend(dev, “:SENS:FUNC VOLT”)
‘ Measurement function Voltage
Call CommSend(dev, “:SENS:ITIM PLC”)
‘ Integration time 1PLC
Call CommSend(dev, “:SENS:AZER:STAT ON”)
‘ Auto zero ON
Call CommSend(dev, “:TRIG:SOUR TIM”)
‘ Trigger source Internal timer
Call CommSend(dev, “:TRIG:TIM 100ms”)
‘ Internal timer period 100 ms
Call CommSend(dev, “:SOUR:DEL MIN”)
‘ Source delay Minimum
Call CommSend(dev, “:SENS:DEL MIN”)
‘ Measurement delay Minimum
Call CommSend(dev, “:OUTP:STAT ON”)
‘ Output ON
End Function
16.4 Sample Programs