PROGRAMA 'Ejemplo I-6 grafica marcada'
*
* Este programa es para ilustrar graficas marcadas, para ello
* se asume que una empresa tiene 3 plantas y se desea graficar
* en un sistema de mantenimiento las averias que occurren en cada
* una de ellas, asi mismo se pueda seleccionar una de las plantas
* y desplegar las averias por trimestre
*
IGUAL AREA GRAF-EST GRAF-MES
IGUAL AREA N10 NUM-AVE-T1 NUM-AVE-T2 NUM-AVE-T3 $
NUM-AVE-T4 NUM-AVE COL-PLA SUB
IGUAL AREA X20 NOM-PLA
VECTOR NUM-AVE-T1 RANGO 1 3
VECTOR NUM-AVE-T2 RANGO 1 3
VECTOR NUM-AVE-T3 RANGO 1 3
VECTOR NUM-AVE-T4 RANGO 1 3
VECTOR NOM-PLA RANGO 1 3
VECTOR COL-PLA RANGO 1 3
*
* Se definen los nombres de las plantas
*
MOVER 'Monterrey' A NOM-PLA ( 1 )
MOVER 'Puebla' A NOM-PLA ( 2 )
MOVER 'Guadalajara' A NOM-PLA ( 3 )
*
* Se definen los colores
*
COL-PLA ( 1 ) = 1
COL-PLA ( 2 ) = 4
COL-PLA ( 3 ) = 8
*
* Definir las areas para desplegar las graficas
*
OPCION TERMINAL AREA 10 /MENU /SELECCIONAR-MARCA $
/LONG. 18 34 /POS. 3 2 /MARCO /VARIAS-SELECCIONES $
/BN VI /COLOR BLANCO-B BLANCO-B NEGRO $
/TECLAS-DE-FUNCION 2 'Terminar' /TIEMPO 0 0 5 $
/CAMPOS 'Seleccione la planta' /ENC. $
GRAF-EST /VAR-OP. SUB /VAR-SEL.
*
OPCION TERMINAL AREA 12 /IMAGEN $
/LONG. 18 34 /POS. 3 42 /MARCO /CONFIRMAR $
/BN VI /COLOR BLANCO-B BLANCO-B NEGRO $
/CAMPOS 2 2 GRAF-MES /VAR. /ESC. /LONG. 24 /RENG. 15
*
* Formar la grafica
*
FORMAR IMAGEN GRAF-EST /GRAFICA-BARRAS $
' ' ' ' 'Planta' 'Averia' $
/VARIAS-INSTRUCCIONES /VALORES /2D
*
* Se calculan los valores a graficar o sea el numero de averias en
* cada planta para cada trimestre
* (Aqui Usted pone su logica para hacerlo)
*
NUM-AVE-T1 ( 1 ) = 4
NUM-AVE-T1 ( 2 ) = 3
NUM-AVE-T1 ( 3 ) = 6
NUM-AVE-T2 ( 1 ) = 2
NUM-AVE-T2 ( 2 ) = 3
NUM-AVE-T2 ( 3 ) = 1
NUM-AVE-T3 ( 1 ) = 5
NUM-AVE-T3 ( 2 ) = 7
NUM-AVE-T3 ( 3 ) = 9
NUM-AVE-T4 ( 1 ) = 2
NUM-AVE-T4 ( 2 ) = 3
NUM-AVE-T4 ( 3 ) = 1
*
* Pasar los valores a la grafica
*
SUB = 1
10 NUM-AVE = NUM-AVE-T1 ( SUB ) + NUM-AVE-T2 ( SUB ) $
+ NUM-AVE-T3 ( SUB ) + NUM-AVE-T4 ( SUB )
FORMAR IMAGEN GRAF-EST /DATO NUM-AVE NOM-PLA ( SUB ) $
COL-PLA ( SUB ) 'LLENO' SUB
SUB = SUB + 1
SI SUB <= 3 EJECUTA 10
*
* Se construye, se desplegiega y se lee cual se desea.
*
FORMAR IMAGEN GRAF-EST /CONSTRUIR /FIN-DE-INSTRUCCIONES
OPCION TERMINAL AREA 10 /DESPLEGAR
ESCRIBIR TERMINAL GRAF-EST
20 LEER TERMINAL EJECUTA /F2 30 SUB
*
* Formar la grafica por trimestre de la planta seleccionada
*
FORMAR IMAGEN GRAF-MES /GRAFICA-BARRAS $
'Averias por mes' NOM-PLA ( SUB ) 'Trimestre' 'Averias' $
/3D /VALORES $
/DATO NUM-AVE-T1 ( SUB ) '1' 'NEGRO' $
/DATO NUM-AVE-T2 ( SUB ) '2' 'GRIS' $
/DATO NUM-AVE-T3 ( SUB ) '3' 'VERDE' $
/DATO NUM-AVE-T4 ( SUB ) '4' 'AZUL' $
/CONSTRUIR
*
* Desplegar la grafica trimestral, regresar a leer otra
*
OPCION TERMINAL AREA 12 /DESPLEGAR /SALVAR-ANTERIORES /EMPALMAR
ESCRIBIR TERMINAL GRAF-MES
OPCION TERMINAL AREA 12 /TERMINAR
EJECUTA 20
30 FIN