Agilent Technologies 4156C User Manual

3-12 Agilent 4155C/4156C VXIplug&play Driver User’s Guide, Edition 4
Programming Examples for Visual Basic Users
Multi-Channel Spot Measurements
Measurement
Result Example
Ic = 3.808 (mA)
Ib = 0.01883 (mA)
hfe = 202.230483271375
Do you want to perform measurement again?
Sub display_data(md() As Double, st() As Long, 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)"
If st(1) = 0 Then
value = value & Chr(10) & Chr(10) & "Ib = " & md(1) * 1000 & " (mA)"
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 ’25
End Sub
Line Description
1 Beginning of the display_data subprogram.
3 to 6 Declares variables, and defines the value.
8 to 25 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.
26 End of the display_data subprogram.

Agilent Technologies 4156C Specifications

General

Brand	Agilent Technologies
Model	4156C
Category	Measuring Instruments
Language	English