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

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.

1 2 ... 102 103 104 105 106 107 108 109 110 111 112 ... 207 208

Comments to this Manuals

No comments

Agilent Technologies B1500A User's Guide Page 107

Comments to this Manuals

Related products and manuals for Measuring, testing & control Agilent Technologies B1500A