Agilent B1500 VXIplug&play Driver User’s Guide, Edition 3 3-43
Programming Examples for Visual Basic Users
Multi Channel Sweep Measurement
Measurement
Result Example
Vb (V), Ib (mA), Ic (mA), Time_b (sec), Time_c (sec), Status_b,
Status_c
0.3,0,-0.005,0.057,0.057,0,0
0.35,0,-0.005,0.1434,0.1434,0,0
0.4,0,-0.005,0.23,0.23,0,0
0.45,0,-0.005,0.3164,0.3164,0,0
0.5,0,-0.005,0.403,0.403,0,0
0.55,0.0001,0.01,0.489,0.489,0,0
0.6,0.0005,0.085,0.5754,0.5754,0,0
0.65,0.00305,0.595,0.662,0.662,0,0
0.7,0.0191,3.855,0.7484,0.7484,0,0
0.75,0.0993,19.255,0.835,0.835,0,0
0.8,0.34475,57.825,0.9214,0.9214,0,0
Data save completed.
Do you want to perform measurement again?
Dim fname As String ’data file name ’12
Dim fnum As Integer ’file number
fname = "C:\Agilent\mdata\data5.txt"
fnum = 1
’saves data into the file specified by fname
Open fname For Output Access Write Lock Read Write As fnum
Print #fnum, val
Close fnum
’displays data on a MsgBox
Dim title As String ’22
Dim rbx As Integer
title = "Sweep Measurement Result"
val = val & Chr(10) & Chr(10) & "Data save completed."
val = val & Chr(10) & Chr(10) & "Do you want to perform
measurement again?"
rbx = MsgBox(val, vbYesNo, title)
If rbx = vbYes Then
sweep_meas vi, ret, m()
End If ’30
End Sub
Line Description
12 to 20 Saves measurement data into a CSV file specified by the fname
variable.
22 to 30 Displays measurement data on a message box. If Yes is clicked
on the message box, performs the sweep_meas subprogram
again. If No is clicked, returns to the perform_meas
subprogram.
32 End of the save_data subprogram.
To Next Page
Loading...
Need help?
General
