Agilent Technologies B2201A, B2200A manual Agilent B2200 User’s Guide, Edition

Programming

Programming Examples

Table 4-4	Bias Mode Example
Imports Agilent.TMFramework
Imports Agilent.TMFramework.DataAnalysis
Imports Agilent.TMFramework.DataVisualization
Imports Agilent.TMFramework.InstrumentIO
Module Module1
Sub Main()
Dim B2200 As New DirectIO("GPIB0::22::INSTR")		'8
Dim channels As String = "(@101,202,303,404)"
B2200.WriteLine("*RST")		'10
B2200.WriteLine(":ROUT:FUNC ACON")
B2200.WriteLine(":ROUT:CONN:RULE ALL,SROU")
B2200.WriteLine(":ROUT:CONN:SEQ ALL,BBM")
B2200.WriteLine(":ROUT:BIAS:PORT ALL,10")
B2200.WriteLine(":ROUT:BIAS:CHAN:ENAB:CARD ALL")
B2200.WriteLine(":ROUT:BIAS:STAT ALL,ON")		'16
MsgBox("Click OK to start stress output.", vbOKOnly, "")
'insert the code for stress output
B2200.WriteLine(":ROUT:BIAS:STAT ALL,OFF")		'19
B2200.WriteLine(":ROUT:CLOS " & channels)
MsgBox("Click OK to start measurement.", vbOKOnly, "")
Console.WriteLine("Measurement in progress. . ." & Chr(10))
'insert the code for measurement
B2200.WriteLine(":ROUT:OPEN:CARD ALL")
B2200.Close()
MsgBox("Click OK to stop the program.", vbOKOnly, "")
Console.WriteLine("Measurement completed." & Chr(10))		'27
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 17	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 17.
18	Turns the bias mode OFF.
19 to 28	Same as the code shown in the lines 13 to 22 of Table 4-3.

Agilent B2200 User’s Guide, Edition 2 4-11