Agilent Technologies B1500A Uživatelská příručka Strana 129

  • Stažení
  • Přidat do mých příruček
  • Tisk
  • Strana
    / 208
  • Tabulka s obsahem
  • KNIHY
  • Hodnocené. / 5. Na základě hodnocení zákazníků
Zobrazit stránku 128
Agilent B1500 VXIplug&play Driver Users Guide, Edition 3 3-35
Programming Examples for Visual Basic Users
Multi Channel Sweep Measurement
Sub sweep_meas(vi As Long, ret As Long, m() As Long) ’1
Dim vc As Double ’3
Dim ve As Double
Dim vb1 As Double
Dim vb2 As Double
Dim iccomp As Double
Dim ibcomp As Double
Dim iecomp As Double
Dim hold As Double
Dim delay As Double
Dim s_delay As Double
Dim pcomp As Double
Dim nop As Long
Dim n As Long
Dim smpl As Long
vc = 3
iccomp = 0.1
ve = 0
iecomp = 0.1
vb1 = 0.3
vb2 = 0.8
ibcomp = 0.001
hold = 0
delay = 0
s_delay = 0
pcomp = 0
nop = 11
smpl = 5
n = nop *2 ’30
Dim msg As String
Dim mch(3) As Long ’32
Dim mode(2) As Long
Dim range(2) As Double
mch(0) = m(0) ’base
mch(1) = m(1) ’collector
mch(2) = 0
mode(0) = 1 ’current measurement
mode(1) = 1 ’current measurement
range(0) = -0.001 1 mA range fixed
range(1) = -0.1 ’100 mA range fixed ’41
Line Description
1 Beginning of the sweep_meas subprogram.
3 to 30 Declares variables used to set the source channels, and defines
the value.
32 to 41 Declares variables used to set the measurement channels, and
defines the value.
Zobrazit stránku 128
1 2 ... 124 125 126 127 128 129 130 131 132 133 134 ... 207 208

Komentáře k této Příručce

Žádné komentáře