Agilent Technologies B1500A Guide de l'utilisateur télécharger pdf (Page 152)

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.

1 2 ... 147 148 149 150 151 152 153 154 155 156 157 ... 207 208

Pas de commentaire

Agilent Technologies B1500A Guide de l'utilisateur Page 152