Uncertainty on Power Meter

'

' Keysight Technologies 2018

'

' Uncertainty on power meter COM example

'

' This script execute and print the result of  all the

' commands  related to the uncertainty on power meter

' by using COM

'''''''''''''''''''''''''''''''''''''''''

' Create the Application object

Dim app

Set app = CreateObject("AgilentPNA835x.Application")

'''''''''''''''''''''''''''''''''''''''''

'Get the external devices

dim externalDevices

Set externalDevices = app.ExternalDevices

'''''''''''''''''''''''''''''''''''''''''

' Get the specific device in this example is Device2

dim myExternalDevice

Set myExternalDevice = externalDevices.Item("Device2")

' print the selected external device type

msgbox("External Device type:"& myExternalDevice.DeviceType)

'''''''''''''''''''''''''''''''''''''''''

' Get the External device extended propertiespecific

'

dim PwrasRec

Set PwrasRec =myExternalDevice.ExtendedProperties

'

' Get the uncertainty object

'

dim PowerSensorUncertainty

set PowerSensorUncertainty = PwrasRec.PowerSensorUncertainty

'

' Get the list of all the model available for uncertainty

'

dim catalog

catalog=PowerSensorUncertainty.UncertaintyModelCatalog

'

' Print the first element of the catalog

'

msgbox("First Element of Power Meter with uncertainty catalog: "&catalog(1))

'

' Get the selected uncertainty model

Dim pwrmodel

pwrmodel=PowerSensorUncertainty.UncertaintyModel

' print it

msgbox("Selected Power Meter Model: "&pwrmodel)

'

' Get the custom uncertainty file

' If the model is not a CustomFile this will return Undefined as file name

Dim pwruncfile

pwruncfile=PowerSensorUncertainty.UncertaintyFile

' print it

msgbox("Selected Power Meter Custom File: "&pwruncfile)

'

' Read the pwrmtr uncertainty value for a specific frequency and pwrlevel

' in this example 10GHz and 0.0 dBm

Dim PwrMtrReadingUncertianty

PwrMtrReadingUncertianty=PowerSensorUncertainty.PowerMtrReadingUncertainty(10e9,0.0)

msgbox("10GHz and 0.0dBm nominal value Power Meter reading uncertainty variance: "&PwrMtrReadingUncertianty&" [W^2]")

'

' Read the power value which offer the best accuracy for the power meter

Dim PowerForBestAcc

PowerForBestAcc=PowerSensorUncertainty.PowerForBestAccuracy

msgbox("Power Meter power for best accurary: "&PowerForBestAcc&" [dBm]")