3-56 Agilent 4155C/4156C VXIplug&play Driver User’s Guide, Edition 4
Programming Examples for Visual Basic Users
Stress Force
Sub disp_data1(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) & "Do you want to CANCEL stress force?"
val = val & Chr(10) & Chr(10) & "Stress: " & stress & " [V], Duration: " & duration
& " [sec]"
Dim msg As String ’15
rbx = MsgBox(val, vbYesNo, title)
If rbx = vbYes Then
ret = hp4156b_close(vi)
msg = "Click OK to stop the program."
MsgBox msg, vbOKOnly, ""
End
End If
End Sub ’24
Line Description
1 Beginning of the disp_data1 subprogram.
3 to 13 Declares variables, and creates data to be displayed on a message box.
15 to 22 Displays the message box. If Yes is clicked, stops the program execution.
24 End of the disp_data1 subprogram.
To Next Page
Loading...
Need help?
General
