Agilent Technologies E5071C

E5071C
1396
1130| Buff = MsgBox("Do you make another measurement?", vbYesNo, "Bandpass fileter
measurement")
1140| If Buff = vbYes Then
1150| GoTo Meas_Start
1160| End If
1170|
1180| End Sub
1190|
1200| Private Sub Calib_Solt(Chan As Long, SoltType As Long, Port As Variant)
1210|
1220| Dim Dmy As Long, I As Long, J As Long, Buff As Long
1230|
1240| Cal_Start:
1250|
1260| Buff = MsgBox("Perform the full " & SoltType & "-port cali bration.", vbOKCancel, "Full" & SoltType
& "-port calibration")
1270|
1280| If Buff = vbCancel Then
1290| GoTo Cal_Skip
1300| End If
1310|
1320| Select Case SoltType
1330| Case 1
1340| SCPI.SENSe(Chan).CORRection.COLLect.METHod.SOLT1 = Port(0)
1350| Case 2
1360| SCPI.SENSe(Chan).CORRection.COLLect.METHod.SOLT2 = Port
1370| Case 3
1380| SCPI.SENSe(Chan).CORRection.COLLect.METHod.SOLT3 = Port
1390| Case 4
1400| SCPI.SENSe(Chan).CORRection.COLLect.METHod.SOLT4 = Port
1410| End Select
1420|
1430| For I = 1 To SoltType
1440|
1450| Buff = MsgBox("Connect the Open standard to Port " & CS tr(Port(I - 1)) & ".", _
1460| vbOKCancel, "Full" & SoltType & "-port calibration")
1470| If Buff = vbOK Then
1480| SCPI.SENSe(Chan).CORRection.COLLect.ACQuire.OPEN = Port(I - 1)