16-56
IM 765601-01E
16.4.3 Sample 1 (Example of Reading the Measured Results during Free Run
Using Constant Period Trigger)
Attribute VB_Name = "Sample1"
'================================================================
'
' Sample 1 (Example of Reading the Measured Results during Free Run Using Constant Period Trigger)
'
' CALL SampleSequence1()
'
'================================================================
'----------------------------------------------------------------
'
' Setup 1
'
' <CH1 source settings>
' Source function: Current
' Source range: 1 A
' Limiter: ±250 mV
' Source level: 0.33333 A
' Source trigger: Timer1
' Source delay: Minimum (= 15 us)
'
' <CH1 measurement settings>
' Measurement: ON
' Measurement function: Voltage
' Integration time: 1 PLC
' Auto zero: ON
' Measurement trigger Source change
' Source delay: Minimum (= 0 us)
'
' Timer1 period: 100 ms
'
' Output: ON
'
'----------------------------------------------------------------
Function Setup1(ByVal dev As Long)
Call CommSend(dev, "*RST") ' Reset to factory default settings
Call CommSend(dev, ":CHAN1:SOUR:FUNC CURR") ' Source function Current
Call CommSend(dev, ":CHAN1:SOUR:RANG 1A") ' Source range 1 A
Call CommSend(dev, ":CHAN1:SOUR:PROT:LINK ON") ' Limiter tracking ON
Call CommSend(dev, ":CHAN1:SOUR:PROT:LEV 250mV") ' Limiter 250 mV
Call CommSend(dev, ":CHAN1:SOUR:PROT:STAT ON") ' Limiter ON
Call CommSend(dev, ":CHAN1:SOUR:LEV 0.33333A") ' Source level 0.33333 A
Call CommSend(dev, ":CHAN1:SOUR:TRIG TIM1") ' Source trigger Timer1
Call CommSend(dev, ":CHAN1:SOUR:DEL MIN") ' Source delay Minimum
16.4 Sample Programs