Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Pascal/Turbo Pascal » Menu con flechas en pascal.

Pascal/Turbo Pascal - Menu con flechas en pascal.

Volver
Nuevo Tema
<<>>
 
Vista:

Menu con flechas en pascal.

Publicado por wind (26 intervenciones) el 27/04/2014 01:21:46
Saludos cordiales.

Me gustaría mejorar mis programas implementando, un menu interactivo con fechas. Si es posible un ejemplo con dos opciones.
Recomienda alguna web, de ser posible.
¿Habria que declarar como constante las fecha arriba, y flecha abajo?
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
sin imagen de perfil

Menu con flechas en pascal.

Publicado por Diego (98 intervenciones) el 27/04/2014 13:29:53
Hay varias formas de colocar la fecha en un programa.
en esta página encontrarás varias formas: http://www.freepascal.org/docs-html/rtl/sysutils/datetimeroutines.html
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

Menu con flechas en pascal.

Publicado por ramon (2158 intervenciones) el 08/05/2014 13:44:04
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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
{Esto te parece bien}
 
  program menu;
  uses
     crt;
  var
    tecla : char;
    px, py : integer;
 
  procedure marcamenu(x, y : integer; acion : char);
  begin
     if upcase(acion) = 'Q' then
     textcolor(0)
    else
     textcolor(15);
         gotoxy(x,y);write('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
     gotoxy(x,y + 1);write('³');
     gotoxy(x + 18,y + 1);write('³');
     gotoxy(x,y + 2);write('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
     textcolor(15);
  end;
 
   procedure menugeneral;
   var
     opci : integer;
     salir : boolean;
    begin
      opci := 1;
      salir := false;
      px := 10;
      py := 2;
   repeat
      clrscr;
      gotoxy(10,1);write('******** Menu General ********');
      gotoxy(10,3);write('  Opcion Numero 1');
      gotoxy(10,5);write('  Opcion Numero 2');
      gotoxy(10,7);write('  Opcion Numero 3');
      gotoxy(10,9);write('  Opcion Numero 4');
      gotoxy(10,11);write('  Opcion Numero 5');
      gotoxy(10,13);write('  Opcion Numero 6');
      gotoxy(10,15);write('  Opcion Numero 7');
      gotoxy(10,17);write('  Opcion Numero 8');
      gotoxy(10,19);write('  Opcion Numero 9');
      gotoxy(10,21);write('  Salir');
      marcamenu(px,py,' ');
      tecla := readkey;
      marcamenu(px,py,'Q');
      if tecla = #72 then

      begin
         py := py - 2;
         opci := opci - 1;
         if opci < 1 then
         begin
         opci := 1;
         py := py + 2;
         end;
      end;
      if tecla = #80 then

      begin
         py := py + 2;
         opci := opci + 1;
         if opci > 10 then
         begin
         opci := 10;
         py := py - 2;
         end;
      end;
   if tecla = #13 then

   begin
    case opci of
  1 : begin writeln(' Escojio La opcion',opci); delay(1600); end;
  2 : begin writeln(' Escojio La opcion',opci); delay(1600); end;
  3 : begin writeln(' Escojio La opcion',opci); delay(1600); end;
  4 : begin writeln(' Escojio La opcion',opci); delay(1600); end;
  5 : begin writeln(' Escojio La opcion',opci); delay(1600); end;
  6 : begin writeln(' Escojio La opcion',opci); delay(1600); end;
  7 : begin writeln(' Escojio La opcion',opci); delay(1600); end;
  8 : begin writeln(' Escojio La opcion',opci); delay(1600); end;
  9 : begin writeln(' Escojio La opcion',opci); delay(1600); end;
 10 : salir := true;
    end;
  end;
   until salir = true;
  end;
 
  begin
     clrscr;
     menugeneral;
  end.
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