Pascal/Turbo Pascal - Menú con tiempo de elección

   
Vista:

Menú con tiempo de elección

Publicado por Xabier xrm08@hotmail.com (2 intervenciones) el 20/10/2015 19:09:59
Hola,

Tengo un problemilla con este programa. La función del programa es la siguiente:

En cuanto sale el menú, empieza a contar a partir de 10 segundos y se va decrementando, cuando llega a 0 ejecuta una instrucción, sino ha elegido ninguna de las dos opciones.

El problema es que no sé como hacer que mientras está decrementandose el contador, en cualquier momento si elige una de las dos opciones se ejecute dicha opción y no tenga que esperar a que termine el contador.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
{$M 8000,0,0}    {16K stack, no heap}
 
PROGRAM MENU;
 
USES Dos, crt;
 
Var
 
opcion:real;
seg:=10;
 
begin
 
seg:=10;
 
            Repeat
 
                begin
 
                 while seg>0 do
 
                 writeln('opciones de menu');
                writeln('introduzca el número del programa deseado y pulse enter, De lo contrario espere a que    termine el tiempo');
 
                  writeln('1. programa antiguo');
                  writeln('2. programa nuevo');
                  writeln;
                   write(seg);
                  seg:=seg-1;
                  delay(1000);
                  clrscr;
 
                   end;
                   readln(opcion);
 
             end;
 
           until (opcion=1) or (opcion=2) or (seg=0);
 
           if opcion=1 then
           writeln('programa antiguo');
 
           if opcion=2 then
           writeln('programa nuevo');
 
           if seg=0 then
           writeln('opción no elegida');
 
end.
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

Menú con tiempo de elección

Publicado por David (144 intervenciones) el 23/10/2015 12:30:20
Así a bote pronto y sin mirar el código, lo primero que se me ocurre es, en cuanto elija una opción, igualar el contador a 0 y automáticamente ejecutar la opción elegida
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Menú con tiempo de elección

Publicado por Xabier (2 intervenciones) el 26/10/2015 09:46:19
Hola David,

Gracias por la idea, voy a probarla y a ver como resulta
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar