PROGRAMA 'Ejemplo I-3 grafica varias barras'
*
* Este programa es igual al PSSIA2 pero se asume que los datos
* son de 2 periodos diferentes por lo que se tienen dos SERIES
*
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
*
* Se calculan los valores de la primera serie
* (Aqui Usted pone su logica para hacerlo)
*
SUM-PA = 2
SUM-PB = 4
SUM-PC = 4
SUM-PD = 3
FORMAR IMAGEN GRAF-EST $
/SERIE '1 Trimestre' 'GRIS' 'ROMBOS' $
/DATO SUM-PA 'Deficiente' $
/DATO SUM-PB 'Aceptable' $
/DATO SUM-PC 'Bueno' $
/DATO SUM-PD 'Excelente'
*
* Se calculan los valores de la segunda serie
* (Aqui Usted pone su logica para hacerlo)
*
SUM-PA = 1
SUM-PB = 5
SUM-PC = 3
SUM-PD = 6
FORMAR IMAGEN GRAF-EST $
/SERIE '2 Trimestre' 'AZUL' $
/DATO SUM-PA /DATO SUM-PB /DATO SUM-PC /DATO SUM-PD
*
* 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 'SIA4'
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 'SIA4'