Keysight E4990A - Page 273

Programming
263
Set Analyzer.IO = iomgr.Open("USB0::0x0957::0x1809::KPR0200015::0::INSTR")
' TimeOut time should be greater than the measurement time.
Analyzer.IO.timeout = 50000
' Select compensation point
' Set compensation point at fix
Analyzer.WriteString ":SENS1:CORR:COLL:FPO FIX", True
' Select fixture model
Analyzer.WriteString ":SENS1:FIXT:SEL FIXT16047A", True
'
Call DefineTermination
'
' Perform Fixture Compensation
Flg = MsgBox("Do you perform Open Fixture Compensation?", vbYesNo, "Fixture Compensation")
If Flg = vbYes Then
MsgBox "Connect Open Termination"
' Execute open in fixture compensation
Analyzer.WriteString ":SENS1:CORR2:COLL:ACQ:OPEN", True
' Wait for measurement end
Analyzer.WriteString "*OPC?", True
Dmy = Analyzer.ReadNumber
End If
Flg = MsgBox("Do you perform Short Fixture Compensation?", vbYesNo, "Fixture Compensation")
If Flg = vbYes Then
MsgBox "Connect Short Termination"
' Execute short in fixture compensation
Analyzer.WriteString ":SENS1:CORR2:COLL:ACQ:SHOR", True
' Wait for measurement end
Analyzer.WriteString "*OPC?", True
Dmy = Analyzer.ReadNumber
End If
Flg = MsgBox("Do you perform Load Fixture Compensation?", vbYesNo, "Fixture Compensation")
If Flg = vbYes Then
MsgBox "Connect LOAD Termination"
' Execute load in fixture compensation