{Mira estamos en el camino que quieres o no esto es un botón en modo texto si es en graficodímelo}
program botones;
uses
crt;
var
y, x : integer;
nnp, opcion : integer;
tecla : char;
sisale : boolean;
procedure boton(xb, yb : integer; esta : boolean; tex : char);
begin
if esta = true then
begin
textcolor(15);
gotoxy(xb, yb);write('ÚÄ'); gotoxy(xb + 2,yb);write('¿'); gotoxy(xb,yb + 1);write('³'); gotoxy(xb + 2,yb + 1);write('³'); gotoxy(xb,yb + 2);write('ÀÄÙ'); gotoxy(xb + 1,yb + 1);write(tex);
gotoxy(1,1);
end;
if esta = false then
begin
textcolor(7);
gotoxy(xb, yb);write('ÚÄ'); gotoxy(xb + 2,yb);write('¿'); gotoxy(xb,yb + 1);write('³'); gotoxy(xb + 2,yb + 1);write('³'); gotoxy(xb,yb + 2);write('ÀÄÙ'); gotoxy(xb + 1,yb + 1);write(tex);
gotoxy(1,1);
end;
end;
procedure ponbotones(n : integer; esta : boolean);
begin
case n of
1 : begin
boton(4,3,esta,'N');
boton(7,3,false,'S');
boton(10,3,false,'P');
end;
2 : begin
boton(7,3,esta,'S');
boton(4,3,false,'N');
boton(10,3,false,'P');
end;
3 : begin
boton(4,3,false,'N');
boton(7,3,false,'S');
boton(10,3,esta,'P');
end;
end;
end;
begin
clrscr;
opcion := 1;
gotoxy(2,2);write('Pulse Teclas [ ',chr(26),chr(27),' ] Y [Enter]'); sisale := false;
nnp := 3;
repeat
ponbotones(opcion,true);
tecla := readkey;
if tecla = #77 then
begin
opcion := opcion + 1;
if opcion > nnp then
opcion := nnp;
end;
if tecla = #75 then
begin
opcion := opcion - 1;
if opcion < 1 then
opcion := 1;
end;
if tecla = #13 then
begin
sisale := true;
end;
until sisale = true;
gotoxy(2,6);write('Su Eleccion A Sido La ',opcion); gotoxy(2,7);write('Pulse [Enter]'); readln;
end.
Crear cuenta