Agilent Technologies B1500A Podręcznik Użytkownika Pobierz pdf (Strona 113)

Agilent B1500 VXIplug&play Driver User’s Guide, Edition 3 3-19

Programming Examples for Visual Basic Users

Staircase Sweep Measurement

Sub sweep_meas(vi As Long, ret As Long, m() As Long) ’1

Dim vd1 As Double ’3

Dim vd2 As Double

Dim idcomp As Double

Dim vg1 As Double

Dim vg2 As Double

Dim igcomp As Double

Dim hold As Double

Dim delay As Double

Dim s_delay As Double

Dim p_comp As Double

Dim nop1 As Long

Dim nop2 As Long

vd1 = 0

vd2 = 3

idcomp = 0.05

vg1 = 1

vg2 = 3

igcomp = 0.01

hold = 0

delay = 0

s_delay = 0

p_comp = 0

nop1 = 11

nop2 = 3

Dim i As Integer

Dim j As Integer

Dim n As Long

n = nop1 * nop2 ’30

Dim msg As String

Dim rep As Long ’33

Dim sc() As Double ’primary sweep output data

Dim md() As Double ’sweep measurement data

Dim st() As Long ’status data at each step

Dim tm() As Double ’time data at each step

Dim dvg() As Double ’secondary sweep output data

ReDim Preserve sc(n) As Double

ReDim Preserve md(n) As Double

ReDim Preserve st(n) As Long

ReDim Preserve tm(n) As Double

ReDim Preserve dvg(nop2) As Double ’43

Line Description

1 Beginning of the sweep_meas subprogram.

3 to 30 Declares variables, and defines the value.

33 to 43 Declares variables used to keep source data, measurement data,

status data, and time stamp data. Also defines array size.

1 2 ... 108 109 110 111 112 113 114 115 116 117 118 ... 207 208

Komentarze do niniejszej Instrukcji

Brak uwag

Agilent Technologies B1500A Podręcznik Użytkownika Strona 113

Komentarze do niniejszej Instrukcji

Powiązane produkty i podręczniki dla Pomiary, testowanie i kontrola Agilent Technologies B1500A