Agilent E6601A Application Note
...2 E6601A...3...4...5...8 E6601A PC...17...17 GSM...18 1Windows XP Agilent E6601A E6601A E6601A Visual Studio.NET 2
E6601A Agilent E6601A 1Windows XP Professional Windows Windows PC PC PC E6601 PC LAN E6601A PC GPIB 3
E6601A Windows XP E6601A LAN GPIB USBLAN LAN LANPC LAN E6601ALAN USB USBPC PC 1 1 GPIB GPIB LAN E6601ALAN LAN PC 4
PC PC PC E6601APC PC E6601AC++ Visual Basic Agilent VEE Pro Visual Studio Visual Studio.NETVisual Basic Microsoft Web http://msdn.microsoft.com/vstudio/ IOIOAgilent PC PC IO IO Web www.agilent.co.jp/find/iolib SoftwareIO Libraries Suite IO Libraries Suite 14.1 or above Product Download PC E6601A GPIB GPIB GPIB GPIB Screens Config Configuration MainInstrument Connections GPIB LAN PC E6601A LAN 2 1 PC E6601A PC- LAN 1 LAN PC E6601A LAN E6601A IP E6601AStart Run Run CMD OK ipconfig Enter Windows IP Ethernet Adapter Local Area Connection IP Agilent IO Control Agilent Connection Expert Agilent Connection Expert LAN E6601A Change Properties Change Configurable Properties of This LAN Device E6601A IPOK
Agilent IO Control Agilent Connection Expert Agilent Connection ExpertPC Refresh All 1 E6601A LAN Send Commands To This InstrumentAgilent Interactive IO Agilent Interactive IOCommand *IDN?Send Command E6601A Read ResponseE6601A IDN Instrument Session History Agilent Interactive IO Connect Exit 1. Agilent Connection Expert 6
SCPI E6601A GSM/GPRS E6831A GSM/GPRS SCPI E6601AGPIB Commands GSM/GPRS CA VISA COM Visual Basic.NET RST 1 Agilent E6601A SCPI Discovery Visual Studio.NET 2 SCPI Discovery E6601A Web www.agilent.co.jp/find/e6601a 2. Agilent E6601A SCPI Discovery Visual Studio.NET 7
3 GSM 1 IO 2 IO 3 4 5 6 7 8 9 10 11 3. E6601A 8
1. IOVisual Studio.NETVisual Basic.NETSolution Explorer References Add Reference 4 4. Visual Studio.NET Solution Explorer Add ReferenceCOMVISA COM 3.0 Type Library 5. Visual Studio.NET Add Reference VISA COM 3.0 Type Library OK Add Reference 9
2. Visual Basic.NET Agilent VISA COM FormattedIO488 WriteString WriteNumber WriteList WriteIEEEBlock VISA COM ResourceManager Open ReadString ReadNumber ReadList ReadIEEEBlock Visual Basic.NET Option Explicit On Option Strict On Imports Ivi.Visa.Interop Dim ResManager As New ResourceManager Dim TestSet As New FormattedIO488 ' Agilent Connection Expert ' Agilent IO "VISA " ' 'GPIB "VISA " ' "GPIB0::14::INSTR" TestSet.IO CType(ResManager.Open("GPIB0::14::INSTR"), IMessage) 'LAN VISA TestSet.IO = CType(ResManager.Open("TCPIP0::localhost::inst0::INSTR") IMessage) ' TestSet.WriteString("DISPlay:BRIGhtness MEDium") 10
3. Agilent VISA COM Clear GPIB Clear *RST ' TestSet.IO.Clear() ' TestSet.WriteString("*RST") ' TestSet.WriteString("*CLS") 11
4. SYSTem: CORRection 100 DISPlay:MODE: TRACKing ' RF IN/OUT Amplitude Offset 'State TestSet.WriteString("SYSTem:CORRection:SFRequency 1710.2 MHZ,1805.2 MHZ,1784.8 MHZ,1879.8 MHZ") ' db TestSet.WriteString("SYSTem:CORRection -2.55,-3.12,-3.68,-4.23") ' TestSet.WriteString("DISPlay:MODE:TRACking OFF") 12
5. RF RF RF PDTCH ARFCN RF RF *** *** ' 'RF TestSet.WriteString("RFANalyzer:CONTrol:FREQuency:AUTO: GCALibration ON") 'DCS ARFCN 512 TestSet.WriteString("TRANsceiver:CHANnel:DCS 512") 'EGSM ARFCN 5 TestSet.WriteString("TRANsceiver:CHANnel:EGSM 5") 'GSM450 ARFCN 259 TestSet.WriteString("TRANsceiver:CHANnel:GSM450 259") ' GSM/GPRS TestSet.WriteString("TRANsceiver:BAND:GCALibration DCS") 'RF -70 dbm TestSet.WriteString("RFGenerator:POWer:GCALibration -70") 'RF TestSet.WriteString("RFANalyzer:CONTrol:POWer:AUTO: GCALibration ON") ' 2 TestSet.WriteString("RFANalyzer:BURSt 2") 'DCS 1 Mobile Station TX Level 10 TestSet.WriteString("RFANalyzer:MS:TXLevel:DCS:BURSt1 10") 'DCS 2 Mobile Station TX Level 12 TestSet.WriteString("RFANalyzer:MS:TXLevel:DCS:BURSt2 12") ' Training Sequence Code (TSC) 2 ' TestSet.WriteString("RFANalyzer:BURSt:TYPE TSC2") 13
6. 2 ' ' TestSet.WriteString("SETup:PMODulation:CONTinuous OFF") ' 100 TestSet.WriteString("SETup:PMODulation:COUNt 100") 'VISA 10 ' TestSet.IO.Timeout = 10000 ' 5 TestSet.WriteString("SETup:PMODulation:TIMeout 5S") ' TestSet.WriteString("SETup:PMODulation:PVTime:TIME -28uS,- 10uS,321.2uS,552.8uS,570.8uS") ' TestSet.WriteString("SETup:PMODulation:SYNC MIDamble") 'RF 'RF TestSet.WriteString("SETup:RFCHannel:CONTinuous OFF") ' 150 TestSet.WriteString("SETup:RFCHannel:COUNt 150") 'RF 5 TestSet.WriteString("SETup:RFCHannel:TIMeout 5S") 'RF1 khz TestSet.WriteString("SETup:RFCHannel:FILTer BWKHZ1") '1 khz1.5 ms TestSet.WriteString("SETup:RFCHannel:TRIGger:DELay:BWKHZ1 1.5mS") 14
7. 2 SETup:<Measurement Suite> INITiate:<Measurement Suite>,... FETCh results INITiate:<Measurement Suite> <Measurement>,... FETCh results 2 SETup:<Measurement Suite> ' TestSet.WriteString( SETup:PMODulation:INITiate PFERror ) ' TestSet.WriteString("INITiate:PMODulation") ' TestSet.WriteString("FETCh:PMODulation:PFERror?") FetchPmodulationPferror = CType(TestSet.ReadList(), Array) INITiate:<Measurement Suite> <Measurement>,... ' TestSet.WriteString("INITiate:PMODulation PFERror") ' TestSet.WriteString("FETCh:PMODulation:PFERror?") FetchPmodulationPferror = CType(TestSet.ReadList(), Array) 15
8. Tx/Rx 9. 7 10. 5 5 ARFCN ' GSM/GPRS GSM450 'ARFCN 259 TestSet.WriteString("TRANsceiver:BAND:GCALibration GSM450") 'GSM450 ' 21 TestSet.WriteString("RFANalyzer:MS:TXLevel:GSM450:BURSt1 21") 11. 3 ' ' TestSet.WriteString("SYSTem:PRESet3") FormattedIO488 Close 'IO TestSet.IO.Close() 16
E6601A PC PC E6601A PC PC GPIB TestSet.IO = CType(ResManager.Open("GPIB0::14::INSTR"), IMessage) LAN 2 1. Hard coded E6601A0429 TestSet.IO = CType(ResManager.Open("TCPIP0::E6601A0429::inst0::INSTR") IMessage) 2. Generic TestSet.IO = CType(ResManager.Open("TCPIP0::localhost::inst0::INSTR"), IMessage).EXE E6601A USB GPIB LAN Windows E6601A E6601APC E6601A E6601AAgilent Web www.agilent.co.jp/find/e6601a 17
GSM GSM RF Option Explicit On Option Strict On Imports Ivi.Visa.Interop Public class Demo Private ResManager As New ResourceManager Private TestSet As New FormattedIO488 Friend Sub Measurement() Dim FetchPmodulationPferror as Array ' Agilent Connection Expert ' Agilent IO "VISA " ' 'GPIB "VISA " ' "GPIB0::14::INSTR" TestSet.IO = CType(ResManager.Open("GPIB0::14::INSTR"), IMessage) ' TestSet.IO.Clear() ' TestSet.WriteString("*RST") ' TestSet.WriteString("*CLS") ' RF IN/OUT Amplitude Offset 'State TestSet.WriteString("SYSTem:CORRection:SFRequency 1710.2 MHZ,1805.2 MHZ,1784.8 MHZ,1879.8 MHZ") ' db TestSet.WriteString("SYSTem:CORRection -2.55,-3.12,-3.68,-4.23") ' TestSet.WriteString("DISPlay:MODE:TRACking OFF") ' *** *** 'RF TestSet.WriteString("RFANalyzer:CONTrol:FREQuency:AUTO:GCALibration ON") 'DCS ARFCN 512 TestSet.WriteString("TRANsceiver:CHANnel:DCS 512") 'EGSM ARFCN 5 TestSet.WriteString("TRANsceiver:CHANnel:EGSM 5") 'GSM450 ARFCN 259 TestSet.WriteString("TRANsceiver:CHANnel:GSM450 259") ' GSM/GPRS TestSet.WriteString("TRANsceiver:BAND:GCALibration DCS") 'RF -70 dbm TestSet.WriteString("RFGenerator:POWer:GCALibration -70") 'RF TestSet.WriteString("RFANalyzer:CONTrol:POWer:AUTO:GCALibration ON") ' 2 TestSet.WriteString("RFANalyzer:BURSt 2") 18 'DCS 1 Mobile Station TX Level 10 TestSet.WriteString("RFANalyzer:MS:TXLevel:DCS:BURSt1 10") ''DCS 2 Mobile Station TX Level 12 TestSet.WriteString("RFANalyzer:MS:TXLevel:DCS:BURSt2 12")
' Training Sequence Code (TSC) 2 ' TestSet.WriteString("RFANalyzer:BURSt:TYPE TSC2") ' ' TestSet.WriteString("SETup:PMODulation:CONTinuous OFF") ' 100 TestSet.WriteString("SETup:PMODulation:COUNt 100") 'VISA 10 ' TestSet.IO.Timeout = 10000 ' 5 TestSet.WriteString("SETup:PMODulation:TIMeout 5S") ' TestSet.WriteString("SETup:PMODulation:PVTime:TIME -28uS,- 10uS,321.2uS,552.8uS,570.8uS") ' TestSet.WriteString("SETup:PMODulation:SYNC MIDamble") 'RF 'RF TestSet.WriteString("SETup:RFCHannel:CONTinuous OFF") ' 150 TestSet.WriteString("SETup:RFCHannel:COUNt 150") 'RF 5 TestSet.WriteString("SETup:RFCHannel:TIMeout 5S") 'RF1 khz TestSet.WriteString("SETup:RFCHannel:FILTer BWKHZ1") '1 khz1.5 ms TestSet.WriteString("SETup:RFCHannel:TRIGger:DELay:BWKHZ1 1.5mS") ' TestSet.WriteString( SETup:PMODulation:INITiate PFERror ) ' TestSet.WriteString("INITiate:PMODulation PFERror") ' TestSet.WriteString("FETCh:PMODulation:PFERror?") FetchPmodulationPferror = CType(TestSet.ReadList(), Array) ' TestSet.WriteString("SYSTem:PRESet3") 'IO TestSet.IO.Close() End sub End Class 19
2 192-8510 9-1 9:00-19:00 FAX E-mail Web 24 TEL 0120-421-345 (042-656-7832) FAX 0120-421-678 (042-656-7840) Email contact_japan@agilent.com www.agilent.co.jp Copyright 2006 A UP DATE www.agilent.co.jp/find/emailupdates-japan Agilent Agilent Direct www.agilent.co.jp/find/agilentdirect Agilent Open www.agilent.co.jp/find/open Agilent Agilent PC I/O Windows Visual Studio Visual Studio.NET Visual Basic XP Professional Microsoft December 6, 2006 5989-5528JAJP 0000-00DEP