Keysight E4990A - Page 300

E4990A Help
290
End If
.BeginStim(i) = CDbl(Cells(13 + i, 4).Value)
.EndStim(i) = CDbl(Cells(13 + i, 5).Value)
.BeginResp(i) = CDbl(Cells(13 + i, 6).Value)
.EndResp(i) = CDbl(Cells(13 + i, 7).Value)
End With
Next i
'
For i = 0 To NumofSeg(1) - 1
With LimTbl2
If Trim(Cells(20 + i, 3).Value) = "MAX" Then
.Typ(i) = 1
Else
.Typ(i) = 2
End If
.BeginStim(i) = CDbl(Cells(20 + i, 4).Value)
.EndStim(i) = CDbl(Cells(20 + i, 5).Value)
.BeginResp(i) = CDbl(Cells(20 + i, 6).Value)
.EndResp(i) = CDbl(Cells(20 + i, 7).Value)
End With
Next i
'
'*** Send measurement condition to the Ana
Ana.WriteString ":SENS1:FREQ:STAR " + CStr(Star), True
Ana.WriteString ":SENS1:FREQ:STOP " + CStr(Stp), True
Ana.WriteString ":SENS1:SWE:TYPE " + SwpFmt, True
Ana.WriteString ":CALC1:PAR1:COUN 2", True
Ana.WriteString ":DISP:WIND1:SPL D1_2", True
Ana.WriteString ":TRIG:SOUR BUS", True ' Triger souce: bus
Ana.WriteString ":INIT1:CONT ON", True ' Triger mode: Continuos
'
'* Send measurement parameter and format of trace 1 to the Ana.
Ana.WriteString ":CALC1:PAR1:SEL", True
Ana.WriteString ":CALC1:PAR1:DEF " + Param(0), True
Ana.WriteString ":DISP:WIND1:TRAC1:Y:SPAC " + Fmt(0), True ' Set Y-Axis at Log format