| Pregunta: | 19875 - MOSTRAR NUMEROS GRANDES EN FOXPRO PARA MS-DOS |
| Autor: | Antonio Jiloth Pereztroika |
| hola la presente es para solicitar su apoyo al respecto tengo una rutina de facturacion pero mi jefe pide que en la pantalla de ventas al momento que se le cobre al cleinte el vea los numeros grandes del monto. es decir si son $ 20.36 que se vena grandes ( indico que estoy trabajando en foxpro para ms-dos ) asi de que debere aplicar el codigo ALT+177 del codigo ascii.. Gracias | |
| Respuesta: | Antonio Estrada |
| No sería mejor utilizar los códigos ALT+220,(medio cuadro inferior), ALT+223 (medio cuadro superior) y ALT+219 (cuadro completo) para crear una matriz de números? matriz[2,1]=chr(223)+chr(223)+chr(219) matriz[2,2]=chr(219)+chr(223)+chr(223) matriz[2,3]=chr(223)+chr(223)+chr(223) este elemento sería para dibujar el 2. Algo así como... línea 1 OOO O línea 2 OOO O línea 3 OOO Luego solo tienes que hacer una rutina que pase el valor a cadena y componer la salida: cadena1="" cadena2="" cadena3="" for a=1 to len(cadena) do case case substr(cadena,a,1)="1" cadena1=cadena1+matriz[1,1] cadena2=cadena2+matriz[1,2] cadena3=cadena3+matriz[1,3] case substr(cadena,a,1)="*" cadena1=cadena1+matriz[11,1] cadena2=cadena2+matriz[11,2] cadena3=cadena3+matriz[11,3] ... y así para cada caracter ... endcase luego solo tienes que mostrar las tres cadenas resultantes @1,1 say cadena1 @2,1 say cadena2 @3,1 say cadena3 Solo hay que tener un poco de paciencia y maña para dibujar los números. Si no te ves con tino, te envio una serie de gráficos compuestos como te he indicado arriba. Suerte | |