4-8 Agilent 4155C/4156C VXIplug&play Driver User’s Guide, Edition 4
Programming Examples for Visual Basic .NET Users
High-Speed Spot Measurements
High-Speed Spot Measurements
This section explains an example subprogram that performs high speed spot
measurement. This example measures MOSFET drain current.
Table 4-2 High-Speed Spot Measurement Example
Sub perform_meas(ByVal Ag415x As Hp4156b) ’1
Dim i As Integer = 0
Dim j As Integer = 0
Dim nop1 As Integer = 1
Dim nop2 As Integer = 1
Dim data(nop2, nop1) As String
Dim val As String = "Id (mA), Status"
Dim fname As String = "C:\Agilent\data\data1.txt"
Dim title As String = "Spot Measurement Result"
Dim msg As String = "No error."
Dim err As Integer = 0
Dim t() As Integer = {1, 2, 3, 4} ’13
Ag415x.SetSwitch(t(3), 1) ’SMU4: substrate
Ag415x.SetSwitch(t(2), 1) ’SMU3: source
Ag415x.SetSwitch(t(1), 1) ’SMU2: gate
Ag415x.SetSwitch(t(0), 1) ’SMU1: drain
Dim vd As Double = 0.5 ’19
Dim vg As Double = 0.5
Dim idcomp As Double = 0.05
Dim igcomp As Double = 0.01
Dim meas As Double
Dim status As Integer
Ag415x.Force(t(3), 2, 0, 0, 0.1, 0) ’out= 0 V, comp= 0.1 A 26
Ag415x.Force(t(2), 2, 0, 0, 0.1, 0) ’out= 0 V, comp= 0.1 A
Ag415x.Force(t(1), 2, 2, vg, igcomp, 0) ’out= vg V, comp= igcomp A
Ag415x.Force(t(0), 2, 2, vd, idcomp, 0) ’out= vd V, comp= idcomp A
Ag415x.ErrorQuery(err, msg)
If err <> 0 Then Ag415x.ZeroOutput(0) : GoTo Check_err
Line Description
2 to 11 Declares variables used in the program template. And sets the proper values.
13 to 17 Enables measurement channels.
19 to 24 Declares variables and sets the value.
26 to 31 Applies voltage to device and checks if an error occurred. If an error is detected, forces
0 V and goes to Check_err.
To Next Page
Loading...
Need help?
General
