Agilent Technologies B2200A, Руководство пользователя

Страница: 109 / 234

Agilent B2200 User’s Guide, Edition 2 4-11
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")
Dim channels As String = "(@101,202,303,404)" '8
B2200.WriteLine("*RST")
B2200.WriteLine(":ROUT:FUNC ACON") '10
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")
MsgBox("Click OK to start stress output.", vbOKOnly, "") '16
'insert the code for stress output
B2200.WriteLine(":ROUT:BIAS:STAT ALL,OFF")
B2200.WriteLine(":ROUT:CLOS " & channels) '19
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))
End Sub '27
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.