Appendix: Sample Test Program For Gsm - Agilent Technologies e6601a Application Note

Appendix: Sample Test
Program for GSM
18
The following programming example executes a GSM test. It includes a suite
of power and modulation quality measurements, and a suite of RF channel
measurements.
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
' Open the connection to the test set. Get the "VISA Address" from the
' Agilent Connection Expert (installed with Agilent IO Libraries Suite).
' In this sample, the "VISA Address" used for GPIB interface is
' "GPIB0::14::INSTR"
TestSet.IO = CType(ResManager.Open("GPIB0::14::INSTR"), IMessage)
' Clear the interface buffer and reset the test set's parser.
TestSet.IO.Clear()
' Fully preset the test set.
TestSet.WriteString("*RST")
' Clear the test set's error queue.
TestSet.WriteString("*CLS")
' Set offset frequencies and set the state to On for the frequencies, offsets
' and RF IN/OUT Amplitude Offset State.
TestSet.WriteString("SYSTem:CORRection:SFRequency 1710.2 MHZ,1805.2
MHZ,1784.8 MHZ,1879.8 MHZ")
' Set offset values correcting for losses in dB.
TestSet.WriteString("SYSTem:CORRection -2.55,-3.12,-3.68,-4.23")
' Turn the tracking mode to Off.
TestSet.WriteString("DISPlay:MODE:TRACking OFF")
' ***Configure Band and Channel parameters***
' Set the RF analyzer frequency control to auto.
TestSet.WriteString("RFANalyzer:CONTrol:FREQuency:AUTO:GCALibration ON")
' Set ARFCN to 512 for the DCS band.
TestSet.WriteString("TRANsceiver:CHANnel:DCS 512")
' Set ARFCN to 5 for the EGSM band.
TestSet.WriteString("TRANsceiver:CHANnel:EGSM 5")
' Set ARFCN to 259 for the GSM450 band.
TestSet.WriteString("TRANsceiver:CHANnel:GSM450 259")
' Set active GSM/GPRS band.
TestSet.WriteString("TRANsceiver:BAND:GCALibration DCS")
' Set the RF Generator power state to on and the level to to -70 dBm.
TestSet.WriteString("RFGenerator:POWer:GCALibration -70")
' Set the RF analyzer expected input power control mode to manual.
TestSet.WriteString("RFANalyzer:CONTrol:POWer:AUTO:GCALibration ON")
' Set uplink burst 2 to be measured for single slot measurements.
TestSet.WriteString("RFANalyzer:BURSt 2")
' Set the Mobile Station TX Level for burst 1 in the DCS band to 10.
TestSet.WriteString("RFANalyzer:MS:TXLevel:DCS:BURSt1 10")
' Set the Mobile Station TX Level for burst 2 in the DCS band to 12.
TestSet.WriteString("RFANalyzer:MS:TXLevel:DCS:BURSt2 12")