3-58 Agilent B1500 VXIplug&play Driver User’s Guide, Edition 3
Programming Examples for Visual Basic Users
Breakdown Voltage Measurement
Measurement
Result Example
Vbd = 55.885 (V)
Do you want to perform measurement again?
Sub display_data(meas As Double, status As Long, vi As Long, ret As Long, pins() As
Long) ’1
Dim title As String
Dim value As String
Dim rbx As Integer
title = "Vbd Measurement Result"
If status = 8 Then ’status=8 is returned when Vbd was measured normally ’6
value = "Vbd = " & meas & " (V)"
Else
value = "Vbd = " & meas & " (V)"
value = value & Chr(10) & Chr(10) & "Status value = " & status
End If
value = value & Chr(10) & Chr(10) & "Do you want to perform measurement again?"
rbx = MsgBox(value, vbYesNo + vbQuestion, title)
If rbx = vbYes Then
vbd_meas vi, ret, pins()
End If ’16
End Sub
Line Description
1 Beginning of the display_data subprogram.
2 to 5 Declares variables, and defines the value.
6 to 16 Displays measurement data on a message box if the measurement status is normal
(8). Or displays error message on a message box if the status is abnormal.
If Yes is clicked on the message box, performs the vbd_meas subprogram again. If
No is clicked, returns to the perform_meas subprogram.
17 End of the display_data subprogram.
To Next Page
Loading...
Need help?
General
