Agilent Technologies B1500A User Manual

Agilent B1500 VXIplug&play Driver User’s Guide, Edition 3 3-13
Programming Examples for Visual Basic Users
Multi Channel Spot Measurement
Measurement
Result Example
Ic = 3.808 (mA)
Time = 0.061(sec)
Ib = 0.01883 (mA)
Time = 0.0636(sec)
hfe = 202.230483271375
Do you want to perform measurement again?
Sub display_data(md() As Double, st() As Long, tm() As Double, vi As Long, ret As
Long, pins() As Long) ’1
Dim title As String ’3
Dim value As String
Dim rbx As Integer
title = "Spot Measurement Result" ’6
If st(0) = 0 Then ’8
value = "Ic = " & md(0) * 1000 & " (mA)"
value = value & Chr(10) & "Time = " & tm(0) & "(sec)"
If st(1) = 0 Then
value = value & Chr(10) & Chr(10) & "Ib = " & md(1) * 1000 & " (mA)"
value = value & Chr(10) & "Time = " & tm(1) & "(sec)"
value = value & Chr(10) & Chr(10) & "hfe = " & md(0) / md(1)
value = value & Chr(10) & Chr(10) & "Do you want to perform measurement
again?"
rbx = MsgBox(value, vbYesNo + vbQuestion, title)
If rbx = vbYes Then
mspot_meas vi, ret, pins()
End If
Else
value = "Base channel status error. Code = " & st(1)
MsgBox value, vbOKOnly, title
End If
Else
value = "Collector channel status error. Code = " & st(0)
MsgBox value, vbOKOnly, title
End If ’27
End Sub
Line Description
1 Beginning of the display_data subprogram.
3 to 6 Declares variables, and defines the value.
8 to 27 Displays measurement data on a message box if the measurement status is normal.
If Yes is clicked on the message box, performs the mspot_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.
28 End of the display_data subprogram.

Agilent Technologies B1500A Specifications

General

Brand	Agilent Technologies
Model	B1500A
Category	Measuring Instruments
Language	English