Agilent Technologies B1500A

Agilent B1500 VXIplug&play Driver User’s Guide, Edition 3 3-37
Programming Examples for Visual Basic Users
Multi Channel Sweep Measurement
If rep = nop Then ’68
save_data nop, md(), st(), sc(), tm(), vi, ret, m()
Else
msg = rep & " measurement steps were returned. It must be "
& nop & " steps. "
MsgBox msg, vbOKOnly, ""
End If ’73
End Sub ’75
Line Description
68 to 73 Calls the save_data subprogram to save measurement data. Or,
displays a message box if the number of returned data is not
equal to the nop value.
75 End of the sweep_meas subprogram.
Sub save_data(nop As Long, md() As Double, st() As Long, sc() As
Double, tm() As Double, vi As Long, ret As Long, m() As Long)
Dim i As Integer ’array counter for primary sweep ’3
Dim val As String ’data to be saved to a file
val = "Vb (V), Ib (mA), Ic (mA), Time_b (sec), Time_c (sec),
Status_b, Status_c"
For i = 0 To nop - 1 ’7
val = val & Chr(13) & Chr(10) & sc(i) & "," & md(2 * i) * 1000 &
"," & md(2 * i + 1) * 1000
val = val & "," & tm(2 * i) & "," & tm(2 * i + 1) & "," & st(2 *
i) & "," & st(2 * i + 1)
Next i
Line Description
1 Beginning of the save_data subprogram.
3 to 5 Declares variables, and defines the value.
7 to 10 Creates data to be saved and displayed on a message box.