Keysight V3500A, Руководство пользователя

Страница: 85 / 122

Driver Installation and Commands 3
V3500A User’s Guide 65
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 As Double
Dim Reply As String
Dim SN As Integer
Dim MeterAvailable As Integer
' The namespace for the V3500A driver is KeysightV3500_NS
' First, create the PowerMeter object
Dim myPM As KeysightV3500A_NS.KeysightV3500A
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 As String
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