Agilent Technologies Agilent B2201A - Manual (Page 111)

Agilent B2200 User’s Guide, Edition 4 4-11
Programming
Programming Examples
Table 4-4 Bias Mode Example
Imports Ivi.visa.interop '1
Module Module1
Sub Main()
Dim B220x As IResourceManager
Dim B2200 As IMessage
B220x = New ResourceManager
B2200 = B220x.Open("GPIB0::22::INSTR")
Dim channels As String = "(@101,202,303,404)" '8
B2200.WriteString("*RST")
B2200.WriteString(":ROUT:FUNC ACON")
B2200.WriteString(":ROUT:CONN:RULE ALL,SROU")
B2200.WriteString(":ROUT:CONN:SEQ ALL,BBM")
B2200.WriteString(":ROUT:BIAS:PORT ALL,10")
B2200.WriteString(":ROUT:BIAS:CHAN:ENAB:CARD ALL")
B2200.WriteString(":ROUT:BIAS:STAT ALL,ON")
MsgBox("Click OK to start stress output.", vbOKOnly, "") '16
Console.WriteLine("Stress output in progress. . ." & Chr(10))
’insert the code for stress output
B2200.WriteString(":ROUT:BIAS:STAT ALL,OFF")
B2200.WriteString(":ROUT:CLOS " & channels) '20
MsgBox("Click OK to start measurement.", vbOKOnly, "")
Console.WriteLine("Measurement in progress. . ." & Chr(10))
’insert measurement code
B2200.WriteString(":ROUT:OPEN:CARD ALL")
B2200.Close()
MsgBox("Click OK to stop the program.", vbOKOnly, "")
Console.WriteLine("Measurement completed." & Chr(10))
End Sub
End Module
Line Description
8 Defines the channel list in the channels variable (string).
9 to 12 Resets the Agilent B2200. And sets the Auto configuration mode, the Single connection
rule, and the Break_Before_Make connection sequence.
13 to 15 Sets the bias port and the bias enabled output ports. And turns the bias mode ON.
16 to 18 Opens a message box to confirm the start of measurement. And clicking OK on the
message box displays a message on the console window.
Insert bias source control program code at the line 18.
19 Turns the bias mode OFF.
20 to 29 Same as the code shown in the lines 14 to 23 of Table 4-3.