Programming

Programming Examples

Table 4-8

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

 

'8

B2200.WriteLine("*RST")

 

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

 

 

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

 

 

B2200.WriteLine(":SYST:DISP:STR 'Updating memory comment.'")

'12

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

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

 

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

 

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

 

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

 

B2200.WriteLine(":SYST:MEMO:COMM 6,'10-BIAS

'")

 

B2200.WriteLine(":SYST:MEMO:COMM 7,'12-GROUND

'")

'19

B2200.WriteLine(":SYST:MEMO:COMM 8,'CMH-10,CML-11

'")

B2200.WriteLine(":SYST:DISP:STR 'Memory comment was updated.'")

 

B2200.Close()

 

 

 

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

 

'23

End Sub

 

 

End Module

 

 

 

Line

Description

 

 

8Resets the Agilent B2200.

9Sets the channel configuration mode to Auto.

12 to 19

Defines the comments for the internal memory 1 to 8.

Agilent B2200 User’s Guide, Edition 2

4-19

Page 117
Image 117
Agilent Technologies B2201A manual Memory Comment Definition Example