Agilent Technologies B2200A User Manual page 115

Table 4-7
Imports Agilent.TMFramework
Imports Agilent.TMFramework.InstrumentIO
Module Module1
Sub Main()
Dim B2200 As New DirectIO("GPIB0::22::INSTR")
B2200.WriteLine("*RST")
B2200.WriteLine(":ROUT:FUNC ACON")
Console.WriteLine("Starts labeling." & Chr(10))
B2200.WriteLine(":SYST:DISP:STR 'Updating memory 1 data.'")
B2200.WriteLine(":ROUT:SYMB:PORT 1,'SMU1
B2200.WriteLine(":ROUT:SYMB:PORT 2,'SMU2
B2200.WriteLine(":ROUT:SYMB:PORT 3,'SMU3
B2200.WriteLine(":ROUT:SYMB:PORT 4,'UNUSED'")
B2200.WriteLine(":ROUT:SYMB:PORT 5,'SMU4-F'")
B2200.WriteLine(":ROUT:SYMB:PORT 6,'SMU4-S'")
B2200.WriteLine(":ROUT:SYMB:PORT 7,'SMU5-F'")
B2200.WriteLine(":ROUT:SYMB:PORT 8,'SMU5-S'")
B2200.WriteLine(":ROUT:SYMB:PORT 9,'OPEN
B2200.WriteLine(":ROUT:SYMB:PORT 10,'BIAS
B2200.WriteLine(":ROUT:SYMB:PORT 11,'OPEN
B2200.WriteLine(":ROUT:SYMB:PORT 12,'GROUND'")
B2200.WriteLine(":ROUT:SYMB:PORT 13,'CMU-H '")
B2200.WriteLine(":ROUT:SYMB:PORT 14,'CMU-L '")
B2200.WriteLine(":ROUT:SYMB:CHAN ALL,1,'BULK
B2200.WriteLine(":ROUT:SYMB:CHAN ALL,2,'SOURCE'")
B2200.WriteLine(":ROUT:SYMB:CHAN ALL,3,'GATE
B2200.WriteLine(":ROUT:SYMB:CHAN ALL,4,'DRAIN '")
B2200.WriteLine(":ROUT:SYMB:CHAN ALL,5,'GROUND'")
B2200.WriteLine(":SYST:MEMO:SAVE 1")
B2200.WriteLine(":SYST:MEMO:COMM 1,'Port label info '")
B2200.WriteLine(":SYST:DISP:STR 'Memory 1 data was updated.'")
B2200.Close()
Console.WriteLine("Labeling completed." & Chr(10))
End Sub
End Module
Line
9, 31 Displays message on the LCD.
10 to 28 Defines labels for the inputs 1 to 14 and the outputs 1 to 5.
29 Saves the switch module setup including the labels into the internal memory 1.
30 Defines the comment "Port label info" for the memory 1.
Label Definition and Data Save Example
Agilent B2200 User's Guide, Edition 2
'")
'")
'")
'")
'")
'")
'")
'")
Description
Programming
Programming Examples
'10
'28
'34
4-17