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

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.

1 2 ... 126 127 128 129 130 131 132 133 134 135 136 ... 207 208

No comments

Agilent Technologies B1500A User's Guide Page 131