Keysight E4990A - Page 302

E4990A Help
292
End With
Next i
Ana.WriteString ":CALC1:LIM:DISP ON", True
Ana.WriteString ":CALC1:LIM:DISP:CLIP OFF", True
Ana.WriteString ":CALC1:LIM ON", True
Ana.WriteString "*OPC?", True
Dummy = Ana.ReadNumber
'
'*** Setting status resister.
Ana.WriteString ":STAT:QUES:LIM:PTR 2", True
Ana.WriteString ":STAT:QUES:LIM:NTR 0", True
Ana.WriteString ":STAT:QUES:LIM:CHAN1:ENAB 6", True
Ana.WriteString ":STAT:QUES:LIM:CHAN1:PTR 6", True
Ana.WriteString ":STAT:QUES:LIM:CHAN1:NTR 0", True
' Clear status register
Ana.WriteString "*CLS", True
. ' Wait register clear end.
Ana.WriteString "*OPC?", True
Dummy = Ana.ReadNumber
'
'* Trigger
' Make a single trigger.
Ana.WriteString ":TRIG:SING", True
' Wait measurement end.
Ana.WriteString "*OPC?", True
Dummy = Ana.ReadNumber
'
'* Checking test results.
Ana.WriteString ":STAT:QUES:LIM?", True
ret = Ana.ReadNumber
Lim_Judge = ret And 2
Ana.WriteString ":STAT:QUES:LIM:CHAN1?", True
ret = Ana.ReadNumber
Tr1_Judge = ret And 2
Tr2_Judge = ret And 4
'