Pascal/Turbo Pascal - Menu con flechas en pascal.

   
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

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 (2072 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