Keysight V3500A User Manual page 92

3 Driver Installation and Commands
Reply = myPM.SendString("FREQ1000" & vbCrLf) ' Set the frequency to 1000 MHz
CheckForOK(Reply)
Message = Message & "V3500A configured." & vbCrLf
txtMessages.Text = Message
'Take a reading:
On Error GoTo
Reply = myPM.SendString("*TRG" & vbCrLf)
Message = Message & "Measured power: " & Reply & " dBm." & vbCrLf
txtMessages.Text = Message
Exit Sub
Err_Failed_Setup:
Message = Message & "Error configuring V3500A for measurement: " &
Err.Description & vbCrLf
txtMessages.Text = Message
Exit Sub
Err_Failed_Read:
Message = Message & "Error reading power from V3500A: " & Err.Description &
vbCrLf
txtMessages.Text = Message
Exit Sub
Err_Failed_Send:
MsgBox("Error during send " & Err.Description)
End Sub
Private Sub CheckForOK(ByVal
Dim StringCompare
StringComp = StrComp(Msg, "OK")
If (StringCompare = 0)
Exit Sub
Else
72
Err_Failed_Read
Msg As
As Integer
Then
String)
V3500A User's Guide