Modem Contech
Modem Contech
SGMS
1
DISEO E IMPLEMENTACIN DE UN SISTEMA
DE GESTIN PARA MDEMS SATELITALES
SGMS
ASESOR TEMTICO
INGENIERO NSTOR PENAGOS
2
CONTENIDO
Pg.
INTRODUCCIN 1
1. PLANEAMIENTO DEL PROBLEMA 2
1.1. ANTECEDENTES 2
1.2 DESCRIPCIN Y FORMULACIN DEL PROBLEMA 6
1.3 JUSTIFICACIN 6
1.4 OBJETIVOS 6
1.4.1 General 6
1.4.2 Especficos 6
1.5 ALCANCES Y LIMITACIONES DEL PROYECTO 7
1.5.1 Alcances 7
1.5.2 Limitaciones 7
2. MARCO DE REFERENCIA 8
2.1 MARCO CONCEPTUAL 8
2.2 MARCO LEGAL O NORMATIVO 10
2.3 MARCO TERICO 12
2.3.1 Principios del mdem 12
2.3.2 Interface RS-485 15
2.3.3 Mdems Comtech EF Data 17
3. METODOLOGA 19
3.1 ENFOQUE DE LA INVESTIGACIN 19
3.2 LNEA DE INVESTIGACIN DE LA UNIVERSIDAD DE SAN BUENAVENTURA 19
3.4 HIPTESIS 19
3.5 MDULO HARDWARE 20
3.6 MDULO SOFTWARE 21
3.7 FUNCIONES DEL SISTEMA 21
3.8 VARIABLES 22
3.8.1 Independientes 22
3.8.2 Dependientes 22
4. PRESENTACIN Y ANLISIS DE RESULTADOS 23
5. DESARROLLO INGENIERIL 24
5.1 MODULO DE HARDWARE 26
5.1.2 Protocolo bsico para el mdem CDM 550 28
5.2 MODULO DE SOFTWARE 36
5.2.1 Ventana Principal 41
5.2.2 Requerimiento de interrupcin de exploracin 46
5.2.3 Barra de herramientas 52
5.2.4 Modo Exploracin 55
5.2.5 Modo Configuracin 55
iii
3
Pg.
iv
4
LISTA DE FIGURAS
Pg.
5
LISTA DE TABLAS
Pg.
vi
6
LISTA DE ANEXOS
Pag.
vii
7
Nota de aceptacin
Jurado
Jurado
Jurado
viii
8
A mi esposa Olga Lucia y a mis hijos Sergio
Andres, Daniel Alejandro y Maria Paula por
regalarme gran parte de su tiempo, paciencia,
colaboracin y comprensin.
ix
9
A mi familia a quien amo, pues me ayudaron con
su apoyo y estmulo constante en la realizacin
de este proyecto
10
AGRADECIMIENTOS
xi
11
INTRODUCCIN
1
1. PLANEAMIENTO DEL PROBLEMA
1.1. ANTECEDENTES
2
Las principales funciones del Compass en la gestin de una red satelital son:
2
ANDITEL, manual de entrenamiento red Domsat junio 4 de 2004, p.3.
3
COMTECH EF DATA. Manual de la interface CiM-25, rev.3 julio 21 de 2004, p. 1~4.
3
Figura 2. Diagrama de un sistema de gestin de equipos satelitales.
4
Cada unidad CiM-25 es programada en fbrica para proveer al cliente la interface
exclusivamente para el tipo de equipo Comtech EF Data previamente definido y no
podr funcionar, una vez cargado su software, en otra unidad as sea del mismo
fabricante, al menos que sea actualizado mediante un Flash Upload.
La interface usa tecnologa Flash y soporta una gran variedad de equipos que
poseen una plataforma de hardware sencilla, actualmente provee facilidades de
acceso para los siguientes equipos:
mdems
SDM-300L1* SDM-300A/SLM-3650*
SDM-300L2* CDM-550T
SDM-300L3 CDM-600*
SDM-2020M* SDM-2020D*
SDM-8000* SDM-9000*
Convertidores de frecuencia
5
1.2 DESCRIPCIN Y FORMULACIN DEL PROBLEMA
1.3 JUSTIFICACIN
1.4 OBJETIVOS
1.4.1 General
1.4.2 Especficos
6
Identificar en tiempo real el estado de funcionamiento de los mdems.
Disear e implementar la programacin de informes y estadsticas del
desempeo de los mdems.
Proveer la interaccin con los operadores a travs de un sistema grfico
sencillo y amigable.
Elaborar un manual de operacin del sistema de gestin SGMS.
1.5.1 Alcances
1.5.2 Limitaciones
7
2. MARCO DE REFERENCIA
Para evitar interferencias entre las cadenas de subida y de bajada, las frecuencias
de ambos son distintas. Las frecuencias de la cadena de subida son mayores que
las de la cadena de bajada, debido a que cuanto mayor sea la frecuencia se
produce mayor atenuacin en el recorrido de la seal, y por tanto es preferible
transmitir con ms potencia desde la tierra, donde la disponibilidad energtica y/o
ganancia de antena es mayor. Para evitar que los canales prximos de la cadena
de bajada interfieran entre s, se utilizan polarizaciones ortogonales.
8
En el interior del satlite existen unos bloques denominados transpondedores, que
tienen como misin recibir, cambiar y transmitir las frecuencias del satlite, a fin de
que la informacin que se enva desde la base llegue a las antenas receptoras4.
En la figura 5 se representa el demodulador como parte del enlace descendente.
9
2.2 MARCO LEGAL O NORMATIVO
6
INTELSAT, Manual de tecnologa de estaciones terrenas, revisin 5, editorial INTELSAT junio de
1999, p. 112-1, 12-11~12-18.
7
COMTECH EF DATA. Manual del modem CDM-600, revisin 5, marzo 11 de 2002, p. xii y xiii
10
ENE61000-3-2, emisiones de armnicos
ENE61000-3-3, fluctuaciones y oscilaciones de voltaje
ENE61000-4-8, inmunidad a la frecuencia y potencia de los campos
magnticos.
ENE61000-4-11, variaciones, interrupciones y picos de voltaje.
8
Ministerio de Comunicaciones [INTERNET] [consultado 22 junio 2007] Disponible en
<http://www.mincomunicaciones.gov.co/mincom/src/?find=ok&page=./mods/legislacion/legislacion_
user_list&id_tool=0>
11
2.3 MARCO TERICO
12
como la combinacin de PSK y ASK conocida tambin como modulacin de
amplitud en cuadratura (QAM). Como se observa en la figura 4, en el caso de la
llamada sealizacin PSK M-valente (MPSK), el procesador acepta k bitios de la
fuente y ordena al modulador que se produzca uno o varios tipos de forma de
k
onda M = 2 que estn disponibles. En la prctica M corresponde generalmente a
una potencia de dos distinta de cero (2, 4, 8, 16, ).
10
INTELSAT, Manual de Tecnologa digital de comunicaciones por satlite, revisin 3, editorial
INTELSAT, abril de 1999. p. 3.1 -3.3
13
Figura 7. Formatos de la modulacin digital.
8
INTELSAT, Manual de Tecnologa digital de comunicaciones por satlite, revisin 3, editorial
INTELSAT, Abril de 1999. p. 65 - 66
14
Figura 8. Ejemplo de modulacin PSK bifsica y cuadrifsica
La tcnica del bus 4 hilos RS485, en la figura 9, puede ser usada por
aplicaciones Master/Slave. Conforme al diagrama, se cablea aqu la salida de
datos del Maestro a las entradas de datos de todos los Servidores. Las salidas de
datos de los Servidores estn concebidas conjuntamente en la entrada de datos
del Maestro. En la figura 9 se representa la interfaz RS-485 a 4 hilos.
15
Figura 9. Bus de 4 hilos interface RS485
12
INTERFACES W & T. [INTERNET] [consultado 25 jun. 2007] disponible en:
<http://www.wut.de/e-6wwww-11-apes-000.php3>
16
En conexiones RS485 es necesario un final de cable con redes de terminacin
para obligar al nivel de pausa en el sistema de Bus en los tiempos en los que no
est activo ningn transmisor de datos.
17
Ofrecen velocidades de transmisin variables desde 64 Kbps hasta 10 Mbps13.
Modulacin en los modos de: BPSK, QPSK, Offset QPSK, 8-QPSK, y 16-QAM.
Codificador en los tipos: Viterbi, Secuencial, Concatenado Reed-Solomon (RS),
y Producto Turbo Cdigo (TPC).
Opciones variadas de FEC, corrector de errores hacia delante (Foward Error
Correction).
Diferentes tipos de interfaces incorporadas en el equipo, para el ingreso y
salida de los datos de banda base.
Cubrimiento simultaneo del rango de las frecuencias en IF de 70 Mhz y
140 Mhz. (52 88 Mhz y 104 176 Mhz.).
Panel frontal con un displey VDF y teclado para configuracin y control
completo en forma local, tambin incluye la interface para el acceso remoto.
Unidad compacta que slo consume tpicamente 25 vatios.
Figura 11. Vista frontal del mdem Comtech EF Data CDM 550
13
Comtech EF Data, EF Data Part Number ds-cdm550.doc [Internet] [consultado 24 jun. 2007]
8/23/2005 disponible en : <www.comtechefdata.com>
14
Comtech EF Data, EF Data Part Number ds-cdm570/570L.doc [Internet] [consultado 24 jun.
2007] disponible en : <www.comtechefdata.com>
18
3. METODOLOGA
3.4 HIPTESIS
19
Figura 12. Esquema generalizado del SGMS
El modulo hardware esta constituido bsicamente por la interfaz RS-232 del puerto
serial del computador conectado al convertidor RS-485, que permite establecer La
comunicacin entre el elemento de gestin central y el grupo de mdems
seleccionados, aislando los dems equipos involucrados en el enlace satelital,
tales, como el Up Converter, Down Converter y los amplificadores de potencia.
20
3.6 MDULO SOFTWARE
Esta compuesto de una interfaz grfica de usuario amigable, que utilizando una
aplicacin orientada a objetos y manejada por eventos, interacta internamente
con un gestor de base de datos intercambiando informacin transparente al
usuario. En su diseo se har nfasis en su simplicidad presentando un nmero
reducido de objetos a fin de que el usuario se sienta cmodo en su operacin, sin
limitar su funcionalidad. La idea del diseo es ofrecer una muy completa
herramienta de gestin en formularios simples diferenciando de otras herramientas
similares donde el operador tiene que hacer esfuerzos por entender su contenido
inhabilitndolo en muchas ocasiones a realizar sencillas acciones de operacin.
Mediante los dos mdulos se permitir a sus usuarios realizar las siguientes tareas:
Toda esta informacin ser desplegada en una Interfaz grfica de usuario, que
podr ser instalada en un computador con mnimos requerimientos de hardware
los cuales se resumen en la tabla 1.
21
Tabla 1. Configuracin mnima del computador
3.8 VARIABLES
3.8.1 Independientes
Frecuencia
Tipo de modulacin
Nivel de Potencia
Tipo de FEC
Cantidad de dispositivos a controlar.
3.8.2 Dependientes
22
4. PRESENTACIN Y ANLISIS DE RESULTADOS
23
5. DESARROLLO INGENIERIL
24
Cliente Direccin Bastidor Cliente Direccin Bastidor
TIBU 23 1L LIBRE 61 2M
ORITO 24 1L LIBRE 62 2M
CALI 25 1L LIBRE 63 2M
SAN JOSE 1L
GUAVIARE 26 ENTRE RIOS 64 2M
LEGUIZAMO 27 1L BK RIOHACHA 65 2M
SANTA ANA 28 1L INTERFUERZAS SAI 66 2M
LA ESTRELLA 29 1L LIBRE 67 2M
NEIVA 30 1L LIBRE 68 2M
ALIZALES 31 2D LIBRE 69 2M
2D
ROSAL 32 LIBRE 70 2M
FUSAGASUGA 33 2D LIBRE 71 2M
GUAVIO 34 2D LIBRE 72 2M
SAI AEROPUERTO 35 2D LIBRE 73 2M
SAI MUELLE 36 2D LIBRE 74 2M
GALAPA 37 2D LIBRE 75 2M
GUALANDAY 38 2D
25
5.1 MODULO DE HARDWARE
En la comunicacin full dplex con la interface RS-485 hay dos pares de hilos:
separados, aislados, diferenciados, e independientes para el manejo de los datos
seriales en las dos direcciones
En la otra direccin, sobre el otro par, cada mdem designado tiene un manejador
de lnea tri-estado conectado y el controlador tiene un lnea de recepcin
conectada. Todos los manejadores de lnea se mantienen en el modo de alta
impedancia hasta que solamente un dispositivo es autorizado por el controlador
para poder transmitir.
26
La red de gestin instalada con la interface RS-485 en el sistema de gestin de
mdems satelitales SGMS, facilita mezcla de protocolos de comunicaciones, con
la configuracin de los 4 hilos para datos. En este tipo de acceso a los equipos,
es necesario que dentro de la red un nodo sea el maestro y los dems dispositivos
sean esclavos15. Para sta implementacin el PC es el maestro y los mdems los
esclavos.
En la figura 13, se muestran los detalles de conexin del bus multinodo del SGMS
a los mdem Comtech EF Data 550, por medio del conector DB9 de M&C y la
ilustracin de un conversor de interface RS-232 a RS-485, elemento bsico para el
diseo e implementacin del sistema de gestin a partir de los protocolos
propietarios del fabricante y la interaccin con la interfaz grafica.
15
B&B Electronics, Manufacturing Company [Internet] [consultado 30 ago. 2007] Disponible en :
< http://www.bb-elec.com/tech_articles/rs422_485_app_note/overview.asp#rs485>
27
Figura 13. Conexin para el acceso remoto mdem Comtech EF Data 550
En el modo RS-485 todos los datos son transmitidos como caracteres en forma
serial asincrnica. En este caso el formato del carcter asincrnico es fijado a 8
bits de datos, un bit de parada y sin paridad. La velocidad de datos puede variar
entre 50 y 19200 baudios. Todos los datos son transmitidos por paquetes.
28
Estructura del Paquete
El paquete est compuesto por siete secciones y cada mensaje que se enva
desde el controlador (PC), hacia los mdem o viceversa, es el que se debe
interpretar para realizar la instruccin solicitada.
El siguiente cuadro muestra la estructura del paquete que viaja en sentido del PC
hacia Dispositivos:
Ejemplo:
El ejemplo anterior nos muestra una comunicacin del PC al mdem con direccin
245, y le est ordenando que coloque la frecuencia de transmisin en 70.5 Mhz
El siguiente cuadro muestra la estructura del paquete que viaja en sentido del los
mdem hacia el PC:
29
Ejemplo:
Inicio de Paquete
El inicio del paquete es usado para proveer una indicacin del inicio del paquete,
estos dos caracteres no aparecen en ninguna otra parte del mensaje.
Direcciones
30
NOTA: El Controlador enva el paquete con la direccin del mdem (destino del
paquete). Cuando el mdem responde, la direccin usada es la misma para
indicarle al Controlador la fuente del paquete.
Cdigo de Instruccin
Cdigo calificador
Ejemplo con TFQ?, Indica que hubo un error en el mensaje enviado por el
controlador (no hay argumentos en el mensaje)
31
Argumentos del Mensaje
Los argumentos no son requeridos para todos los paquetes. Los argumentos son
cdigos ASCII, para los caracteres del 0 al 9 (ASCII 48 a 57), periodo (ASCII 46)
coma (ASCII 44).
Fin de Paquete
Lo anterior que tiene que ver con la recoleccin de informacin de los mdem, es
lo que consideramos modulo hardware, la segunda fase del proyecto es el modulo
de software que a continuacin se describe.
32
Diagramas de flujo del programa
33
%
"
$
%
34
!&
! '
$ )
!&
*
+
35
5.2 MODULO DE SOFTWARE
Se ha creado una base de batos con los 53 circuitos y los siguientes campos
Nombre del circuito, direccin, nmero de cliente para mayor informacin ver tabla
3. Esta base de datos interacta con el programa, para intercambio de informacin
cuando se requiera y es transparente al usuario, es decir el programa utilizado
tiene la facilidad para realizar los cambios y actualizaciones de la base de datos
sin que el usuario se percate.
36
Tabla 3. Base se datos de los circuitos
37
Consecutivo Grupo NomCli Direccin Bastidor Estado
113 19 GUALANDAY 49 2C Gris
114 19 PUERTO NIO 50 2C Gris
115 19 CARTAGO 51 2C Gris
120 20 POMPANO 53 2C Gris
122 21 CAPACHOS 1 65 2M Gris
123 21 CAPACHOS 2 64 2M Gris
171 2 MAGANGUE 5 1M Gris
172 4 RIOHACHA 7 1M Gris
173 1 COCOM FFAA 10 1M Gris
174 50 LIBRE 14 1M Gris
175 50 LIBRE 15 1M Gris
176 16 SAMACA 62 2M Gris
177 16 SAN JOSE GUAVIARE 19 1L Gris
179 50 LIBRE 26 1L Gris
180 50 LIBRE 27 1L Gris
181 50 LIBRE 28 1L Gris
182 50 LIBRE 29 1L Gris
183 50 LIBRE 30 1L Gris
184 8 SUESCA 31 2D Verde
185 9 GIRARDOT 38 2D Gris
186 50 LIBRE 45 2D Gris
187 50 LIBRE 56 2C Gris
188 50 LIBRE 57 2C Gris
189 50 LIBRE 58 2C Gris
190 50 LIBRE 59 2C Gris
191 50 LIBRE 60 2C Gris
192 5 ENTRE ROS 61 2M Gris
193 19 BK RIOHACHA 63 2M Gris
194 1 INTERFUERZAS SAI 66 2M Gris
195 50 LIBRE 67 2M Gris
196 50 LIBRE 68 2M Gris
197 50 LIBRE 69 2M Gris
198 50 LIBRE 70 2M Gris
199 50 LIBRE 71 2M Gris
200 50 LIBRE 72 2M Gris
201 50 LIBRE 73 2M Gris
202 50 LIBRE 74 2M Gris
203 50 LIBRE 75 2M Gris
38
En la base de datos se han asignado un nmero por cliente, para poder
identificarlo en el programa, por ejemplo el cliente Promigas cuenta con 4 circuitos
satelitales en Ballenas, Sahagn, Palomino, y Riohacha, este cliente es
identificado en la base de datos con el nmero 4, y as los dems clientes. En la
tabla 4, se muestran los clientes con el nmero asignado.
39
El modulo de software se implement con Visual Basic, programa de Microsoft
versin 6.0 de 32 bits16. Visual Basic es un lenguaje de programacin que se ha
diseado para facilitar el desarrollo de aplicaciones en un entorno grafico (GUI-
GRAPHICAL USER INTERFACE) Como Windows 98, Windows NT o superior.
El mdulo software del sistema SGMS esta constituido por una interfaz grfica de
usuario GUI (Graphic User Interface) la cual interacta con una base de datos.
16
Curso Bsico de Visual Basic [Internet] [consultado 19 sept. 2007] Disponible en:
<http://www.elgille.info/vb/cursos-vb/basico/basico47.htm>
17
Monografas [Internet] [consultado 5 oct. 2007] Disponible en:
<http://www.monografias.com/cgi-bin/search.cgi/query=desarrollo&?intersearch>
40
DIAGRAMA DE FLUJO DE DATOS EN EL SGMS
Modem 1
SGMS
Modem 2
M
O
Modem 3
D
E
M
S
Modem 22
Modem 37
BASE DE DATOS
Modem n
La interface grafica comienza con una ventana principal en donde se han reunido
todos circuitos de la red en grupos y cada grupo es un cliente.
41
Telepuerto de la calle 102 con autopista norte en Bogot D.C. y objetivo de
implementacin de ste trabajo.
42
Figura 16. Ventana principal del SGMS
43
Un ciclo de exploracin es el resultado de enviar a cada uno de los mdems
involucrados en el sistema, un comando de requerimiento de su estado de
funcionamiento, evaluar su respuesta y actualizar tanto la GUI como la base de
datos.
44
bastidor haya direcciones fsicas libres o disponibles, stas direcciones se
consideran clientes_no_activos y se les asigna un cdigo especial en el campo
Grupo de la base de datos (direccin libre con numero de grupo 50).
45
Como resumen de la exploracin podemos decir que al iniciarse el programa, una
seal de exploracin es emitida hacia todo el conjunto de mdems
determinndose en forma inmediata cuales equipos estn habilitados actualmente,
aquellos que respondan en su mensaje que poseen alguna alarma se indicaran
en color rojo, los que indiquen normalidad en su enlace, se presentaran en verde
y los que no envan ninguna respuesta hacia el SGMS, se mostrarn en gris. Si la
indicacin en rojo se mantiene por ms tiempo, es sinnimo de que existe una
buena cantidad de mdems alarmados dentro del grupo del cliente y con sta
misma premisa se entender la aparicin del grupo en color verde los que
indiquen normalidad y en gris aquellos que no estn comunicados con el sistema
SGMS.
46
Figura 17. Ventana de monitor
47
Figura 18. Ventana de validacin de ingreso
48
Figura 19. Ventana de configuracin
Para mostrar y/o modificar los valores de todos los parmetros que se tienen en
la ventana de configuracin es necesario encadenarlos en una serie de comandos,
pues uno slo no trae toda la informacin que all se despliega. Para sta tarea se
utiliz la tcnica de concatenacin de los comandos, segn la cual el subsiguiente
comando se enva nicamente cuando se verifica que el anterior se ha recibido y
se ha procesado en el sistema.
49
FLT = Fallas y estado
TST = Modo de prueba del mdem
Eb/No = Recepcin del nivel de la Energa por Bitios, en dB.
Cada uno de los comandos enviados por el sistema de gestin SGMS tiene
asociado un procedimiento que se ejecuta con los siguientes pasos:
50
En este punto la informacin que aparece en la ventana AGREGAR es producto
de la consulta del programa a la base de datos Access, de donde se tomaran las
direcciones que se encuentren libres y el bastidor correspondiente a dichas
direcciones.
51
Figura 21. Ventana eliminar cliente
52
En la figura 22 se muestra la ventana de Terminal en el SGMS, en la parte
superior izquierda de la ventana se encuentra el acceso al manual del
mdem, lo cual se especifica con ms detalle en el manual de usuarios que
se puede consultar en el Anexo E.
53
Figura 23. Ventana Acerca de
54
Finalmente presentamos una visin general del funcionamiento del Sistema de
Gestin de mdem Satelital SGMS.
Modo Exploracin
Modo Configuracin
Modo Terminal
Al entrar en este punto del programa, se tienen todos los parmetros actuales con
cuales esta configurado el mdem, sta condicin slo se permite al usuario
observar la programacin en tiempo real que se tiene en el equipo al que se ha
accedido, mas no permite realizar ningn cambio a los datos que posee el mdem.
55
Los parmetros del mdem Comtech EF Data CDM 550 se resumen en la figura
25 donde se muestra el rbol del men principal del equipo.
56
5.2.6 Modo Terminal
Por tanto la persona que va verificar un mdem mediante esta facilidad debe
conocer ms a fondo los comandos y protocolos para acceder a los parmetros
del equipo y discriminar la informacin que enva el dispositivo como respuesta al
comando enviado.
57
6. CONCLUSIONES
58
7. RECOMENDACIONES
A los usuarios del sistema con el fin de prevenir y evitar la posible manipulacin
errnea de la gestin o la interrupcin de los enlaces satelitales de los clientes, se
recomienda que las personas que vayan a utilizar el Sistema de Gestin de
Mdems Satelitales SGMS, conozcan el funcionamiento de un mdem operando
en una red satelital, que tengan conocimiento en telecomunicaciones, que
previamente hayan consultado y se hayan enterado del funcionamiento de la
herramienta mediante el Manual de usuario del SGMS para acceder sin riesgos al
sistema de gestin y a la red de mdems.
Para mejorar la eficiencia del sistema, hacia futuro, ste trabajo se le puede dar
continuidad mejorando su diseo con una interfaz para el protocolo de Internet IP
y para poder realizar gestin de los dispositivos mediante la conectividad en red,
usando protocolos como HTTP, SNMP o TELNET, que ofrecen gran seguridad y
control en las instrucciones transmitidas, as mismo tener la posibilidad de asociar
sta gestin a las ya existentes, en el centro principal de supervisin de las redes
de Telefnica Telecom, para obtener mejores resultados en la atencin de fallas y
en la labores de operacin y mantenimiento.
Con la homologacin del acceso remoto que poseen los productos EF-Data
Comtech, es posible adicionar a la gestin los dems elementos del enlace
satelital como LNA, SSPA, y Transceiver, ya que poseen el mismo protocolo de
comunicacin.
59
BIBLIOGRAFA
CORNELL, Gary. Manual de Visual Basic para Windows 95. 1996. Primera
edicin, editorial Mc Graw Hill.
BIBLIOGRAFA WEB
60
Universidad de Almera [INTERNET] Disponible en:
http://www.ace.ual.es/~vruiz/docencia/redes/apuntes/html/node67.html
61
ANEXOS
62
Anexo A. Cdigo de la programacin de Visual Basic del SGMS
FORMULARIO DE CLIENTES
63
frmEstado.cboTest.Text = "TX CW"
ElseIf TST = "5" Then
frmEstado.cboTest.Text = "TX-1,0"
ElseIf TST = "6" Then
frmEstado.cboTest.Text = "RF"
End If
If Bandera = False Then
frmEstado.cboTest.Enabled = False
End If
MSComm1.Output = "<" & Direccion & "/EBN?" & vbCrLf
CMe = 1
NuMe = 3
CoEn = "EBNO"
End Sub
Sub ProFLT()
Dim EsCl As String
If BanExp = True Then
FLT(0) = Mid(MenRx(2), 3, 1)
FLT(1) = Mid(MenRx(2), 4, 1)
FLT(2) = Mid(MenRx(2), 5, 1)
If FLT(0) = "0" And FLT(1) = "0" And FLT(2) = "0" Then
EsCl = "Verde"
ElseIf FLT(0) <> "0" Or FLT(1) <> "0" Or FLT(2) <> "0" Then
EsCl = "Rojo"
End If
frmGr.Timer1.Enabled = False
frmGr.dtaCli.Recordset.MoveFirst
While (Not frmGr.dtaCli.Recordset.EOF)
If frmGr.dtaCli.Recordset("Direccion") = DirVal Then
ColGr = frmGr.dtaCli.Recordset("Grupo")
frmGr.dtaCli.Recordset.Edit
frmGr.dtaCli.Recordset("Estado") = EsCl
frmGr.dtaCli.Recordset.Update
If EsCl = "Verde" Then
frmGr.lblGr(ColGr).BackColor = &HC000&
ElseIf EsCl = "Rojo" Then
frmGr.lblGr(ColGr).BackColor = &HFF&
End If
End If
frmGr.dtaCli.Recordset.MoveNext
Wend
NCG = 0
Y=1
frmGr.dtaCli.Recordset.MoveFirst
While (Not frmGr.dtaCli.Recordset.EOF)
If frmGr.dtaCli.Recordset("Grupo") = Gr Then
NCG = NCG + 1
NC(Y) = frmGr.dtaCli.Recordset("NomCli")
EsCli(Y) = frmGr.dtaCli.Recordset("Estado")
Y=Y+1
End If
frmGr.dtaCli.Recordset.MoveNext
Wend
For X = 0 To NCG - 1
64
If EsCli(X + 1) = "Verde" Then
frmCli.lblCli(X).BackColor = &HC000&
ElseIf EsCli(X + 1) = "Rojo" Then
frmCli.lblCli(X).BackColor = &HFF&
ElseIf EsCli(X + 1) = "Gris" Then
frmCli.lblCli(X).BackColor = &HC0C0C0
End If
Next X
DirVal = DirVal + 1
Explorar
Exit Sub
End If
FLT(0) = Mid(MenRx(2), 3, 1)
FLT(1) = Mid(MenRx(2), 4, 1)
FLT(2) = Mid(MenRx(2), 5, 1)
If FLT(0) = "0" Then
frmEstado.lstUnit.AddItem "No faults "
ElseIf FLT(0) = "1" Then
frmEstado.lstUnit.AddItem "Power supply fault, 5 volts"
ElseIf FLT(0) = "2" Then
frmEstado.lstUnit.AddItem "Power supply fault, 12 volts"
ElseIf FLT(0) = "3" Then
frmEstado.lstUnit.AddItem "Power supply fault, -5 volts"
ElseIf FLT(0) = "4" Then
frmEstado.lstUnit.AddItem "Power supply fault, 18 volts"
ElseIf FLT(0) = "5" Then
frmEstado.lstUnit.AddItem "Power supply fault, -12 volts"
ElseIf FLT(0) = "6" Then
frmEstado.lstUnit.AddItem "RAM load fail"
ElseIf FLT(0) = "7" Then
frmEstado.lstUnit.AddItem "Tx synthesiser lock"
ElseIf FLT(0) = "8" Then
frmEstado.lstUnit.AddItem "Rx synthesiser"
ElseIf FLT(0) = "9" Then
frmEstado.lstUnit.AddItem "Power cal Checksum error"
ElseIf FLT(0) = "A" Then
frmEstado.lstUnit.AddItem "FPGA main chain load fail"
ElseIf FLT(0) = "B" Then
frmEstado.lstUnit.AddItem "Turbo FPGA load fail"
End If
If FLT(1) = "0" Then
frmEstado.lstTx.AddItem "Tx traffic OK"
ElseIf FLT(1) = "1" Then
frmEstado.lstTx.AddItem "No clock from terrestrial interface"
ElseIf FLT(1) = "2" Then
frmEstado.lstTx.AddItem "Tx FIFO slip"
ElseIf FLT(1) = "3" Then
frmEstado.lstTx.AddItem "AIS detected on incoming data"
ElseIf FLT(1) = "4" Then
frmEstado.lstTx.AddItem "AUPC upper limit reached"
End If
If FLT(2) = "0" Then
frmEstado.lstRx.AddItem "Rx traffic OK "
ElseIf FLT(2) = "1" Then
65
frmEstado.lstRx.AddItem "Demodulator unlocked"
ElseIf FLT(2) = "2" Then
frmEstado.lstRx.AddItem "AGC Alarm - signal level too high"
ElseIf FLT(2) = "3" Then
frmEstado.lstRx.AddItem "Frame sync lost"
ElseIf FLT(2) = "4" Then
frmEstado.lstRx.AddItem "Buffer Underflow"
ElseIf FLT(2) = "5" Then
frmEstado.lstRx.AddItem "Buffer Overflow"
ElseIf FLT(2) = "6" Then
frmEstado.lstRx.AddItem "AIS detected on incoming data"
ElseIf FLT(2) = "7" Then
frmEstado.lstRx.AddItem "Eb/No threshold exceeded"
End If
MSComm1.Output = "<" & Direccion & "/TST?" & vbCrLf
CMe = 1
NuMe = 3
CoEn = "TST"
End Sub
Sub ProCTFQ()
MSComm1.Output = "<" & Direccion & "/MGC?" & vbCrLf
CMe = 1
NuMe = 13
CoEn = "MGC"
End Sub
Sub ProCAE()
MSComm1.Output = "<" & Direccion & "/RNE?" & vbCrLf
CMe = 1
NuMe = 13
CoEn = "RNE"
End Sub
Sub ProRNE()
EAL(0) = Mid(MenRx(2), 4, 5) & MenRx(3) & Mid(MenRx(4), 1, 2)
EAL(1) = Mid(MenRx(4), 4, 5) & MenRx(5) & Mid(MenRx(6), 1, 2)
EAL(2) = Mid(MenRx(6), 4, 5) & MenRx(7) & Mid(MenRx(8), 1, 2)
EAL(3) = Mid(MenRx(8), 4, 5) & MenRx(9) & Mid(MenRx(10), 1, 2)
EAL(4) = Mid(MenRx(10), 4, 5) & MenRx(11) & Mid(MenRx(12), 1, 2)
For i = 0 To 4
j=0
If Mid(EAL(i), 1, 1) = "F" Then
Palabra(j) = "FLT "
ElseIf Mid(EAL(i), 1, 1) = "C" Then
Palabra(j) = "OK "
ElseIf Mid(EAL(i), 1, 1) = "I" Then
Palabra(j) = "INFO"
End If
j=j+1
Palabra(j) = Mid(EAL(i), 4, 2) & "/" & Mid(EAL(i), 6, 2) & "/" & Mid(EAL(i), 8, 2)
j=j+1
Palabra(j) = Mid(EAL(i), 10, 2) & ":" & Mid(EAL(i), 12, 2) & ":" & Mid(EAL(i), 14, 2)
j=j+1
66
If Mid(EAL(i), 2, 1) = "1" Then
If Mid(EAL(i), 3, 1) = 0 Then
Palabra(j) = "No Fault"
ElseIf Mid(EAL(i), 3, 1) = "1" Then
Palabra(j) = "Power supply fault, 5 volts"
ElseIf Mid(EAL(i), 3, 1) = "2" Then
Palabra(j) = "Power supply fault, 12 volts"
ElseIf Mid(EAL(i), 3, 1) = "3" Then
Palabra(j) = "Power supply fault, -5 volts"
ElseIf Mid(EAL(i), 3, 1) = "4" Then
Palabra(j) = "Power supply fault, 18 volts"
ElseIf Mid(EAL(i), 3, 1) = "5" Then
Palabra(j) = "Power supply fault, -12 volts"
ElseIf Mid(EAL(i), 3, 1) = "6" Then
Palabra(j) = "RAM Load Fail"
ElseIf Mid(EAL(i), 3, 1) = "7" Then
Palabra(j) = "TX Synthesiser lock"
ElseIf Mid(EAL(i), 3, 1) = "8" Then
Palabra(j) = "RX Synthesiser"
ElseIf Mid(EAL(i), 3, 1) = "9" Then
Palabra(j) = "Power cal Checksum error"
ElseIf Mid(EAL(i), 3, 1) = "A" Then
Palabra(j) = "FPGA Main Chain Load Fail"
ElseIf Mid(EAL(i), 3, 1) = "B" Then
Palabra(j) = "Turbo FPGA Load Fail"
End If
67
Palabra(j) = "AIS detected on incoming data"
ElseIf Mid(EAL(i), 3, 1) = 4 Then
Palabra(j) = "AUPC upper limit reached"
End If
Sub ProNUE()
NUE = Mid(MenRx(2), 3, 2)
frmEstado.lblNuer = NUE
MSComm1.Output = "<" & Direccion & "/FLT?" & vbCrLf
CMe = 1
NuMe = 4
CoEn = "FLT"
BanExp = False
End Sub
Sub ProAGC()
AGC = Mid(MenRx(2), 3, 2)
frmEstado.lblAGCr = AGC
MSComm1.Output = "<" & Direccion & "/NUE?" & vbCrLf
CMe = 1
NuMe = 3
CoEn = "NUE"
End Sub
Sub ProBER()
BER = Mid(MenRx(2), 3, 5)
If BER = "99999" Then
68
frmEstado.lblBERr = "UNLOCKED"
ElseIf BER <> "99999" Then
frmEstado.lblBERr = BER
End If
MSComm1.Output = "<" & Direccion & "/AGC?" & vbCrLf
CMe = 1
NuMe = 3
CoEn = "AGC"
End Sub
Sub ProEBNO()
EBN = Mid(MenRx(2), 3, 4)
frmEstado.lblEBNr = EBN & " dB"
frmCli.Hide
frmEstado.Show
End Sub
Sub ProMGC()
frmEstado.lblInG1R.Caption = frmCli.Caption
frmEstado.lblInG2R.Caption = frmCli.lblCli(Elim).Caption
TFQ = Mid(MenRx(2), 4, 5) & Mid(MenRx(3), 1, 2)
TDR = Mid(MenRx(3), 4, 5) & Mid(MenRx(4), 1, 2)
TFT = Mid(MenRx(4), 3, 1)
TCR = Mid(MenRx(4), 4, 1)
TMD = Mid(MenRx(4), 5, 1)
TSI = Mid(MenRx(4), 6, 1)
TSC = Mid(MenRx(4), 7, 1)
TPL = Mid(MenRx(4), 8, 1) & Mid(MenRx(5), 1, 3)
TCK = Mid(MenRx(5), 4, 1)
TXO = Mid(MenRx(5), 5, 1)
RFQ = Mid(MenRx(5), 7, 2) & Mid(MenRx(6), 1, 5)
RDR = Mid(MenRx(6), 7, 2) & Mid(MenRx(7), 1, 5)
RFT = Mid(MenRx(7), 6, 1)
RCR = Mid(MenRx(7), 7, 1)
RMD = Mid(MenRx(7), 8, 1)
RSI = Mid(MenRx(8), 1, 1)
RDS = Mid(MenRx(8), 2, 1)
RSW = Mid(MenRx(8), 3, 2)
RCK = Mid(MenRx(8), 5, 1)
RBS = Mid(MenRx(9), 2, 1)
ITF = Mid(MenRx(9), 3, 1)
FRM = Mid(MenRx(9), 4, 1)
IPD = Mid(MenRx(9), 6, 1)
frmEstado.lblTFQr = TFQ & " Mhz"
frmEstado.lblTDRr = TDR & " Kbps"
If TFT = "0" Then
frmEstado.lblTFTr = "Ninguno"
ElseIf TFT = "1" Then
frmEstado.lblTFTr = "Viterbi"
ElseIf TFT = "2" Then
frmEstado.lblTFTr = "Secuencial"
End If
If TCR = "1" Then
frmEstado.lblTCRr = "1/2"
ElseIf TCR = "3" Then
69
frmEstado.lblTCRr = "3/4"
ElseIf TCR = "7" Then
frmEstado.lblTCRr = "7/8"
ElseIf TCR = "0" Then
frmEstado.lblTCRr = " "
End If
If TMD = "1" Then
frmEstado.lblTMDr = "BPSK"
ElseIf TMD = "2" Then
frmEstado.lblTMDr = "QPSK"
ElseIf TMD = "3" Then
frmEstado.lblTMDr = "OQPSK"
End If
If TSI = "0" Then
frmEstado.lblTSIr = "OFF"
ElseIf TSI = "1" Then
frmEstado.lblTSIr = "ON"
End If
If TSC = "0" Then
frmEstado.lblTSCr = "OFF"
ElseIf TSC = "1" Then
frmEstado.lblTSCr = "ON"
End If
frmEstado.lblTPLr = " - " & TPL & " dBm"
If TCK = "1" Then
frmEstado.lblTCKr = "Internal"
ElseIf TCK = "2" Then
frmEstado.lblTCKr = "External"
ElseIf TCK = "3" Then
frmEstado.lblTCKr = "Loop Timed"
End If
If TXO = "0" Then
frmEstado.lblTXOr = "OFF"
ElseIf TXO = "1" Then
frmEstado.lblTXOr = "ON"
End If
frmEstado.lblRFQr = RFQ & " Mhz"
frmEstado.lblRDRr = RDR & " Kbps"
If RFT = "0" Then
frmEstado.lblRFTr = "Ninguno"
ElseIf RFT = "1" Then
frmEstado.lblRFTr = "Viterbi"
ElseIf RFT = "2" Then
frmEstado.lblRFTr = "Secuencial"
End If
If RCR = "1" Then
frmEstado.lblRCRr = "1/2"
ElseIf RCR = "3" Then
frmEstado.lblRCRr = "3/4"
ElseIf RCR = "7" Then
frmEstado.lblRCRr = "7/8"
ElseIf RCR = "0" Then
frmEstado.lblRCRr = " "
End If
70
If RMD = "1" Then
frmEstado.lblRMDr = "BPSK"
ElseIf RMD = "2" Then
frmEstado.lblRMDr = "QPSK"
ElseIf RMD = "3" Then
frmEstado.lblRMDr = "OQPSK"
End If
If RSI = "0" Then
frmEstado.lblRSIr = "OFF"
ElseIf RSI = "1" Then
frmEstado.lblRSIr = "ON"
End If
If RDS = "0" Then
frmEstado.lblRDSr = "OFF"
ElseIf RDS = "1" Then
frmEstado.lblRDSr = "ON"
End If
frmEstado.lblRSWr = "+/- " & RSW
If RCK = "0" Then
frmEstado.lblRCKr = "Buffer OFF"
ElseIf RCK = "1" Then
frmEstado.lblRCKr = "Buffer ON"
End If
If RBS = "1" Then
frmEstado.lblRBSr = "+/- 256 Bits"
ElseIf RBS = "2" Then
frmEstado.lblRBSr = "+/- 512 Bits"
ElseIf RBS = "3" Then
frmEstado.lblRBSr = "+/- 1024 Bits"
ElseIf RBS = "4" Then
frmEstado.lblRBSr = "+/- 2048 Bits"
ElseIf RBS = "5" Then
frmEstado.lblRBSr = "+/- 4096 Bits"
End If
If ITF = "2" Then
frmEstado.lblITFr = "V.35"
ElseIf ITF = "3" Then
frmEstado.lblITFr = "RS-232"
End If
If FRM = "0" Then
frmEstado.lblFRMr = "UNFRAMED"
ElseIf FRM = "1" Then
frmEstado.lblFRMr = "FRAMED"
End If
If IPD = "5" Then
frmEstado.lblIPDr = "50 Ohms"
ElseIf IPD = "7" Then
frmEstado.lblIPDr = "75 Ohms"
End If
MSComm1.Output = "<" & Direccion & "/BER?" & vbCrLf
CMe = 1
NuMe = 4
CoEn = "TBER"
End Sub
71
Private Sub cboAddBas_Click()
Bastidor = cboAddBas.Text
cboAddDir.Enabled = True
frmGr.dtaCli.Recordset.MoveFirst
While (Not frmGr.dtaCli.Recordset.EOF)
If frmGr.dtaCli.Recordset("Bastidor") = Bastidor And frmGr.dtaCli.Recordset("NomCli") = "LIBRE"
Then
cboAddDir.AddItem frmGr.dtaCli.Recordset("Direccion")
End If
frmGr.dtaCli.Recordset.MoveNext
Wend
End Sub
72
Private Sub cmdDel_Click()
Dim Resp As String
Resp = MsgBox("Esta a punto de borrar un registro. Desea continuar", 36)
If Resp = vbYes Then
frmGr.dtaCli.Recordset.MoveFirst
While (Not frmGr.dtaCli.Recordset.EOF)
If frmGr.dtaCli.Recordset("NomCli") = RegDel Then
frmGr.dtaCli.Recordset.Edit
frmGr.dtaCli.Recordset("NomCli") = "LIBRE"
frmGr.dtaCli.Recordset("Grupo") = 50
frmGr.dtaCli.Recordset("Estado") = "Gris"
frmGr.dtaCli.Recordset.Update
End If
frmGr.dtaCli.Recordset.MoveNext
Wend
LeerCliAct
Actualizar
lblDel2.Caption = " "
fraDel.Visible = False
Exit Sub
ElseIf Resp = vbNo Then
lblDel2.Caption = " "
fraDel.Visible = False
End If
End Sub
73
Private Sub lblCli_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y
As Single)
BotOp = Button
End Sub
74
ProCTFQ
ElseIf CoEn = "CRDR" Then
ProCTFQ
ElseIf CoEn = "CRFT" Then
ProCTFQ
ElseIf CoEn = "CRMD" Then
ProCTFQ
ElseIf CoEn = "CRCR" Then
ProCTFQ
ElseIf CoEn = "CRSI" Then
ProCTFQ
ElseIf CoEn = "CRDS" Then
ProCTFQ
ElseIf CoEn = "CRCK" Then
ProCTFQ
ElseIf CoEn = "CRBS" Then
ProCTFQ
ElseIf CoEn = "CITF" Then
ProCTFQ
ElseIf CoEn = "CIPD" Then
ProCTFQ
ElseIf CoEn = "CFRM" Then
ProCTFQ
ElseIf CoEn = "CRSW" Then
ProCTFQ
ElseIf CoEn = "CTST" Then
ProCTFQ
End If
End If
End Sub
FORMULARIO ESTADO
75
frmCli.MSComm1.Output = "<" & Direccion & "/TST=4" & vbCrLf
ElseIf cboTest.Text = "TX 1,0" Then
frmCli.MSComm1.Output = "<" & Direccion & "/TST=5" & vbCrLf
ElseIf cboTest.Text = "RF" Then
frmCli.MSComm1.Output = "<" & Direccion & "/TST=6" & vbCrLf
End If
CoEn = "CTST"
CMe = 1
NuMe = 3
End Sub
76
lblDisp(CoDig).BackColor = &H8000000F
fraConf2.Visible = False
lblDisp(2).Visible = True
End Sub
77
Private Sub cmdEnt1_Click()
Dim ValCod As Single
If CoEn = "CTFT" Then
frmCli.MSComm1.Output = "<" & Direccion & "/TFT=" & CoDig & vbCrLf
ElseIf CoEn = "CTMD" Then
frmCli.MSComm1.Output = "<" & Direccion & "/TMD=" & CoDig + 1 & vbCrLf
ElseIf CoEn = "CTCR" Then
If CoDig = 0 Then
ValCod = CoDig + 1
ElseIf CoDig = 1 Then
ValCod = 3
ElseIf CoDig = 2 Then
ValCod = 7
End If
frmCli.MSComm1.Output = "<" & Direccion & "/TCR=" & ValCod & vbCrLf
ElseIf CoEn = "CTCK" Then
frmCli.MSComm1.Output = "<" & Direccion & "/TCK=" & CoDig + 1 & vbCrLf
ElseIf CoEn = "CTXO" Then
frmCli.MSComm1.Output = "<" & Direccion & "/TXO=" & CoDig & vbCrLf
lblDisp(2).Visible = True
ElseIf CoEn = "CTSI" Then
frmCli.MSComm1.Output = "<" & Direccion & "/TSI=" & CoDig & vbCrLf
lblDisp(2).Visible = True
ElseIf CoEn = "CTSC" Then
frmCli.MSComm1.Output = "<" & Direccion & "/TSC=" & CoDig & vbCrLf
lblDisp(2).Visible = True
ElseIf CoEn = "CRFT" Then
frmCli.MSComm1.Output = "<" & Direccion & "/RFT=" & CoDig & vbCrLf
ElseIf CoEn = "CRMD" Then
frmCli.MSComm1.Output = "<" & Direccion & "/RMD=" & CoDig + 1 & vbCrLf
ElseIf CoEn = "CRCR" Then
If CoDig = 0 Then
ValCod = CoDig + 1
ElseIf CoDig = 1 Then
ValCod = 3
ElseIf CoDig = 2 Then
ValCod = 7
End If
frmCli.MSComm1.Output = "<" & Direccion & "/RCR=" & ValCod & vbCrLf
ElseIf CoEn = "CRSI" Then
frmCli.MSComm1.Output = "<" & Direccion & "/RSI=" & CoDig & vbCrLf
lblDisp(2).Visible = True
ElseIf CoEn = "CRDS" Then
frmCli.MSComm1.Output = "<" & Direccion & "/RDS=" & CoDig & vbCrLf
lblDisp(2).Visible = True
ElseIf CoEn = "CRCK" Then
frmCli.MSComm1.Output = "<" & Direccion & "/RCK=" & CoDig & vbCrLf
lblDisp(2).Visible = True
ElseIf CoEn = "CITF" Then
frmCli.MSComm1.Output = "<" & Direccion & "/ITF=" & CoDig + 1 & vbCrLf
ElseIf CoEn = "CIPD" Then
If CoDig = 0 Then
ValCod = 5
ElseIf CoDig = 1 Then
78
ValCod = 7
End If
frmCli.MSComm1.Output = "<" & Direccion & "/IMP=" & ValCod & vbCrLf
ElseIf CoEn = "CFRM" Then
frmCli.MSComm1.Output = "<" & Direccion & "/FRM=" & CoDig & vbCrLf
lblDisp(2).Visible = True
End If
CMe = 1
NuMe = 3
For w = 0 To 2
lblDisp(w).BackColor = &H8000000F
Next w
fraConf2.Visible = False
End Sub
79
Private Sub cmdR_Click()
If CoDig < 6 Then
lblDig(CoDig).BackColor = &H8000000F
lblDig(CoDig + 1).BackColor = &HFFFFC0
CoDig = CoDig + 1
End If
End Sub
End Sub
80
Private Sub cmdVolver_Click()
cboTest.Enabled = False
cmdLoop.Enabled = True
fraConf1.Visible = False
fraConf2.Visible = False
fraConf3.Visible = False
Bandera = False
lslAlar.Clear
frmEstado.Caption = "MODO MONITOR"
lstUnit.Clear
lstTx.Clear
lstRx.Clear
HabExp = True
Explorar
Hide
End Sub
End Sub
81
ElseIf lblIPDr.Caption = "75 Ohms" Then
lblDisp(1).BackColor = &HFFFFC0
CoDig = 1
End If
ElseIf Bandera = False Then
frmPassword.Show vbModal
End If
CoEn = "CIPD"
End Sub
82
lblDis(3).BackColor = &HFFFFC0
CoDig = 3
ElseIf lblRBSr.Caption = "+/- 4096 Bits" Then
lblDis(4).BackColor = &HFFFFC0
CoDig = 4
End If
CoEn = "CRBS"
ElseIf Bandera = False Then
frmPassword.Show vbModal
End If
End Sub
83
End If
End Sub
84
frmPassword.Show vbModal
End If
End Sub
85
Private Sub lblRSIr_DblClick()
If Bandera = True Then
fraConf1.Visible = False
fraConf2.Visible = True
ConPos = 1
lblDisp(0).Caption = "OFF"
lblDisp(1).Caption = "ON"
lblDisp(2).Visible = False
If lblRSIr.Caption = "OFF" Then
lblDisp(0).BackColor = &HFFFFC0
CoDig = 0
ElseIf lblRSIr.Caption = "ON" Then
lblDisp(1).BackColor = &HFFFFC0
CoDig = 1
End If
ElseIf Bandera = False Then
frmPassword.Show vbModal
End If
CoEn = "CRSI"
End Sub
86
CoDig = 2
End If
ElseIf Bandera = False Then
frmPassword.Show vbModal
End If
CoEn = "CTCK"
End Sub
87
VDisp = lblTFQr.Caption
For w = 1 To 7
lblDig(w - 1) = Mid(VDisp, w, 1)
VDig(w - 1) = Val(lblDig(w - 1))
Next w
ElseIf Bandera = False Then
frmPassword.Show vbModal
End If
CoEn = "CTFQ"
ConDec = 2
End Sub
88
ElseIf Bandera = False Then
frmPassword.Show vbModal
End If
CoEn = "CTMD"
End Sub
89
lblDisp(0).BackColor = &HFFFFC0
CoDig = 0
ElseIf lblTSIr.Caption = "ON" Then
lblDisp(1).BackColor = &HFFFFC0
CoDig = 1
End If
ElseIf Bandera = False Then
frmPassword.Show vbModal
End If
CoEn = "CTSI"
End Sub
FORMULARIO GRUPOS
90
Private Sub fraPrincipal_DragDrop(Source As Control, X As Single, Y As Single)
imgGr(Ind).Move X + 400, Y - 700
lblGr(Ind).Move X, Y
line1(Ind).X2 = X + 727
line1(Ind).Y2 = Y + 150
End Sub
91
Button.Enabled = False
Toolbar1.Buttons("Ter").Enabled = True
Case Is = "Terminal"
frmPass.Show vbModal
Case "Acerca de"
Print "Informar acerca de"
Case "Salir"
Dim Resp As String
Resp = MsgBox("Esta seguro que desea salir del Sistema de Gestin", 36)
If Resp = vbYes Then
End
ElseIf Resp = vbNo Then
End If
End Select
End Sub
FORMULARIO PASSWORD 1
frmPass.Hide
frmTerminal.Show vbModal
ElseIf txtPass.Text <> txtPass.Tag Then
MsgBox " Contrasea Invalida", vbCritical, "SGMS Aviso del Sistema"
txtPass = ""
txtPass.SetFocus
End If
End Sub
End Sub
FORMULARIO PASSWORD 2
92
txtPassword = ""
frmPassword.Hide
frmEstado.Caption = "MODO CONFIGURACION"
frmEstado.cboTest.Enabled = True
frmEstado.cmdLoop.Enabled = False
frmCli.MSComm1.Output = "<" & Direccion & "/LRS=1" & vbCrLf
FORMULARIO TERMINAL
93
Private Sub cmdVer_Click()
For i = 1 To 13
lstVer.AddItem MenRx(i)
Next i
End Sub
End Sub
MODULO
Public Gr As Single
Public NCG As Single
Public NC(100) As String
Public Cliente As Single
Public MenRx(20) As String
Public Elim As Single
Public CMe As Single
Public NuMe As Single
Public CoEn As String
Public Bandera As Boolean
Public Direccion As Single
Public CliAct(75) As Boolean
Public BanExp As Boolean
Public DirVal As Single
Public EsCli(20) As String
Public HabExp As Boolean
Public BanAc As Boolean
Dim Xa As Single
Sub Explorar()
If HabExp = True Then
Inicio:
If DirVal < 75 Then
If CliAct(DirVal) = True Then
frmCli.MSComm1.Output = "<" & DirVal & "/FLT?" & vbCrLf
CMe = 1
NuMe = 4
CoEn = "FLT"
BanExp = True
frmGr.Timer1.Enabled = True
frmGr.ProgressBar1.Value = Xa
Xa = Xa + 1
ElseIf CliAct(DirVal) = False Then
DirVal = DirVal + 1
94
frmGr.ProgressBar1.Value = Xa
Xa = Xa + 1
GoTo Inicio
End If
ElseIf DirVal = 75 Then
DirVal = 1
Xa = 1
Explorar
End If
ElseIf HabExp = False Then
Exit Sub
End If
End Sub
Sub LeerCliAct()
frmGr.dtaCli.Recordset.MoveFirst
While (Not frmGr.dtaCli.Recordset.EOF)
If frmGr.dtaCli.Recordset("Grupo") <> 50 Then
CliAct(frmGr.dtaCli.Recordset("Direccion")) = True
ElseIf frmGr.dtaCli.Recordset("Grupo") = 50 Then
CliAct(frmGr.dtaCli.Recordset("Direccion")) = False
End If
frmGr.dtaCli.Recordset.MoveNext
Wend
End Sub
Sub Actualizar()
NCG = 0
Y=1
frmGr.dtaCli.Recordset.MoveFirst
While (Not frmGr.dtaCli.Recordset.EOF)
If frmGr.dtaCli.Recordset("Grupo") = Gr Then
NCG = NCG + 1
NC(Y) = frmGr.dtaCli.Recordset("NomCli")
EsCli(Y) = frmGr.dtaCli.Recordset("Estado")
Y=Y+1
End If
frmGr.dtaCli.Recordset.MoveNext
Wend
For X = 0 To 9
frmCli.imgCli(X).Visible = False
frmCli.lblCli(X).Visible = False
Next X
For X = 0 To NCG - 1
frmCli.imgCli(X).Visible = True
frmCli.lblCli(X).Visible = True
Next X
For X = 0 To NCG - 1
frmCli.lblCli(X).Caption = NC(X + 1)
If EsCli(X + 1) = "Verde" Then
frmCli.lblCli(X).BackColor = &HC000&
ElseIf EsCli(X + 1) = "Rojo" Then
frmCli.lblCli(X).BackColor = &HFF&
ElseIf EsCli(X + 1) = "Gris" Then
frmCli.lblCli(X).BackColor = &HC0C0C0
95
End If
Next X
frmCli.Caption = frmGr.lblGr(Gr)
frmCli.Show
End Sub
96
Anexo B. Cdigos y protocolos de los parmetros del modem Comtech
Parameter Command Arguments for Description of arguments Response to Query Response to query
Type (InstructionC Command or (note that all arguments are ASCII numeric codes, Command (target to controller) (Instruction (target to controller)
ode and Response to that is,codes between 48 and 57)
ASCII Code and
qualifier) Query qualifier)
Tx TFQ= 8 bytes Command or Query. TFQ= (message ok) TFQ? TFQ=xxx.xxxx (same
Frequency Tx Frequency, 52 MHz to 88 MHz, (70 MHz band) or 104 TFQ? (received ok, format as command
MHz to 176 MHz, (140 MHz band). but invalid arguments arguments)
Resolution = lOOHz. found)
Example: TFQ=072.9876 (70 MHz option) TFQ* (message ok,
TFQ=148.0000 (140 MHz option) but
not permitted in
Note: Querying ' Options Fitted'(using EID?) will indicate current
mode)
if unit is 70 MHz or 140 MHz IF band
the
Tx TDR= 8 bytes Command or Query. TDR= (message ok) TDR? TDR=xxxx.xxx
Data Rate Tx Data rate, in kbps, between 2.4 kbps and 2048 kbps. TDR? (received ok, (same as command
format
Resolution = 1 bps. but invalid arguments arguments)
Example: TDR=2047.999 (which is 2047.999 kbps) found)
TFQ* (message ok,
but
not permitted in
current
mode)
Tx TFT= 1 byte, value Command or Query. TFT= (message ok) TFT? TFT=x
FEC Type 0ofthrough 8 Tx FEC coding type, where: TFT? (received ok, (same format as
0 = None (uncoded - no FEC) but invalid argument command arguments)
1 = Viterbi found)
2 = Sequential TFT* (message ok, but
3 = Viterbi + Reed-Solomon not permitted in
4 = Sequential + Reed-Solomon current
mode)
5 = Rate 3/4 QPSK Turbo (S/W Version < 1.15)
6 = Rate 21 /44 BPSK Turbo (S/W Version > 1.14)
7 = Rate 5/16 BPSK Turbo (S/W Version > 1.14)
8 = Rate 3/4 OQPSK Turbo (S/W Version > 1.18)
All other codes invalid.
Example: TFT=1 (which is Viterbi coding)
Note: If the RS Codec option is not installed, and the
argument
3 or 4 is used, the target will return TFT?
If the Turbo Codec option is not installed, and the
argument
or greater5is used, the target will return TFT? Use EID?
to
query the options fitted.
Values 5 - 8 may affect TCR and TMD.
97
Parameter Command Arguments for Description of arguments Response to Command Query Response to query
Type (InstructionC Command or (note that all arguments are ASCII numeric codes, (target to controller) (Instruction (target to
ode and Response to that is,codes between 48 and 57)
ASCII Code and controller)
qualifier) Query qualifier)
Tx TCR= 1 byte, value Command or Query. TCR= (message ok) TCR? TCR=x
FEC Code of
1,3, 7, 8 or 9 Tx FEC Code rate, where: TCR? (received ok, (same format as
Rate 1 = Rate 1/2 but invalid argument command argument)
3 = Rate 3/4 (must be set for Rate 3/4 Turbo) found)
7 = Rate 7/8 TCR* (message ok, but
8 = Rate 21/44 (must set for Rate 21/44 Turbo)* not permitted in current
9 = Rate 5/16 (must set for Rate 5/16 Turbo)* mode - for example if
All other codes invalid. Turbo is selected, and
Example: TCR=1 (which is Rate 1/2) either 1/2 or 7/8 is
* Only valid for S/W > 1.14 and EID =5500xx requested)
As a Query, returns 0 if Uncoded is selected for FEC.
Setting 8 or 9 may affect TFT and TMD.
Tx Modulation TMD= 1 byte, value of Command or Query. TMD= (message ok) TMD? TMD=x
Type 1 or 2 or 3 Tx Modulation type, where: TMD? (received ok, (same format as
1 = BPSK (must be set for Rate 21/44 or 5/16 Turbo but invalid argument command argument)
2mode)
= QPSK (must be set for Rate 3/4 Turbo QPSK mode) found)
3 = OQPSK (must be set for Rate 3/4 Turbo OQPSK TMD* (message ok, but
mode)
All other codes invalid. not permitted in current
Example: TMD=2 (which is QPSK) mode)
Tx Spectrum TSI= 1 byte, value of Command or Query. TSI= (message ok) TSI? TSI=x
Invert Oorl Tx Spectrum Invert selection, where: TSI? (received ok, but (same format as
0 = Normal, invalid arg. found) command argument)
1 = Tx Spectrum Inverted TSI* (message ok, but
All other codes invalid. not permitted in current
Example:TSI=O (which is normal) mode)
Tx TSC= 1 byte, value of Command or Query. TSC= (message ok) TSC? TSCS=x
Scrambler Oorl Tx Scrambler state, where: TSC? (received ok, (same format as
0 = Off but invalid argument command argument)
1 = On (V.35 in transparent mode, synchronous in found)
framed
mode TSQ* (message ok, but
All other codes invalid. not permitted in current
Example: TSC=1 (which is scrambler On) mode)
Tx Power Level TPL= 4 bytes Command or Query. TPL= (message ok) TPL? TPL=xx.x
Tx Output power level between 0 and -20 dBm (minus TPL? (received ok, (same format as
sign
assumed). Example: TPL=13.4 (which is-13.4 dBm) but invalid arguments command
found) arguments)
TPL* (message ok, but
98
Parameter Command Arguments for Description of arguments Response to Query Response to query
Type (InstructionC Command or (note that all arguments are ASCII numeric codes, Command (target to controller) (Instruction (target to
ode and Response to that is,codes between 48 and 57)
ASCII Code and controller)
qualifier) Query qualifier)
Tx Clock TCK= 1 byte, value Command or Query. TCK= (message ok) TCK? TCK=x
Source of
1,2 or 3 Tx Clock source, where: TCK? (received ok, (same format as
1 = Internal but invalid argument command argument)
2 = External found)
3 = Loop timed (use Rx satellite clock) TCK* (message ok,
All other codes invalid. but
not permitted in
Example: TCK=2 (which is External Clock) current
mode)
Tx Carrier TXO= 1 byte, value Command or Query. TXO= (message ok) TXO? TXO=x
On/Off State of 1 or 2
0, Tx Carrier On/Off state, where: TXO? (received ok, (Note that 2 is not a
0 = Off due to front panel or rem. control command but invalid argument valid argument when
1 =On found) used as a command)
2 = Off due to ext H/W Tx Carrier Off command (not a TXO* (message ok,
valid
argument when used as a command) but
All other codes not permitted in
invalid.
Example: TXO=1 (which is Tx Carrier On) current
mode)
Rx RFQ= 8 bytes Command or Query. RFQ= (message ok) RFQ? RFQ=xxx.xxxx
Frequency Rx Frequency, 52 MHz to 88 MHz, (70 MHz band) or 104 RFQ? (received ok, (same
format as command
MHz to 176 MHz (140 MHz band). but invalid arguments arguments)
Resolution = 100 Hz. found)
Example: RFQ=143.4567 (which is 143.4567 MHz) RFQ* (message ok,
Note: Querying ' but
Options Fitted'(using EID?) will indicate not permitted in
if unit is 70 MHz or 140 MHz IF band
the current
mode)
RxData RDR= 8 bytes Command or Query. RDR= (message ok) RDR? RDR=xxxx .xxx
Rate Rx Data rate, in bps, between 2.4 kbps and 2048 kbps. RDR? (received ok, (same format as
Resolution = 1 bps. but invalid arguments command
Example: RDR=002.400 (which is 2.4 kbps) found) arguments)
RDR* (message ok,
but
not permitted in
current
mode
99
Parameter Command Arguments for Description of arguments Response to Query Response to query
Type (InstructionC Command or (note that all arguments are ASCII numeric codes, that is, Command
(target to (Instructio (target to controller)
ode and Response to ASCII codes between 48 and 57) controller) n
Code and
qualifier) Query qualifier)
Rx FECType RFT= 1 byte, value Command or Query. RFT= (message ok) RFT? RFT=x
0ofthrough 8 Rx FEC decoding type, where: RFT? (received ok, (same format as
0 = None (uncoded - no FEC) but invalid argument command arguments)
1 = Viterbi found)
2 = Sequential RFT* (message ok,
3 = Viterbi + Reed-Solomon but permitted in
not
4 = Sequential + Reed-Solomon current
mode)
5 = Rate 3/4 QPSK Turbo (S/W Version < 1.15)
6 = Rate 21 /44 BPSK Turbo (S/W Version > 1.14)
7 = Rate 5/16 BPSK Turbo (S/W Version > 1.14)
8 - Rate 3/4 OQPSK Turbo (S/W Version > 1.18)
All other codes invalid.
Example: RFT=1 (which is Viterbi coding)
Note: If the RS Codec option is not installed, and the
argument
3 or 4 is used, the target will return RFT? If the Turbo Codec
option is not installed, and the argument 5 or greater is used,
the target will return RFT? Use EID? to query the options
Values 5-8 may affect RCR or RMD.
RxFEC RCR= 1 byte, value of Command or Query. RCR= (message ok) RCR? RCR=x
Code Rate 1,3, 7, 8 or 9 Rx FEC Code rate, where: RCR? (received ok, (same format as
1 = Rate 1/2 but invalid argument command argument)
3 = Rate 3/4 (must be set for Rate 3/4 Turbo) found)
7 = Rate 7/8 RCR* (message ok,
8 = Rate 21/44 (must set for Rate 21/44 Turbo)* but permitted in
not
9 = Rate 5/16 (must set for Rate 5/16 Turbo)* current
mode
All other codes invalid.
Example: RCR=1 (which is Rate 1/2)
* Only valid for S/W Version >1.14.
As a Query, returns 0 if Uncoded is selected for FEC. Setting
8
or 9 may affect RFT and RMD.
Rx Modulation RMD= 1 byte, value of Command or Query. RMD= (message ok) RMD? RMD=x
Type 1,2 or 3 Rx Modulation type, where: RMD? (received ok, (same format as
1 = BPSK (must be set for Rate 21/44 or 5/16 Turbo) but invalid argument command argument)
2 = QPSK (must be set for Rate 3/4 Turbo QPSK mode) found)
3 = OQPSK (must be set for Rate 3/4 Turbo OQPSK mode) RMD* (message ok,
All other codes invalid. but permitted in
not
Example: RMD=1 (BPSK) current
mode)
100
Parameter Command Arguments for Description of arguments Response to Query Response to query
Type (InstructionC Command or (note that all arguments are ASCII numeric codes, Command
(target to controller) (Instruction (target to
ode and Response to that is,codes between 48 and 57)
ASCII Code and controller)
qualifier) Query qualifier)
Rx Spectrum RSI= 1 byte, value of Command or Query. RSI= (message ok) RSI? RSI=x
Invert Oorl Rx Spectrum Invert selection, where: RSI? (received ok, (same format as
0 = Normal but invalid argument command argument)
1 = Rx Spectrum Inverted found)
All other codes invalid. RSI* (message ok, but
not permitted in
current
mode)
Rx RDS= 1 byte, value of Command or Query. RDS= (message ok) RDS? RDS=x
Descrambler Oorl Rx De-scrambler state, where: RDS? (received ok, (same format as
0 = Off but invalid argument command argument)
1 = On (V.35 in unframed mode, synchronous in framed found)
mode
All other codes invalid. RDS* (message ok,
Example: RDS=1 (which is de-scrambler On) but
not permitted in
current
mode)
Rx Demod Acq RSW= 2 bytes, Command or Query. RSW= (message ok) RSW? RSW=xx
Sweep Width numerical Rx acquisition sweep range of demodulator, in kHz, RSW? (received ok, (same format as
ranging
from 1 kHz to 30 kHz. but invalid arguments command
Example: RSW=09 (which is 9 kHz) found) arguments)
RSW* (message ok,
but
not permitted in
current
mode)
Rx Clock Mode RCK= 1 byte, value of Command or Query. RCK= (message ok) RCK? RCK=x
Oorl Rx Clock mode, where: RCK? (received ok, (same format as
0 = Buffer disabled but invalid argument command argument)
1 = Buffer enabled found)
All other codes invalid. RCK* (message ok,
Example: RCK=0 (which is buffer disable) but
not permitted in
current
mode)
Eb/No Alarm EBA= 4 bytes, Command or Query. EBA= (message ok) EBA? EBA=xx.x
Point numerical Eb/No alarm point, with a range of Eb/No between 0 and EBA? (received ok, (same format as
16 Resolution 0.1 dB.
dB. but invalid arguments command
Example: EBA=12.3 (which is Eb/No = 12.3 dB) found) arguments)
Rx Buffer Size RBS= 1 byte, value Command or Query. RBS= (message ok) RBS? RBS=x
of
1,2,3,4 or 5 Rx buffer size, where: RBS? (received ok, (same format as
1 = +/- 256 bits but invalid argument command argument)
2 = +/-512 bits found)
3=+/-1024 bits RBS* (message ok,
but
101
Parameter Command Arguments for Description of arguments Response to Query Response to query
Type (InstructionC Command or (note that all arguments are ASCII numeric codes, Command (target to controller) (Instruction (target to controller)
ode and Response to that is,codes between 48 and 57)
ASCII Code and
qualifier) Query qualifier)
Unit ITF= 1 byte, value of Command or Query. ITF= (message ok) ITF? ITF=x
Interface 1,2 or 3 Terrestrial interface type, where: ITF? (received ok, but (same format
Type 1 = EIA-422/EIA530 DCE, invalid args found) as command
2 = V.35DCE ITF* (message ok, but argument)
3 = EIA-232 (sync). not permitted in
All other codes invalid. Example: ITF=2 (V.35) current
mode)
Unit Framing FRM= 1 byte, value Command or Query. FRM= (message ok) FRM? FRM=x
Mode of
Oorl Unit operating mode, where FRM? (received ok, (same format as
0 = Unframed - transparent (distant-end M&C not but invalid argument command argument)
possible)
1 = Framed (EDMAC distant-end M&C possible) found)
Example: FRM=1 (which is framed) FRM* (message ok,
but
not permitted in
current
mode)
Unit Test TST= 1 byte, value 0 = Normal TST= (message ok) TST? TST=x
Mode of
0,1,2,3,4 or 5 1 = IF loopback TST? (received ok, (same format as
2 = Digital loopback but invalid argument command argument)
3 = I/O loopback found)
4 = Tx CW TST* (message ok, but
5 = Tx Alternating 1,0 pattern not permitted in
6 = RF loopback current
mode)
All other codes invalid. Example TST=4 (which is
transmit
CW)
Unit IF IMP= 1 byte, value of Command or Query. IMP= (message ok) IMP? IMP=x
Impedance 5 or 7 IF interface impedance, where: IMP? (received ok, (same format as
5 = 50 ohms but invalid argument command argument)
7 = 75 ohms found)
All other codes invalid. Example IMP=7 (75 ohms)
Unit Alarm MSK= 5 bytes, each Command or Query. MSK= (message ok) MSK? MSK=abcde
Mask with a value of 0 Alarm mask conditions, in the form abcde, where: MSK? (received ok, (same format as
orl a = mask Tx AIS alarm, b = mask Rx AGC alarm but invalid arguments command arguments)
c = mask buffer alarms, d = mask Rx AIS alarm found)
e = mask Eb/No alarm MSK* (message ok,
but
Setting any of these bytes to 0 unmasks alarm, setting to not permitted in
1
masks them. Example: MSK=01011 current
mode)
102
Parameter Command Arguments for Description of arguments Response to Query Response to query
Type (InstructionC Command or (note that all arguments are ASCII numeric codes, that Command
(target to controller) (Instruction (target to
ode and Response to is,
ASCII codes between 48 and 57) Code and controller)
qualifier) Query qualifier)
EDMAC Slave ESA= 4 bytes, Command or Query. ESA= (message ok) ESA? ESA=xxxx
Address numerical EDMAC Slave Address - sets the range of addresses of ESA? (received ok, (same format as
distant-
end units (modems or transceivers) which this unit will but invalid arguments command
forward messages for. Only values which are integer found) arguments)
multiples
often are permitted. (0010, 0020, 0030, 0040 etc.) ESA* (message ok, but
Example: ESA=0890 not permitted in current
Important Note: Setting the value of the EDMAC Slave mode - for example if
Address to 0000 disables this function. Setting a valid ESA= is sent to a
address
here will automatically define the unit as being an EDMAC distant-
end slave unit)
Master.
This command is only valid for an EDMAC master.
When used as a Query, it may be sent to an EDMAC
slave, will respond with the appropriate address.
which
Circuit ID string CID= 24 bytes, Command or Query. CID= (message ok) CID? CID=xxxxxxxx
ASCII Sets or queries the user-defined Circuit ID string, which is CID? (received ok, xxxxxxxxxxxxxxx
a
fixed length of 24 characters. but invalid arguments (same format as
Valid characters include: found) command
Space ( ) * + - , . / 0-9 and A-Z. arguments)
Outdoor Unit ODU= 1 byte, value Command or Query. ODU= (message ok) ODU? ODU=x
Comms of
Oorl Enables or disables communication, via an FSK serial ODU? (received ok, (same format as
link, a Comtech Transceiver (Outdoor unit).
with but invalid arguments command
0 = disabled found) arguments)
1 = enabled ODU* (message ok, but
Example: ODU=0 not permitted in current
mode)
AUPC AUP= 1 byte, value Command or Query. AUP= (message ok) AUP? AUP=x
Enable of
Oorl Enables or disables AUPC (Automatic Uplink Power AUP? (received ok, (same format as
Control).
0 = disabled 1 = enabled but invalid arguments command
Example: AUP=0 found) arguments)
Note: Framing must be selected for the AUPC feature to AUP* (message ok, but
work.
If AUPC is selected when Framing is disabled, AUP* will not permitted in current
be
returned mode)
103
Parameter Command Arguments Description of arguments Response to Query Response to query
Type (InstructionC for
Command or (note that all arguments are ASCII numeric codes, Command
(target to controller) (Instruction (target to
ode and Response to that is,codes between 48 and 57)
ASCII Code and controller)
qualifier) Query qualifier)
AUPC APP= 6 bytes, Command or Query. APP= (message ok) APP? APP=abc.cd
Parameter Defines AUPC (Automatic Uplink Power Control) APP? (received ok, (same format as
s operating Has the form abc.cd Where:
parameters. but invalid arguments command
a = Define action on max power condition: found) arguments)
0 = do nothing 1 = generate TX alarm APP* (message ok,
b = Define action on remote demod unlock: but
not permitted in
0 = go to nominal power 1 = go to max power current
mode)
c.c = Target Eb/No value, in dB, for remote demod
d = Maximum increase in Tx Power permitted, in dB
Example: APP= 015.67
Remote N/A 4 bytes, Query only. (AUPC feature) N/A REB? REB=xx.x
Eb/No numerical Returns the value of Ebi/No of the remote demod, if (see description for
Framing
is enabled. details of
Returns 99.9 if demod is unlocked. arguments)
Returns xx.x if Framing is not enabled.
Range: between 2 and 16dB. Resolution 0.2 dB.
Example: REB=12.4 (which is Eb/No = 12.4 dB)
For values > 16.0 dB, the reply will be REB=16.0
Tx Power N/A 3 bytes, Query only. (AUPC feature) N/A PLI? PLI=x.x
level numerical Returns the increase in Tx power level, in dB (from the (see description for
Increase nominal setting) due to the action of AUPC. details of
Returns x.x if AUPC is not enabled. arguments)
Example: PLI=2.3
104
Parameter Command Arguments for Description of arguments Response to Command Query Response to query
Type (InstructionC Command or (note that all arguments are ASCII numeric codes, that is, (target to controller) (Instruction (target to controller)
ode and Response to ASCII codes between 48 and 57) Code and
qualifier) Query qualifier)
Global MGC= 78 bytes, with Command or Query. Global configuration of unit, in the form: MGC= (message ok) MGC? MGC=FFF.FFFFDDD.
Configuration numerical FFF.FFFFDDDD.DDDGRMVSPP.PCX MGC? (received ok, DDDRMVSPP.PCXfff.
entries, fixed fff.ffffdddd.dddgrmvswwctt.tblOTZAAAAAUEEEEBYYY.Y but invalid arguments ffffddd.dddrmvswwctt.t
value entries, YW, where: found) blOTZAAAAAUEEEE
and delimiters F = Tx Frequency - same as TFQ= (8 bytes) BYY
D = Tx Data Rate - same as TDR= (8 bytes) Y.YYW
G = Tx FEC Coding type - same as TFT= (1 byte) (same format as
R = Tx FEC Code Rate - same as TCR= (1 byte) command arguments)
M = Tx Modulation - same as TMD= (1 byte)
V = Tx Spectrum Invert - same as TSI= (1 byte)
S = Tx Scrambler State - same as TSC= (1 byte)
P = Tx Power Level - same as TPL= (4 bytes)
C = Tx Clock Source - same as TCK= (1 byte)
X = Tx Carrier Status - same as TXO= (1 byte)
f = Rx Frequency - same as RFQ= (8 bytes)
d = Rx Data Rate - same as RDR= (8 bytes)
g = Rx FEC Decoding type - same as RFT= (1 byte)
r = Rx FEC Code Rate - same as RCR= (1 byte)
m = Rx Modulation - same as RMD= (1 byte)
v = Rx Spectrum Invert - same as RSI= (1 byte)
s = Rx De-scrambler - same as RDS= (1 byte)
w= Rx Sweep Width - same as RSW= (2 bytes)
c = Rx Clock Mode - same as RCK= (1 byte)
t = Eb/No Alarm Point - same as EBA= (4 bytes)
b = Rx Buffer Size - same as RBS= (1 byte)
I = Unit Interface Type - same as ITF= (1 byte)
O =Unit Framing Mode - same as FRM= (1 byte)
T = Unit Test Mode - same as TST= (1 byte)
Z = Unit IF Impedance - same as IMP= (1 byte)
A = Alarm Mask - same as MSK= (5 bytes)
U= ODU Comms - same as ODU= (1 byte)
B= AUPC enable - same as AUP= (1 byte)
Y = AUPC setup - same as APP= (6 bytes)
W =Stats log interval- same as SSI (1 byte)
Example:
MGC=074.56780064.0001720112.720082.65430
128.0002320116109.81211100000102361115.659
105
Parameter Command Arguments for Description of arguments Response to Query Response to query
Type (InstructionC Command or (note that all arguments are ASCII numeric codes, that Command (target to controller) (Instruction (target to controller)
ode and Response to is,
ASCII codes between 48 and 57) Code and
qualifier) Query qualifier)
Config Store CST= 1 byte, Forces the unit to store the current modem configuration in CST= (message ok) CST?n, Return the same
numerical, 0 to 9 Configuration Memory location defined by the one byte CST? (received ok, where format
astheMGC with
argument (0 to 9). but invalid arguments n is 0 to 9 the form:
Example CST=4 (Store current config in location 4) found) CST?0, or CST= for a valid
WARNING: Use with caution! If the location already CST? 1, or config, and CST*
contains
data it will be automatically overwritten. If in doubt, query CST?2, or where no valid config is
the
location first. CST?3, or found in that n
CST?4, or
CST?5, or
CST?6, or
CST?7, or
CST?8, or
CST?9
Config Load CLD= 1 byte, Command only. CLD= (message ok) N/A N/A
numerical, 0 to 9 Forces the unit to retrieve the Configuration Memory CLD? (message
location by the one byte argument (0 to 9). and to re-
defined received
ok, but an invalid
program
the unit with that stored configuration. argument was found,
CST* (message ok, but
the requested location
does not contain a valid
configuration)
Re-center Buffer RCB= None Command only. RCB= (message ok) N/A N/A
Forces the unit to re-center the receive
plesiochronous/doppler
buffer.
This command takes no arguments.
lOdB ATS= 1 byte, value of FACTORY USE ONLY ATS= (message ok) ATS? ATS=n
attenuator Oorl Modulator output lOdB attenuator setting, where ATS? (received ok, but where n is 0
set 0 = no attenuation invalid arguments or 1
1 = 10 dB attenuation found)(message ok, but
ATS*
Example: ATS=0 not permitted in current
(Used for power-level calibration) mode)
106
Command Arguments Description of arguments (note
Query
Parameter (Instruction for Command that all arguments are ASCII Response to Command Response to query (target to
(Instruction Code
Type C ode and or Response numeric codes, that is, ASCII (target to controller) controller)
and qualifier)
qualifier) to Query codes between 48 and 57)
Power level DAC set DAC= 4 bytes, FACTORY USE ONLY Modulator DAC= (message ok) DAC? DAC? DAC=xxxx
numeric power output DAC setting. An (received ok, but invalid where xxxx is a value
al argument between 0000 and 4095 arguments found) DAC* between 0000 and
is required Example: DAC=1287 (message ok, but not 4095
(Used for power-level calibration) permitted in current mode)
Write EWR= 7 bytes Command only. FACTORY USE EWR= (message ok) EWR? N/A N/A
EEPROM ONLY A command in the form (received ok, but invalid
Value ddd,aaa, where ddd is a single byte arguments found) EWR*
data value between 0 and 255, and (message ok, but not
aaa is a starting address (in the range permitted in current mode)
0 - 127) within the serial EEPROM,
where the data is to be written.
Example: EWR=127,104 means write
Set RTC DAY= 6 bytes, Command or query A command in DAY= (message ok) DAY? DAY? DAY=xxxxxx
Date numeric the form ddmmyy, where; dd = day (received ok, but invalid (same format as command
al of the month, between 01 and 31, arguments found) DAY* arguments)
mm = month of the year, between (message ok, but not
01 and 12 and yy = year, between permitted in current mode)
97 and 96 (1997 to 2000, then 2000
to 2096) Example: DAY=240457
Set RTC TIM= 6 bytes, Command or query A command in TIM= (message ok) TIM? TIM? TIM=xxxxxx (same format as
Time numeric the form hhmmss, indicating the time (received ok, but invalid command arguments)
al from midnight, where hh = hours, arguments found) TIM*
between 00 and 23; mm = minutes, (message ok, but not
between 00 and 59, and ss = permitted in current mode)
seconds, between 00 and 59
Example: TIM=231259 would be 23
Clear All Stored CAE= None Command only CAE= (message ok) N/A N/A
Events Instructs the
unit to clear all
Stored Events
107
Parameter Command Arguments Description of arguments Response to Query Response to query
Type (InstructionC for
Command or (note that all arguments are ASCII numeric codes, that Command
(target to controller) (Instruction (target to controller)
ode and Response to is,
ASCII codes between 48 and 57) Code and
qualifier) Query qualifier)
Set Statistics SSI= 1 byte, Command or Query. SSI= (message ok) SSI? SSI=x (see
Sample Interval numerical Used to set the sample interval for the Statistics Logging SSI? (received ok, description
for details of
Function. but invalid arguments argument)
SSI=x, where x = 0 to 9 in 10 minute steps. Note: setting found)
this
parameter to 0 disables the statistics logging function. SSI* (message ok, but
Example: SSI=3 means 30 minutes not permitted in
current
mode)
Clear All Stored CAS= None Command only CAS= (message ok) N/A N/A
Statistics Instructs the unit to clear all Stored Statistics
This command takes no arguments.
108
Parameter Command Arguments Description of arguments Response to Query Response to query
Type (InstructionC for
Command or (note that all arguments are ASCII numeric codes, that Command
(target to controller) (Instruction (target to controller)
ode and Response to is,
ASCII codes between 48 and 57) Code and
qualifier) Query qualifier)
Retrieve next 5 N/A 130 bytes Query only N/A RNS? RNS={CR}AA.ABB.B
unread Stored Unit returns the oldest 5 Stored Statistics which have not C.CD.Dddmmyyhhmm
Statistics yet read over the remote control. Reply format:
been ss{CR}AA.ABB.BC.C
{CR} Sub-body {CR} Sub-body {CR} Sub-body {CR} Sub- D.Dddmmyyhhmmss {
body {CR} Sub-body, where Sub-body= CRJAA.ABB.BC.CD.
AA.ABB.BC.CD.Dddmmyyhhmmss, Dddmmyyhhmmss {CR
AA.A = Minimum Eb/No during sample period. } AA. ABB .BC.CD .Ddd
BB.B = Average Eb/No during sample period. mmyyhhmmss {CR} AA
C.C = Max. Tx Power Level Increase during sample .ABB.BC.CD.Dddmmy
period.
D.D = Average Tx Power Level Increase during sample yhhmmss (see
period.
ddmmyyhhmmss = date/time stamp. description for details
If there are no new events, the unit replies with RNS? If of arguments)
thereless than 5 statistics to be retrieved, the remaining
are
positions
are padded with zeros.
109
Parameter Command Arguments for Description of arguments Response to Query Response to query
Type (InstructionC Command or (note that all arguments are ASCII numeric codes, that Command (target to controller) (Instruction (target to controller)
ode and Response to is,
ASCII codes between 48 and 57) Code and
qualifier) Query qualifier)
RxBER N/A 5 bytes Query only. N/A BER? BER=a.bEc
Unit returns the value of the estimated corrected BER in the (see description for
form a.b x lOexp-c. Fist and second bytes are value, 3rd and details of arguments)
4th bytes are the exponent. Returns 99999 if demod is
unlocked.
Example: BER=4.8E3 (BER is 4.8 x 10-3)
Redundancy N/A 1 byte, value of Query only. N/A RED? RED=x (see
State Oorl Returns the redundancy state of the unit, where: description for details
0 = Off Line (forced into standby by 1 :N or 1:1 Switch) 1 = On of arguments)
Line (normal). All other codes invalid. Example: RED=1 (On
Line)
Local/Remote LRS= 1 byte, value of Command or query (Command only if S/W > 1.13) LRS= LRS? LRS=x (see
Status Oorl As a query, returns the local/remote status of the unit, where: (message ok) description for details
0 = local of arguments)
1= remote
When used as a comand, uses the same codes for an
argument.
Example: LRS=1 (unit is in remote mode)
Extended Serial ESN= 9 bytes Command portion is FACTORY USE ONLY. Used to set or ESN= (message ok) ESN? ESN=xxxxxxxxx (see
Number numerical Query the unit' s 9 digit serial number. description for details
Unit returns its S/N, in the form xxxxxxxxx. of arguments)
Example: ESN=123451765 (S/W Version > 1.16)
Equipment N/A 6 bytes, Query only. N/A EID? EID=aaaabc (see
ID numerical Unit returns the equipment identification, and the options description for details
fitted, in the form aaaabc, where: of arguments)
aaaa defines the Modem model number. Example:
2550 is CDM-550T, no Reed-Solomon or Turbo
3550 is CDM-550T with Reed-Solomon Codec
4550 is CDM-550T with Turbo Codec fitted (Rate 3/4 QPSK
only - S/W Version less than 1.15)
5550 is CDM-550T with Turbo Codec fitted (Rate 3/4 QPSK,
plus Rate 21/44 and Rate 5/16 BPSK)
b defines the IF band, with 1 = 70MHz, 2 = 140MHz
c defines RX only, with 1 = RX/TX, 2 = RX only.
Example: EID=455011 (CDM-550T, Rate 3/4 Turbo Codec,
70 MHz band, RX/TX)
110
Parameter Command Arguments for Description of arguments Response to Query Response to query
Type (InstructionC Command or (note that all arguments are ASCII numeric codes, Command (target to controller) (Instruction (target to
ode and Response to that is,codes between 48 and 57)
ASCII Code and controller)
qualifier) Query qualifier)
Faults N/A 5 bytes, Query only. Unit returns the current fault and status codes N/A FLT? FLT=abcde (see
and first 3 bytes for Unit (hardware), Tx Traffic and Rx Traffic, in the form
the description for
Status alpha- abcde, where: details
of arguments
numerical
4th and 5th a = Unit fault status, b = Tx Traffic status,
bytes, value of c = Rx Traffic Status, d = Change in Fault Status since
0
orl last
(0 =poll
none, 1 = change), e = Change in Unit Configuration
since last poll (0 = none, 1 = change)
Unit faults:
0 = No faults
1 = Power supply fault, 5 volts
2 = Power supply fault, 12 volts
3 = Power supply fault, -5 volts
4 = Power supply fault, 18 volts
5 = Power supply fault, -12 volts
6 = RAM load fail
7 = Tx synthesiser lock
8 = Rx synthesiser
9 = Power cal Checksum error
A = FPGA main chain load fail
B = Turbo FPGA load fail
Tx Traffic status:
0 = Tx traffic OK
1 = No clock from terrestrial interface
2 = Tx FIFO slip
3 = AIS detected on incoming data
4 = AUPC upper limit reached
Rx Traffic status:
0 = Rx Traffic OK
1 = Demodulator unlocked
2 = AGC Alarm - signal level too high
3 = Frame sync lost (Reed-Solomon or EDMAC)
4 = Buffer Underflow
5 = Buffer Overflow
6 = AIS detected on incoming data
7 = Eb/No threshold exceeded
111
Anexo C. Conversor RS-232/485. Modelo 485TBLED
LEDs
The 485TBLED has two LEDs: a Transmit Data LED to show when the RS-485 driver is enabled and a
Receive Data LED showing data appearing at pin 3 of the RS-232 port. These are very useful for determining if
data is getting through the converter. Note that the TD LED indicates that the RS-485 driver is enabled. Data
must be present on pin 2 of the RS-232 side for data to be transmitted out of the RS-485 side. If no data is
present, no data will be transmitted even though the TD LED is illuminated.
Flow Control
The 485TBLED uses two different methods to enable the RS-
485 driver, either by toggling Request to Send (pin 4) of the
RS-232 side, or by automatic sensing of the data on Transmit
Data (pin 2) of the RS-232 side. This option is user selectable
by setting pushon jumpers located next to the terminal
blocks. See Fig. 1.
Removing both sets of jumpers completely can also
constantly enable the RS-485 driver and receiver. This
makes the 485TBLED act like an RS-422 converter.
Baud Rate
There is a timing component on the converter, a resistor R9, see Fig. 1. This component is part of the
automatic sensing circuit, and affects the baud rate at which the converter can be used in a two-wire setup.
This component, is factory selected to allow the converter to run at 9600 baud or higher. With this component,
the RS-485 driver will shut off approximately 1ms after the last character has been sent. If you need to change
the 485TBLED to a baud rate other than 9600 baud, you can change this component. To change the baud
rate, remove R9 and add through hole component R14, see Table 1.
Figure 2 shows how to interconnect two RS-485 converters using 4-Wire and 2- Wires.
112
The Echo jumper is used in the two-wire mode, and allows you to prevent data being sent from the RS-232
port from being echoed back to the RS-232 port. Up to 32 receivers can be driven by any one RS-485 driver,
allowing you to put to gether large systems with many drop points. If you are using termination resistors, they
should be located at opposite ends of the system.
Proper operation of any RS-485 system requires the presence of a return path. The RS-485 Standard
recommends that a third wire be used for this. For safety, a 100 ohm resistor should be connected between
Signal Ground and the "reference wire" at every drop point. While it may be possible to interconnect Signal
Grounds directly, this is not recommended due to the danger of circulating currents possibly being present.
No wire type or maximum run length is listed in the RS-485 Standard. However, the RS-422 Standard (which is
very similar) recommends number 24AWG twisted pair telephone cable with a shunt capacitance of 16
picofarads per foot, and no more than 4000 feet of distance.
113
114
Anexo D. Manual de usuario del SGMS
Al dar doble click en el ejecutable aparecer la pantalla principal del SGMS, como
se muestra en la figura 1.
115
Figura 1.
Iniciar programa
Terminal (deshabilitado)
Acerca de
Salir
116
Acerca de: Presenta informacin relevante acerca de la versin y creadores.
Clientes: Siguiendo con la pantalla inicial, se tiene una gran red tipo estrella, que
ilustra de manera sencilla, los clientes que se tienen conectados en toda la red
SCPC.
Figura 2.
117
La exploracin de los mdems se visualiza como se dijo anteriormente con la
barra de progreso Estado de Exploracin y cada seccin de la barra indica que
se ha explorado un modem. El resultado de la exploracin de cada modem,
entrega en la pantalla de los clientes un color de acuerdo a su estado de
operacin, as:
118
Figura3.
119
Figura 4.
120
Figura 5.
121
Figura 6
Hasta este punto la informacin que aparece en esta pantalla solo permite ver la
configuracin; si se desea cambiar algn parmetro del modem seleccionado se
debe hacer DOBLE CLICK sobre alguno de los valores del modem, como
respuesta a este evento aparecer una solicitud de Password, que validar o no el
acceso a los cambios en la configuracin. La figura 7, muestra la ventana de
Password.
122
Figura 7
Al hacer DOCLE CLICK en el valor del parmetro, aparecer una ventana que
desplegar el valor actual del dato en un display y permitir los cambios a travs
de flechas validando con ENTER o cancelando con CLEAR, en forma similar a
como se hace en el modem. La figura 8 muestra la ventana.
Figura 8
123
Figura 9
Existe una forma de realizar pruebas con el modem seleccionado a travs del
recuadro BUCLES, cuando se selecciona la lnea correspondiente, aparecen las
opciones disponibles y se puede seleccionar el tipo de prueba que se requiera. La
figura 10, muestra el recuadro de pruebas.
Figura 10
124
Figura 11
Figura 12
125
Terminal: Tiene un acceso llamado Manual CDM-550, que permite al usuario
autorizado consultar el manual del modem Comtech CDM-550. La ventana de
ayuda se puede ver en la figura 13.
Figura 13
Esperamos que este manual sea claro para el operador, sin embargo cualquier
duda favor contactar a sus creadores.
126
Anexo E. Carta viabilidad de la empresa Telefnica Telecom
127