Keysight V3500A User Manual page 93

Message = Message & "Expected an 'OK' from the V3500A; received: " & Msg &
vbCrLf
txtMessages.Text = Message
End If
End Sub
Private Sub Form_Load()
Dim SN As Long
Dim MeterAvailable
Message = ""
' Attempt to register the V3500A DLL
On Error GoTo
Message = Message & "Successfully created V3500A object." & vbCrLf
txtMessages.Text = Message
' 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 V3500A 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)
Message = Message & "PowerMeter is not available; status=" & MeterAvailable &
vbCrLf
txtMessages.Text = Message
Exit Sub
End If
Message = Message & "V3500A serial number " & SN & " is available." & vbCrLf
txtMessages.Text = Message
myPM.SerialNumber = SN
' Initialize the V3500A
On Error GoTo
V3500A User's Guide
As Integer
Err_DLL_Not_Registered
Then
Err_Failed_Initialize
Driver Installation and Commands 3
73