Indice de contenido -> Capítulo 14 - Funciones misceláneas

A continuación se describe el uso de las siguientes funciones predeterminadas en TEIMSI:

1)- reghotkey(teclas,dirección_procedimiento)

2)- regtimer(entero_tiempo,entero_puntero)

3)- seterrorlevel(número)

4)- waitevent()

5)- openapp(senda)

6)- fn_at_long(entero_puntero)

7)- waitfor(número_milisegundos)

reghotkey

La función "reghotkey", asocia una combinación de teclas a un procedimiento TEIMSI. De esa forma al presionarse tal combinación se llama al procedimiento, el cual no recibe parámetros como variables TEIMSI.

Se reciben dos parámetros donde el primero describe las teclas especiales y el segundo es el nombre del procedimiento precedido del carácter "@", por ejemplo: @tarea1 ("tarea1" es la función declarada en TEIMSI).

También se puede desasociar una combinación de teclas previamente asociadas con la misma función, para ello el segundo parámetro debe valer 0 (entero cero). La función predeterminada "waitevent()" se utiliza para entrar en estado de escucha de teclas, eso significa que detiene el flujo de ejecución de código del programa pero continúa su flujo si el procedimiento asociado devuelve el booleano "true" en lugar de "false".

//	El siguiente ejemplo muestra un programa que registra las teclas Ctrl+Alt+P, espera a que la combinación de teclas se haga para salir.


	function evento(){
		alert("Se presionó Ctrl+Alt+P")
		return true;	//	Al devolver "true", la función "waitevent" para de esperar por eventos.
	}
	//	A continuación asocia una combinación a un procedimiento.

	var error=reghotkey("-ca.p",@evento)
	if(error==false){
		alert("Ocurrió un error al asociar Ctrl+Alt+P, descripción: "+_nl+"	"+err_description(err_number()))
		sys.quit()
	}else{
		alert("Presionar Ctrl+Alt+P para salir!")
	}
	waitevent()

	reghotkey("-ca.p",0)		//	Desasocia las teclas Ctrl+Alt+P.

	//	Estas instrucciones muestran un ejemplo de que ocurre cuando la tecla ya está asociada por otra aplicación (Ctrl+Alt+Suprimir es un comando para el sistema operativo).

	var error=reghotkey("-ca.delete",@evento)
	if(error==false){
		alert("Ocurrió un error al asociar Ctrl+Alt+Delete, descripción: "+_nl+"	"+err_description(err_number()))
	}
	sys.quit()			//	Termina la aplicación.

regtimer

La función "regtimer", registra un "timer" (cronómetro) a un procedimiento. Un "timer" llama cada cierta cantidad de milisegundos (1 milisegundo = 0.001 segundos) a un procedimiento. El procedimiento o función TEIMSI no debe recibir parámetros. La función predeterminada "waitevent()" se utiliza para entrar en estado de escucha de "timers", eso significa que detiene el flujo de ejecución de código del programa pero continúa su flujo si el procedimiento asociado devuelve el booleano "true" en lugar de "false".

	alert("Esperar 2 segundos!")

	var timerh = regtimer(2000, @timer1);

	waitevent();

	alert("Saliendo!")


	function timer1(){
		var resultf = regtimer(timerh, 0);
		alert("Timer1 en acción!")
		return true;
	}

seterrorlevel

La función "seterrorlevel", establece el valor del entero "errorlevel" usado tras terminar la aplicación.

//	El siguiente ejemplo muestra una utilidad de "seterrorlevel".
//	Editar con el Editor de TEIMSI un archivo llamado "errorlevel.tsi", ponerle la siguiente línea y luego presionar F5.

	seterrorlevel(2)

//	Ahora editar un archivo llamado "test.bat" en la misma carpeta del archivo .exe, ponerle lo siguiente y ejecutar el bat.

	@echo off
	call errorlevel.exe
	if errorlevel 2 goto et2
	
	echo "Error level 0"
	pause
	exit
	
	:et2
	echo "Error level 2"
	pause
	exit

//	Como se verá aparece la cadena "Error level 2".
	

waitevent

La función "waitevent", detiene el flujo del programa hasta que la llamada de un "timer" (registrado con la función "regtimer") o combinación de teclas (registrada con la función "reghotkey") se cumple.

openapp

La función "openapp", ejecuta un programa o documento en el sistema de archivos para que lo abra el sistema operativo (o la aplicación asociada a al tipo de archivos que corresponde). Recibe un parámetro que es la senda al documento o programa, si es un programa se puede especificar la línea de comandos: para ello la senda debe estar seguida por el carácter "<" y la línea de comandos.

//	Editar con el Editor de TEIMSI un archivo llamado "program.tsi", ponerle la siguiente línea y luego presionar F5.

	alert(cmdline())

//	Se verá un mensaje con la senda al programa.

//	Ahora editar con el Editor de TEIMSI un archivo llamado "caller.tsi", ponerle las siguientes líneas y luego presionar F5.

	if(fileexists("program.exe")){
		openapp("program.exe<Hola!")		//	Corre el programa "program.exe" en caso de estar en el sistema de archivos.
	}

//	Como se verá aparece un mensaje con la senda al programa "program.exe" y la línea de comandos (que en este caso es "Hola!").

fn_at_long

La función "fn_at_long", llama a un procedimiento cuya localización en la sección de código se especifica con una variable tipo entero de TEIMSI.

	var posicion=@ejemplo

	var num=fn_at_long(posicion)
	
	alert("380 + 2 = "+ num)
	
	function ejemplo(){
		alert("hola")
		return 382
	}

waitfor

La función "waitfor", espera la cantidad especificada de milisegundos y luego continúa la ejecución del programa.

	// El siguiente programa utiliza "waitfor".

	alert("Esperar 1,5 segundos")
	waitfor(1500)
	alert("Listo!")