Agilent Technologies E5071C - Page 972

Programming
1199
Error_Term_Data = Error_Term_Data & "," & RealData & "," & ImagData 'Sets the
command parameter.
Next i
Call viVPrintf(vi, ":SENS" & Ch & ":CORR:COEF " & Error_Term_Data & vbLf, 0) 'Write the
calibration coefficient data.
Call viVPrintf(vi, ":SENS" & Ch & ":CORR:COEF:SAVE" & vbLf, 0) 'Calculates the
calibration coefficients.
End Select
End Sub
Function Make_Freq(vi As Long, tPoint As Long) As Variant
Dim start_freq As Double
Dim stop_freq As Double
Dim Nop As Integer
Dim fStep As Double
Dim fPoint As Double
Dim freq_arry() As Variant
Dim MeasPoint As Integer
Const SegmentCnt = 2 'number of segment table.
ReDim freq_arry(tPoint) As Variant
MeasPoint = 1
For j = 1 To SegmentCnt
start_freq = Cells(3 + j - 1, 9) 'Sets the start frequency of segment table.
stop_freq = Cells(3 + j - 1, 10) 'Sets the stop frequency of segment table.
Nop = Cells(3 + j - 1, 13) 'Sets the nop of segment table.
fStep = (stop_freq - start_freq) / (Nop - 1) 'Calculate the frequency step.
fPoint = start_freq 'Sets the frequency start point.
For i = 1 To Nop
freq_arry(MeasPoint) = fPoint 'Sets the frequency value.
fPoint = fPoint + fStep 'Calculate the frequency points.
MeasPoint = MeasPoint + 1 'Add to measurement points.
Next i