Agilent Technologies Agilent B2201A - Manual (Page 113)

Agilent B2200 User’s Guide, Edition 4 4-13
Programming
Programming Examples
Table 4-5 Ground 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:AGND:PORT ALL,12") '13
B2200.WriteString(":ROUT:AGND:UNUSED ALL,’5,6,7,8’")
B2200.WriteString(":ROUT:AGND:CHAN:ENAB:CARD ALL")
B2200.WriteString(":ROUT:AGND:STAT ALL,ON")
B2200.WriteString(":ROUT:CLOS " & channels) '17
MsgBox("Click OK to start measurement.", vbOKOnly, "")
Console.WriteLine("Measurement in progress. . ." & Chr(10))
’insert measurement code
B2200.WriteString(":ROUT:AGND:STAT ALL,OFF") '21
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 16 Sets the ground port and the ground enabled input/output ports. And turns the ground mode
ON. Open the ground enabled input ports to prevent the instruments from damage.
17 to 27 Almost same as the code shown in the lines 14 to 23 of Table 4-3. The command used to
turn the ground mode OFF has been inserted to the line 21.