Agilent Technologies B2201A Guía de usuario descargar pdf (Pagina 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.

1 2 ... 110 111 112 113 114 115 116 117 118 119 120 ... 229 230

Sin comentarios

Agilent Technologies B2201A Guía de usuario Pagina 115