Agilent Technologies Agilent B2201A - Manual (Page 115)

Agilent B2200 User’s Guide, Edition 4 4-15
Programming
Programming Examples
Table 4-6 Couple 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,505)" '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:COUP:PORT ALL,’3,5’") '13
B2200.WriteString(":ROUT:COUP:STAT ALL,ON")
B2200.WriteString(":ROUT:CLOS " & channels) '15
MsgBox("Click OK to start measurement.", vbOKOnly, "")
Console.WriteLine("Measurement in progress. . ." & Chr(10))
’insert measurement code
B2200.WriteString(":ROUT:COUP:STAT ALL,OFF") '19
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 14 Sets the couple ports, and turns the couple mode ON.
15 to 25 Almost same as the code shown in the lines 14 to 23 of Table 4-3. The command used to
turn the couple mode OFF has been inserted to the line 19.