• Miércoles 6 de Noviembre de 2024, 04:32

Autor Tema:  Re: Hacer el programa hasta que presiones escape  (Leído 2066 veces)

davidcarceo

  • Nuevo Miembro
  • *
  • Mensajes: 4
    • Ver Perfil
Re: Hacer el programa hasta que presiones escape
« en: Domingo 17 de Noviembre de 2002, 23:11 »
0
Mi problema es este...
Hice un programa que era un gusanito haci ****< y lo que debia hacer es dar la vuelta a la pantalla y al llegar al inicio ir disminuyendo hasta que el gusanito llegase al centro de la pantalla, bueno eso no es problema, lo malo es que no se como decirle que lo haga hasta que presione esc., intente algo pero no funcionó esto era decir:

repeat

{
aqui van las instrucciones del gusanito
}
op:=readkey;
until op:=#27;

el problema aqui es que al terminar la primera fase o entrada del repeat espera a que haga la captura de op y continuar despues

:-( necesito entregar esto rápido ayudenme please... aproposito gracias por sus respuestas a mi pregunta anterior pero cuando estaba escribiendo la pregunta se me vino a la cabeza como hacerlo, jajajaja, asi que ya no lo necesite, pero igual gracias a todos.
:-P

deldar

  • Miembro activo
  • **
  • Mensajes: 93
    • Ver Perfil
Re: Hacer el programa hasta que presiones escape
« Respuesta #1 en: Martes 3 de Diciembre de 2002, 11:20 »
0
mira la funcion keypressed. pudes usarla tanto en un repeat (repeat ............... until keypressed) como en un if ( if keypressed then ...) una vez reconozcas que se ha pulsado una tecla podrás estudiarla con tu readkey.
Quien de verdad sabe de qué habla, no encuentra razones para levantar la voz.

appache

  • Nuevo Miembro
  • *
  • Mensajes: 8
    • Ver Perfil
    • http://www.appache.com.ar
Hacer el programa hasta que presiones escape
« Respuesta #2 en: Jueves 19 de Junio de 2003, 02:02 »
0
Lo que vos habias hecho, no estaba del todo mal. Primero Tu variable OP debe ser del tipo CHAR, pero no te recomiendo que la uses asi, lo mejor seria
..
Repeat
(tu bucle...tus instrucciones)
until readkey=#27

esa es la mejor manera y mas segura.