Agilent Technologies 4155C, Руководство пользователя

Страница: 97 / 312

Agilent 4155C/4156C VXIplug&play Driver User’s Guide, Edition 4 3-9
Programming Examples for Visual Basic Users
High-Speed Spot Measurements
Measurement
Result Example
Id = 4.0565 (mA)
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)
Dim title As String ’3
Dim value As String
Dim rbx As Integer
title = "Spot Measurement Result"
’6
If status = 0 Then ’8
value = "Id = " & meas * 1000 & " (mA)" & Chr(10) & Chr(10)
value = value & "Do you want to perform measurement again?"
rbx = MsgBox(value, v vbQuestion, title)
If rbx = vbYes Then
spot_meas vi, ret, pins()
End If
Else
value = "Status error. Code = " & status
MsgBox value, vbOKOnly, title
End If ’18
End Sub
Line Description
1 Beginning of the display_data subprogram.
3 to 6 Declares variables, and defines the value.
8 to 18 Displays measurement data on a message box if the
measurement status is normal. If Yes is clicked on the message
box, performs the spot_meas subprogram again. If No is
clicked, returns to the perform_meas subprogram.
Or displays error message on a message box if the status is
abnormal.
20 End of the display_data subprogram.