Agilent Technologies 4155C, User Manual

Page: 121 / 312

Agilent 4155C/4156C VXIplug&play Driver User’s Guide, Edition 4 3-33
Programming Examples for Visual Basic Users
Multi-Channel Pulsed Spot Measurements
Measurement
Result Example
Ic = 42.1918 (mA)
Ib = 0.321449 (mA)
hfe = 131.255035791059
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)
Dim title As String ’3
Dim value As String
Dim rbx As Integer
title = "Spot Measurement Result"
If st(0) = 0 Then ’8
value = "Ic = " & md(0) * 1000 & " (mA)" & Chr(10) & Chr(10)
If st(1) = 0 Then
value = value & "Ib = " & md(1) * 1000 & " (mA)" & Chr(10) & Chr(10)
value = value & "hfe = " & md(0)/md(1) & Chr(10) & Chr(10)
value = value & "Do you want to perform measurement again?"
rbx = MsgBox(value, v 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
End Sub
’26
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.