Agilent Technologies Agilent B2201A - Manual (Page 117)

Agilent B2200 User’s Guide, Edition 4 4-17
Programming
Programming Examples
Table 4-7 Label Definition and Data Save 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 1 data.’")
B2200.WriteString(":ROUT:SYMB:PORT 1,’SMU1 ’") '12
B2200.WriteString(":ROUT:SYMB:PORT 2,’SMU2 ’")
B2200.WriteString(":ROUT:SYMB:PORT 3,’SMU3 ’")
B2200.WriteString(":ROUT:SYMB:PORT 4,’UNUSED’")
B2200.WriteString(":ROUT:SYMB:PORT 5,’SMU4-F’")
B2200.WriteString(":ROUT:SYMB:PORT 6,’SMU4-S’")
B2200.WriteString(":ROUT:SYMB:PORT 7,’SMU5-F’")
B2200.WriteString(":ROUT:SYMB:PORT 8,’SMU5-S’")
B2200.WriteString(":ROUT:SYMB:PORT 9,’OPEN ’")
B2200.WriteString(":ROUT:SYMB:PORT 10,’BIAS ’")
B2200.WriteString(":ROUT:SYMB:PORT 11,’OPEN ’")
B2200.WriteString(":ROUT:SYMB:PORT 12,’GROUND’")
B2200.WriteString(":ROUT:SYMB:PORT 13,’CMU-H ’")
B2200.WriteString(":ROUT:SYMB:PORT 14,’CMU-L ’")
B2200.WriteString(":ROUT:SYMB:CHAN ALL,1,’BULK ’")
B2200.WriteString(":ROUT:SYMB:CHAN ALL,2,’SOURCE’")
B2200.WriteString(":ROUT:SYMB:CHAN ALL,3,’GATE ’")
B2200.WriteString(":ROUT:SYMB:CHAN ALL,4,’DRAIN ’")
B2200.WriteString(":ROUT:SYMB:CHAN ALL,5,’GROUND’") '30
B2200.WriteString(":SYST:MEMO:SAVE 1")
B2200.WriteString(":SYST:MEMO:COMM 1,’Port label info ’")
B2200.WriteString(":SYST:DISP:STR ’Memory 1 data was updated.’")
B2200.Close()
Console.WriteLine("Labeling completed." & Chr(10))
End Sub
End Module
Line Description
11 Displays message on the LCD.
12 to 30 Defines labels for the inputs 1 to 14 and the outputs 1 to 5.
31 Saves the switch module setup including the labels into the internal memory 1.
32 Defines the comment “Port label info” for the memory 1.
33 Displays message on the LCD.