Agilent Technologies 4155C, User Manual

Page: 104 / 312

3-16 Agilent 4155C/4156C VXIplug&play Driver User’s Guide, Edition 4
Programming Examples for Visual Basic Users
Staircase Sweep Measurements
Sub save_data(nop1 As Long, nop2 As Long, dvg() As Double, md() As Double, st() As
Long, sc() As Double, vi As Long, ret As Long, m() As Long)
Dim i As Integer ’array counter for primary sweep ’3
Dim j As Integer ’array counter for secondary sweep
Dim val As String ’data to be saved to a file
val = "Vg (V), Vd (V), Id (mA), Status"
For j = 1 To nop2 ’8
For i = nop1 * (j - 1) To nop1 * j - 1
val = val & Chr(13) & Chr(10) & dvg(j - 1) & "," & sc(i) & "," & md(i) *
1000 & "," & st(i)
Next i
Next j ’12
Dim fname As String ’data file name ’14
Dim fnum As Integer ’file number
fname = "C:\Agilent\data\data1.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
’22
’displays data on a MsgBox
Dim title As String
’25
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() ’returns to sweep_meas if Yes is clicked.
End If ’33
End Sub
Line Description
1 Beginning of the save_data subprogram.
3 to 6 Declares variables, and defines the value.
8 to 12 Creates data to be saved and displayed on a message box.
14 to 22 Saves measurement data into a file (C:\Agilent\data\data1.txt, CSV file).
25 to 33 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.
35 End of the save_data subprogram.