PROGRAMA 'Ejemplo I-1 grafica pastel'
*
* Este programa despliega una grafica de pastel, se asume en
* este ejemplo que los datos de la grafica son sobre los
* resultados de la evaluacion de un curso.
*
* Definir el area para desplegarla
*
OPCION TERMINAL AREA 10 /IMAGEN $
/LONG. 18 76 /POS. 3 3 /MARCO /CONFIRMAR $
/TECLAS-DE-FUNCION 3 'Imprimir' $
/BN VI /COLOR BLANCO-B BLANCO-B NEGRO $
/CAMPOS 2 2 GRAF-EST /VAR. /ESC. /LONG. 72 /RENG. 15
*
* Se calculan los valores de la grafica
* (Aqui Usted pone su logica para hacerlo)
*
IGUAL AREA N10 SUM-PA SUM-PB SUM-PC SUM-PD
SUM-PA = 1
SUM-PB = 5
SUM-PC = 3
SUM-PD = 6
*
* Formar la grafica
*
FORMAR IMAGEN GRAF-EST /GRAFICA-PASTEL $
'Resultados de la evaluacion' /3D $
/DATO SUM-PA 'Deficiente' 'ROJO' $
/DATO SUM-PB 'Aceptable' 'AMARILLO' $
/DATO SUM-PC 'Bueno' 'GRIS' $
/DATO SUM-PD 'Excelente' 'VERDE' $
/CONSTRUIR
*
* Desplegarla
*
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 'SIA2'
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 'SIA2'