Agilent Technologies E5071C

Programming
1393
20|
30| Dim Par As String, Fmt As String, File As String
40| Dim Center As Double, Span As Double, IfBw As Double, Pow As Double
50| Dim Bw As Double, Cent As Double
60| Dim CutLow As Double, CutHigh As Double
70| Dim Qfac As Double, Loss As Double
80| Dim MkrVal As Variant, BwData As Variant
90| Dim Nop As Long, NumTrac As Long, CalKit As Long, Buff As Long
100| Dim Port As Variant, Error As Variant
110|
120| Center = 947500000# 'Center freq : 947.5 MHz
130| Span = 200000000# 'Span freq : 200 MHz
140| Nop = 401 'Number of points : 401
150| IfBw = 10000# 'IF bandwidth : 10 kHz
160| Pow = -10 'Power level : -10dBm
170| NumTrac = 1 'Number of traces : 1
180| Par = "S21" 'Meas. parameter : S21
190| Fmt = "MLOG" 'Data format : Log Mag
200| CalKit = 4 'Calibration kit : 85032F
210| File = "State08.sta" 'Saved file name : State08.sta
220|
230| '''Presetting the E5071C
240|
250| SCPI.SYSTem.PRESet
260|
270| '''Setting measurement conditions
280|
290| SCPI.INITiate(1).CONTinuous = True
300| SCPI.TRIGger.SEQuence.Source = "BUS"
310|
320| SCPI.SENSe(1).FREQuency.Center = Center
330| SCPI.SENSe(1).FREQuency.Span = Span
340| SCPI.SENSe(1).SWEep.POINts = Nop
350| SCPI.SENSe(1).BANDwidth.RESolution = IfBw
360| SCPI.Source(1).POWer.LEVel.IMMediate.AMPLitude = Pow
370|
380| SCPI.CALCulate(1).PARameter.Count = NumTrac