Agilent Technologies B2201A Guide de l'utilisateur télécharger pdf (Page 119)

Agilent B2200 User’s Guide, Edition 4 4-19

Programming

Programming Examples

Table 4-8 Memory Comment Definition 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")

B2200.WriteString("*RST")

B2200.WriteString(":ROUT:FUNC ACON")

Console.WriteLine("Starts labeling." & Chr(10))

B2200.WriteString(":SYST:DISP:STR ’Updating memory comment.’")

B2200.WriteString(":SYST:MEMO:COMM 1,’1-1,2-2,3-3,5-15’") '12

B2200.WriteString(":SYST:MEMO:COMM 2,’1-1,2-2,3-4,5-17’")

B2200.WriteString(":SYST:MEMO:COMM 3,’1-1,2-2,3-5,5-19’")

B2200.WriteString(":SYST:MEMO:COMM 4,’1-1,2-2,5-7,7-21’")

B2200.WriteString(":SYST:MEMO:COMM 5,’1-1,2-2,5-9,7-23’")

B2200.WriteString(":SYST:MEMO:COMM 6,’10-BIAS ’")

B2200.WriteString(":SYST:MEMO:COMM 7,’12-GROUND ’")

B2200.WriteString(":SYST:MEMO:COMM 8,’CMH-10,CML-11 ’") '19

B2200.WriteString(":SYST:DISP:STR ’Memory comment was updated.’")

B2200.Close()

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

End Sub

End Module

Line Description

11 Displays message on the LCD.

12 to 19 Defines the comments for the internal memory 1 to 8.

20 Displays message on the LCD.

1 2 ... 114 115 116 117 118 119 120 121 122 123 124 ... 229 230

Pas de commentaire

Agilent Technologies B2201A Guide de l'utilisateur Page 119