YOKOGAWA 765501 - Page 232

16-60
IM 765501-01E
Call CommSend(dev, “:SENS:STAT OFF”) ‘ Measurement OFF
Call CommSend(dev, “:TRIG:SOUR TIM”) ‘ Trigger source Internal timer
Call CommSend(dev, “:TRIG:TIM 10ms”) ‘ Internal timer period 10 ms
Call CommSend(dev, “:SOUR:DEL MIN”) ‘ Source delay Minimum
Call CommSend(dev, “:OUTP:STAT ON”) ‘ Output ON
End Function
‘————————————————————————————————
‘
‘ Wait for the completion of the sweep computation
‘
‘ Wait until bit 5 (RDY) of the source status is set to 1
‘
‘————————————————————————————————
Function WaitSweepCalculate(dev As Integer)
While ((CommSourceStatus(dev) And &H20) = 0)
Sleep (10)
Wend
End Function
‘————————————————————————————————
‘
‘ Wait for the completion of the sweep operation
‘
‘ Wait until bit 0 (EOS) of the source event is set to 1
‘
‘————————————————————————————————
Function WaitSweepEnd(dev As Integer)
While ((CommSourceEvent(dev) And &H1) = 0)
Sleep (10)
Wend
End Function
‘—————————————————————————————————
‘
‘ Sample Sequence 4
‘
‘ Set the GS610 to Setup 4 and start the sweep operation when the sweep computation
‘ is complete
‘ After starting, turn the output OFF when the sweep operation is complete
‘
‘—————————————————————————————————
Function SampleSequence4()
Dim dev As Integer
dev = CommOpen() ‘ Open the device
Call Setup4(dev) ‘ Set to Setup 4
Call WaitSweepCalculate(dev) ‘ Wait for the completion of the
sweep computation
Call CommSend(dev, “*CLS”) ‘ Clear all events
Call CommSend(dev, “:SWE:TRIG”) ‘ Start the sweep operation
Call WaitSweepEnd(dev) ‘ Wait for the completion of the
sweep operation
16.4 Sample Programs