
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.
Komentarze do niniejszej Instrukcji