PROGRAMA 'Ejemplo I-2 grafica barras simples'
*
* Este programa es igual al PSSIA1 pero se asume que los datos
* para la grafica se van calculando de uno en uno
*
IGUAL AREA N10 SUM-PA SUM-PB SUM-PC SUM-PD
*
* Definir el area para desplegarla
*
OPCION TERMINAL AREA 10 /IMAGEN $
/LONG. 18 76 /POS. 3 3 /MARCO /CONFIRMAR $
/BN VI /COLOR BLANCO BLANCO NEGRO $
/TECLAS-DE-FUNCION 3 'Imprimir' $
/CAMPOS 2 2 GRAF-EST /VAR. /ESC. /LONG. 72 /RENG. 15
*
* Formar la grafica
*
FORMAR IMAGEN GRAF-EST /GRAFICA-BARRAS $
'Resultados de la evaluacion' $
/VARIAS-INSTRUCCIONES /VALORES /2D $
/COLOR 'TRANSPARENTE' 'AZUL' 'NEGRO' 'ROJO-B'
*
* Se calculan el valor del primer dato y se pasa
* (Aqui Usted pone su logica para hacerlo)
*
SUM-PA = 1
FORMAR IMAGEN GRAF-EST $
/DATO SUM-PA 'Deficiente' 'ROJO' 'CIRCULOS-GRANDES'
*
* Se calculan el valor del segundo y se pasa, ...
* (Aqui Usted pone su logica para hacerlo)
*
SUM-PB = 5
FORMAR IMAGEN GRAF-EST $
/DATO SUM-PB 'Aceptable' 'AMARILLO' 'LLENO'
SUM-PC = 3
FORMAR IMAGEN GRAF-EST $
/DATO SUM-PC 'Bueno' 'GRIS' 'HORIZONTALES-SEPARADAS'
SUM-PD = 6
FORMAR IMAGEN GRAF-EST $
/DATO SUM-PD 'Excelente' 'VERDE' 'DIAGONALES-ASCENDENTES'
*
* Se construye y se desplegiega
*
FORMAR IMAGEN GRAF-EST /CONSTRUIR /FIN-DE-INSTRUCCIONES
OPCION TERMINAL AREA 10 /DESPLEGAR
ESCRIBIR TERMINAL GRAF-EST
OPCION TERMINAL AREA 10 /TERMINAR
*
* Se imprime
*
IGUAL AREA N10 COND
SACAR PARAMETROS CONDICION-TERMINAR COND
SI COND <> 3 FIN 'SIA3'
OPCION IMPRIMIR /NO-RENGLON-INICIAL $
/DF 'SUIZO' 16 -5 $
/ENC. 30 'Grafica de evaluaciones' /AR 1 /CEL $
/ENC. 1 70 /LHS
IMPRIMIR DETALLE 5 GRAF-EST /L 400 /R 200
FIN 'SIA3'