Agilent Technologies B1500A User's Guide download pdf (Page 103)

Agilent B1500 VXIplug&play Driver User’s Guide, Edition 3 3-9

Programming Examples for Visual Basic Users

High Speed Spot Measurement

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, vbYesNo + 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.

1 2 ... 98 99 100 101 102 103 104 105 106 107 108 ... 207 208

No comments

Agilent Technologies B1500A User's Guide Page 103