Agilent Technologies Agilent B2201A Manuel d'utilisateur télécharger pdf (Page 113)

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

Programming

Programming Examples

Table 4-6 Couple 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,505)" '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:COUP:PORT ALL,'3,5'") '13

B2200.WriteLine(":ROUT:COUP:STAT ALL,ON")

B2200.WriteLine(":ROUT:CLOS " & channels) '15

MsgBox("Click OK to start measurement.", vbOKOnly, "")

Console.WriteLine("Measurement in progress. . ." & Chr(10))

'insert the code for measurement

B2200.WriteLine(":ROUT:COUP:STAT ALL,OFF") '19

B2200.WriteLine(":ROUT:OPEN:CARD ALL")

B2200.Close()

MsgBox("Click OK to stop the program.", vbOKOnly, "")

Console.WriteLine("Measurement completed." & Chr(10))

End Sub '24

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 Closes switches to connect the input-output paths specified by channels.

15 to 25 Almost same as the code shown in the lines 13 to 22 of Table 4-3. The command used to

turn the couple mode OFF has been inserted to the line 19.

1 2 ... 108 109 110 111 112 113 114 115 116 117 118 ... 233 234

Pas de commentaire

Agilent Technologies Agilent B2201A Manuel d'utilisateur Page 113