8 de febrero de 2011

Mejorando la función CODEPRINT

Como ya he comentado, he desarrollado una función propia para pintado de textos multicolor en pantalla. La idea es muy simple... envío a la función CODEPRINT un texto similar a esto: "^C^THello^E^TWorld".


El funcionamiento de la función es muy simple; se recorre el contenido de la cadena de texto y se extraen los "comandos" para su interpretación.

De esta manera, basta con hacer una llamada a CODEPRINT Texto$,X,Y,Color_Base para tener el texto en pantalla con los añadidos programados. (Color_Base es la tinta empleada para escribir por defecto, aunque por comando se puede modificar como se muestra en la imagen).

Los comandos hasta el momento son éstos:

^T - Cadena de texto.
^E - Retorno de carro (enter).
^C - Color del texto.
^+ - Sangría a la derecha n espacios.
^- - Sangría a la izquierda n espacios.

Los introducidos en esta ocasión son los encargados de "sangrar" los textos.


Código empleado para la muestra de la pantalla adjunta:

CODEPRINT("Texto de muestra^E^+02^TTest de Alineación^E^-08^TDesplazando ^C2^Ttextos",290,300,5)

No hay comentarios: