Menú con tiempo de elección
Publicado por Xabier (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.
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 dowriteln('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 thenwriteln('programa antiguo');
if opcion=2 thenwriteln('programa nuevo');
if seg=0 thenwriteln('opción no elegida');
end.Valora esta pregunta
0