Keysight E4990A - Page 301

Programming
291
'* Send limit table of trace 1 to the Ana.
Ana.WriteString ":CALC1:LIM:DATA " + CStr(NumofSeg(0)), False
For i = 0 To NumofSeg(0) - 1
With LimTbl1
Ana.WriteString "," + CStr(.Typ(i)), False
Ana.WriteString "," + CStr(.BeginStim(i)), False
Ana.WriteString "," + CStr(.EndStim(i)), False
Ana.WriteString "," + CStr(.BeginResp(i)), False
If i = NumofSeg(0) - 1 Then
Ana.WriteString "," + CStr(.EndResp(i)), True
Else
Ana.WriteString "," + CStr(.EndResp(i)), False
End If
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
'
'* Send measurement parameter and format of trace 2 to the Ana.
Ana.WriteString ":CALC1:PAR2:SEL", True
Ana.WriteString ":CALC1:PAR2:DEF " + Param(1), True
Ana.WriteString ":DISP:WIND1:TRAC2:Y:SPAC " + Fmt(1)
'* Send limit table of trace 2 to the Ana.
Ana.WriteString ":CALC1:LIM:DATA " + CStr(NumofSeg(1)), False
For i = 0 To NumofSeg(1) - 1
With LimTbl2
Ana.WriteString "," + CStr(.Typ(i)), False
Ana.WriteString "," + CStr(.BeginStim(i)), False
Ana.WriteString "," + CStr(.EndStim(i)), False
Ana.WriteString "," + CStr(.BeginResp(i)), False
If i = NumofSeg(1) - 1 Then
Ana.WriteString "," + CStr(.EndResp(i)), True
Else
Ana.WriteString "," + CStr(.EndResp(i)), False
End If