Keysight Technologies E5260 Series Programming Manual page 166

NOTE
Table 3-16
Imports Ivi.visa.interop
Module Module1
Sub Main()
Dim B1500 As IResourceManager : Dim unit1 As IMessage
B1500 = New ResourceManager
unit1 = B1500.Open("GPIB0::17::INSTR")
Dim E5270 As IResourceManager : Dim unit2 As IMessage
E5270 = New ResourceManager
unit2 = E5270.Open("GPIB0::22::INSTR")
unit1.WriteString("*RST" & vbLf)
unit2.WriteString("*RST" & vbLf)
MsgBox("Click OK to start measurement.", vbOKOnly, "")
Console.WriteLine("Measurement in progress. . ." & Chr(10))
Dim t() As Integer = {1, 2, 1, 2}
Dim term1 As String = t(0) & "," & t(1)
Dim term2 As String = t(2) & "," & t(3)
unit1.WriteString("CN " & term1 & vbLf)
unit2.WriteString("CN " & term2 & vbLf)
perform_meas(unit1, unit2, t)
Line
1 This line is required to use the VISA COM library.
5 to 20 Main subprogram establishes the connection with Unit1 and Unit2, resets them, opens a
message box to confirm the start of measurement, and pauses program execution until OK is
clicked on the message box. By clicking OK, the program displays a message on the console
window, enables the SMUs (in the slots 1 and 2 of both Unit1 and Unit2), and calls the
perform_meas subprogram that will be used to perform measurement.
Programming Examples
Using Trigger Function
Programming examples using the trigger function are explained below. The
examples use a couple within the available couples of the Keysight B1500A and the
Keysight E5260/E5270 series. In this section, they are assigned as Unit1 (address
717) and Unit2 (address 722).
To run the programs shown in this section, you do not need the example code shown
in Table 3-1 (template of a project).
The following program performs a MOSFET drain current measurement. Unit2
applies voltage to the source and substrate terminals. Unit1 applies voltage to the
gate and drain terminals, and measures the drain current. Before running the
program, connect a BNC cable between the following terminals.
• Unit2's Ext Trig Out to Unit1's Ext Trig In
Trigger Programming Example 1
3- 58 Keysight E5260/E5270 Programming Guide, Edition 4
'unit1[1,2], unit2[1,2]
Description
'1
'5
'20