MultiBase. Notas a la versión 2.0, release 05 para Windows

14. Comandos de la persiana de accesorios («MB»)

Los comandos de la persiana de accesorios pueden ser ejecutados desde un programa CTL por medio de la instrucción RUN. Los comandos disponibles son los siguientes.

run «wcolors»: Ejecuta la opción «Definición de Colores».
run «wabout»: Ejecuta la opción «Acerca de...».
run «whelp»: Ejecuta la opción «Ayuda».
run «wexit»: Ejecuta la opción «Salir».
run «wprintsetup»: Ejecuta la opción «Ajuste de Impresora».

15. Librerías dinámicas (DLLs)

La versión de MultiBase para Windows incluye dos librerías dinámicas: «DEMODLL.DLL» (disponible desde la release 03) y «UTIL.DLL» (que se incluye a partir de esta release).

«DEMODLL.DLL»: Esta librería incluye dos funciones, una para representar por pantalla ficheros «.BMP» («ShowBmp») y otra que simula la acción de pulsar una tecla desde el teclado («DoKey»).Para activar estas funciones habrá que incluir en el fichero de inicialización (normalmente «MB.INI») y dentro de la sección «.DLL», las siguientes líneas:

LIB demodll.dll
ShowBmp (WORD, LPSTR, WORD, WORD, WORD, WORD) return WORD
DoKey (WORD, WORD, LPSTR)

a) Función «ShowBmp»: Muestra en pantalla un fichero «bitmap». Su sintaxis es:

ShowBmp (hw, fichero, x, y, alto, ancho)

Donde:

hw: Manejador para Windows («handle») obtenido con la función «gethwnd()».
fichero: «Path» del fichero «bitmap». Si se indica «NULL» se borrará el fichero de la pantalla.
x: Fila donde desea representarse el «bitmap». El tamaño se debe especificar en «pixels», pudiendo obtenerse con la función «xtopixels()».
y: Columna donde desea representarse el «bitmap». El tamaño debe especificarse en «pixels», pudiendo obtenerse con la función «ytopixels()».
alto: Altura en «pixels» con que se representará el «bitmap».
ancho: Anchura en «pixels» con que se representará el «bitmap».

Ejemplo:

call dllfun ("ShowBmp", gethwnd(), "avion.bmp", 100, 200, 200, 300)

b) Función «DoKey»: Simula la pulsación de una tecla. Su sintaxis es la siguiente:

DoKey( hw, key, label)

Donde:

hw: Manejador para Windows («handle») obtenido con la función «gethwnd()».
key: Carácter ASCII. Si «key» es cero «0», «label» equivale a un «string» con el nombre de una acción.
label: Etiqueta de la tecla en el fichero de acciones.

«UTIL.DLL»: Esta librería incluye un total de cinco funciones, cuatro de ellas destinadas a facilitar la comunicación a través de los puertos serie de la máquina y otra que recoge un valor de tipo TIME expresad en milisegundos. Los nombres de estas funciones son: «openport», «readport», «writeport», «closeport» y «chrono». Para activar estas funciones habrá que incluirlas en el fichero de inicialización (*.INI») dentro de la sección DLL:

LIB util.dll OpenPort(LPSTR,LPSTR) return WORD
WritePort(WORD,LPSTR,WORD) return WORD ReadPort(WORD,WORD)
return LPSTR ClosePort(WORD) return WORD Chrono(WORD) return WORD

a) Función «OpenPort»: Abre el puerto de comunicación y retorna el número de canal abierto. Su sintaxis es la siguiente:

OpenPort ("Puerto",["Parámetros"])

Donde:

Puerto: Com1, Com2, etc.
Parámetros: Los válidos del comando mode del MS-DOS. Por defecto, la apertura se realiza a 1200 baudios, sin paridad, 8 bits, 1 bit de paro.

Ejemplo:

let canal = dllfun("OpenPort»,"com1","9600,n,8,1")

b) Función «WritePort»: Escribe sobre el canal especificado tantos caracteres como se indiquen. Su sintaxis es la siguiente:

WritePort (Canal, Cadena, Longitud)

Donde:

Canal: Valor devuelto por «OpenPort».
Cadena: Lo que se desea escribir.
Longitud: Número de caracteres que queremos escribir.

Devuelve:

n: Número de caracteres que haya podido escribir.
-0: Si se ha producido un error.

Ejemplo:

Call dllfun("WritePort",canal,"Cadena",6)

c) Función «ReadPort»: Lee del canal el número de caracteres que se le indique. Su sintaxis es la siguiente:

ReadPort (Canal, Longitud)

Donde:

Canal: Valor devuelto por «OpenPort».
Longitud: Número de caracteres que queremos leer.

Ejemplo:

let cadena = dllfun("ReadPort",canal,6)

d) Función «ClosePort»: Cierra el canal indicado. Su sintaxis es la siguiente:

ClosePort (Canal)

Donde:

Canal: Valor devuelto por «OpenPort».

Devuelve:

0: Ejecución correcta.
< 0: Ejecución incorrecta.

Ejemplo:

Call dllfun("ClosePort", canal)

e) Función «Chrono»: Devuelve el número de milisegundos transcurridos desde el último «reset». Su sintaxis es la siguiente:

Chrono (reset, función)

Donde:

reset: Podrá tener dos valores: «0» y «1». Si vale «1» se resetea Chrono y pone el valor a «0», sin tener en cuenta el segundo parámetro («función»). Por el contrario, si su valor es «0» tiene en cuenta el segundo parámetro.
función: Devuelve el tiempo acumulado hasta ese momento desde el último «reset». Podrá tener los siguientes valores:

    0: Consulta el tiempo y continúa contando.
    1: Para el «chrono».
    2: Continúa contando.

Ejemplos:

Call dllfun ("Chrono", 1, 0)
{start} Call dllfun ("Chrono", 0, 0)
{consulta} Call dllfun ("Chrono", 0, 1)
{pause} Call dllfun ("Chrono", 0, 2)
{continúa}