Agilent Technologies 4155C User Manual

Agilent 4155C/4156C VXIplug&play Driver User’s Guide, Edition 4 3-57
Programming Examples for Visual Basic Users
Stress Force
Measurement
Result Example
Data before stress:
T1 current = 11.09860 [mA], Status = 0
T2 current = 10.75880 [mA], Status = 0
Stress: 2 [V], Duration: 5 [sec]
Data after stress:
T1 current = 11.10200 [mA], Status = 0
T2 current = 10.76220 [mA], Status = 0
Do you want to perform measurement AGAIN?
Sub disp_data2(vi As Long, ret As Long, m() As Long, md() As Double, st() As Long,
stress As Double, duration As Double) ’1
Dim title As String ’3
Dim val As String
Dim rbx As Integer
title = "Measurement Result"
val = "Data before stress:"
val = val & Chr(13) & Chr(10) & "T1 current = " & md(0) * 1000 & " [mA]"
val = val & ", Status = " & st(0)
val = val & Chr(13) & Chr(10) & "T2 current = " & md(1) * 1000 & " [mA]"
val = val & ", Status = " & st(1)
val = val & Chr(10) & Chr(10) & "Stress: " & stress & " [V], Duration: " & duration
& " [sec]"
val = val & Chr(10) & Chr(10) & "Data after stress:"
val = val & Chr(13) & Chr(10) & "T1 current = " & md(2) * 1000 & " [mA]"
val = val & ", Status = " & st(2)
val = val & Chr(13) & Chr(10) & "T2 current = " & md(3) * 1000 & " [mA]"
val = val & ", Status = " & st(3)
val = val & Chr(10) & Chr(10) & "Do you want to perform measurement AGAIN?"
rbx = MsgBox(val, vbYesNo, title) ’20
If rbx = vbYes Then
stress_meas vi, ret, m()
End If
End Sub ’25
Line Description
1 Beginning of the disp_data2 subprogram.
3 to 18 Declares variables, and creates data to be displayed on a message box.
20 to 23 Displays the message box. If Yes is clicked, calls the stress_meas subprogram.
25 End of the disp_data2 subprogram.

Agilent Technologies 4155C Specifications

General

Brand	Agilent Technologies
Model	4155C
Category	Measuring Instruments
Language	English