Keysight V3500A User Manual page 85

Example code using Microsoft Visual Basic.NET
' This sample program shows how to program the Keysight V3500A PowerMeter using Microsoft Visual
Basic .NET 2003
Module Module1
Sub Main()
Dim MeasuredPower
Dim Reply As String
Dim SN As Integer
Dim MeterAvailable
' The namespace for the V3500A driver is KeysightV3500_NS
' First, create the PowerMeter object
Dim myPM As
myPM = New KeysightV3500A_NS.Keysight3500A
'Set the serial number and check that the meter is available
SN = 10973300 'Set this to the numerical serial number of your V3500A (without prefix)
MeterAvailable = myPM.IsDeviceAvailable(SN)
' A return value of 1 means the PowerMeter is available.
' A value of –1 means it is absent, and a value of 0 means it is unavailable (for example, it may
be in use by another program).
If (MeterAvailable <> 1) Then
Dim Message
Message = "PowerMeter is not available; status=" +
MeterAvailable.ToString()
Console.WriteLine(Message)
Exit Sub
End If
Console.WriteLine("V3500A serial number {0} is available", SN)
myPM.SerialNumber = SN
V3500A User's Guide
As Double
As Integer
KeysightV3500A_NS.KeysightV3500A
As String
Driver Installation and Commands 3
65