Agilent Technologies 4155C, User Manual

Page: 177 / 312

Agilent 4155C/4156C VXIplug&play Driver User’s Guide, Edition 4 4-31
Programming Examples for Visual Basic .NET Users
Sampling Measurements
Sampling Measurements
This section explains an example subprogram that performs sampling measurement.
This example measures current of a device that has two high terminals and a low
terminal, and calculates the resistance.
Table 4-12 Sampling Measurement Example
Sub perform_meas(ByVal Ag415x As Hp4156b) ’1
Dim i As Integer = 0
Dim j As Integer = 0
Dim nop1 As Integer = 30
Dim nop2 As Integer = 1
Dim data(nop2, nop1) As String
Dim val As String = "Index, I1 (mA), R1 (ohm), I2 (mA), R2 (ohm), Status"
Dim fname As String = "C:\Agilent\data\data11.txt"
Dim title As String = "Sampling Measurement Result"
Dim msg As String = "No error."
Dim err As Integer = 0
Dim t() As Integer = {1, 2, 3} ’13
Ag415x.SetSwitch(t(0), 1) ’SMU1: t1
Ag415x.SetSwitch(t(1), 1) ’SMU2: t2
Ag415x.SetSwitch(t(2), 1) ’SMU3: low
Dim base As Double = 0
Dim bias As Double = 0.1
Dim icomp As Double = 0.1
Dim vlout As Double = 0
Dim ilcomp As Double = 0.1
Dim hold As Double = 0.1
Dim interval As Double = 0.05
Dim mch() As Integer = {t(0), t(1), 0}
Dim mode() As Integer = {1, 1}
Dim range() As Double = {0, 0}
Dim n As Integer = nop1 * 2
Dim point As Integer
Dim index(nop1) As Integer
Dim value(n) As Double
Dim status(n) As Integer
Ag415x.SetFilter(Hp4156b.ChannelEnum4.AllSmu, Hp4156b.StateEnum2.FilterOn) ’34
Ag415x.SetInteg(Hp4156b.TableEnum.IntegTimeShort, 0.0001, 2)
Line Description
2 to 11 Declares variables used in the program template. And sets the proper values.
13 to 32 Enables measurement channels. And declares variables and sets the value.
34 to 35 Sets the filter on for the all channels and sets the A/D converter integration time.