Agilent Technologies B2201A - Manual (Page 117)

Agilent B2200 User’s Guide, Edition 2 4-19
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")
B2200.WriteLine("*RST")
'8
B2200.WriteLine(":ROUT:FUNC ACON")
Console.WriteLine("Starts labeling." & Chr(10))
B2200.WriteLine(":SYST:DISP:STR 'Updating memory comment.'")
B2200.WriteLine(":SYST:MEMO:COMM 1,'1-1,2-2,3-3,5-15'")
'12
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 '")
B2200.WriteLine(":SYST:MEMO:COMM 8,'CMH-10,CML-11 '") '19
B2200.WriteLine(":SYST:DISP:STR 'Memory comment was updated.'")
B2200.Close()
Console.WriteLine("Labeling completed." & Chr(10))
End Sub '23
End Module
Line Description
8 Resets the Agilent B2200.
9 Sets the channel configuration mode to Auto.
12 to 19 Defines the comments for the internal memory 1 to 8.