Pascal/Turbo Pascal - IskeyPressed

   
Vista:

IskeyPressed

Publicado por Arturo Castillo (3 intervenciones) el 23/03/2009 19:39:04
Hola..

necesito el codigo de una funcion ISKEYPRESSED

hace buen rato programé una rutina para practicar codigo morse en pascal pero no recuerdo como controlaba el teclado.

Se trata de contar el tiempo que dejas presionada una tecla y hacer un sonido al mismo tiempo
y despues de soltarla contar tambien el tiempo son presionar ninguna tecla.

Mi problema es que no tengo una funcion en pascal que me diga que estoy presionando una tecla

si uso la funcion keypressed no me funciona bien mi programa ( el tiempo de repeticion del teclado me afecta)

Yo lo que quiero es algo asi:

if iskeypressed(tecla) then begin
sound(1000);
suma_tiempo_activa; end
else
begin
nosound;
suma_tiempo_pausa;
end

yo lo que quiero es que mientras la tecla este presionada haga un sonido continuo y cuando le suelte la tecla el NOSOUND lo callará.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder