Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

Sign in to follow this  
Kamoka

O que fazer depois de selecionar algo no menu??

Recommended Posts

Kamoka

Já consegui fazer um menu agora já não me lembro como se faz para o programa saber que o menu1 corresponde

a 1 valor, o menu2 outro e por ai fora alguém me ajuda? e já agora como se fazia para o programa ir buscar palavras a uma folha de texto?

Se houver uma maneira mais simples de fazer isto também tou aberto a sugesões, tou aqui para aprender "novamente"....

program menu(input,output);


Uses CRT;


Var de,cb:longint;
    seta:char;
Procedure back;
begin
  textbackground(0);
  Clrscr;
end;


begin
    back;
    textbackground(5);
    gotoxy(3,3);
    writeln('menu1');
    textbackground(2);
    gotoxy(3,6);
    Writeln('menu2');
    gotoxy(10,3);
    writeln('menu3');
    gotoxy(10,6);
    writeln('menu4');
    cb:=2;
    de:=1;
    Repeat
    If de=1 then
        Begin
        if cb=2 then
            Begin
                textbackground(5);
                gotoxy(3,3);
                writeln('menu1');
                textbackground(2);
                gotoxy(3,6);
                Writeln('menu2');
                gotoxy(10,3);
                writeln('menu3');
                gotoxy(10,6);
                writeln('menu4');
            End;
        if cb=3 then
            Begin
                textbackground(5);
                gotoxy(3,6);
                writeln('menu2');
                textbackground(2);
                gotoxy(3,3);
                Writeln('menu1');
                gotoxy(10,3);
                writeln('menu3');
                gotoxy(10,6);
                writeln('menu4');
            End;
        End;
        if de=2 then
            begin
            If cb=2 then
            Begin
                textbackground(5);
                gotoxy(10,3);
                writeln('menu3');
                textbackground(2);
                gotoxy(3,3);
                Writeln('menu1');
                gotoxy(3,6);
                writeln('menu2');
                gotoxy(10,6);
                writeln('menu4');
            End;
            If cb=3 then
                begin
                    textbackground(5);
                    gotoxy(10,6);
                    writeln('menu4');
                    textbackground(2);
                    gotoxy(3,3);
                    Writeln('menu1');
                    gotoxy(3,6);
                    writeln('menu2');
                    gotoxy(10,3);
                    writeln('menu3');
                End;
        end;
     seta:=readkey;
     case seta of
        #72: cb:=cb-1;
        #80: cb:=cb+1;
        #77: de:=de+1;
        #75: de:=de-1;
     end;
     if cb=4 then
        cb:=2;
     if cb=1 then
        cb:=3;
     if de=3 then
        de:=1;
     if de=0 then
        de:=2;
     if seta=#13 then
     begin
        if de=1 then
        begin
        if cb=2 then
            Begin
                textbackground(1);
                gotoxy(3,3);
                writeln('menu1');
                textbackground(2);
                gotoxy(3,6);
                Writeln('menu2');
                gotoxy(10,3);
                writeln('menu3');
                gotoxy(10,6);
                writeln('menu4');
                delay(150);
                sound(60);
            End;
        if cb=3 then
            Begin
                textbackground(1);
                gotoxy(3,6);
                writeln('menu2');
                textbackground(2);
                gotoxy(3,3);
                Writeln('menu1');
                gotoxy(10,3);
                writeln('menu3');
                gotoxy(10,6);
                writeln('menu4');
                delay(150);
                sound(60);
            End;
        end;
        if de=2 then
            begin
            If cb=2 then
            Begin
                textbackground(1);
                gotoxy(10,3);
                writeln('menu3');
                textbackground(2);
                gotoxy(3,3);
                Writeln('menu1');
                gotoxy(3,6);
                writeln('menu2');
                gotoxy(10,6);
                writeln('menu4');
                delay(150);
                sound(60);
            End;
            If cb=3 then
                begin
                    textbackground(1);
                    gotoxy(10,6);
                    writeln('menu4');
                    textbackground(2);
                    gotoxy(3,3);
                    Writeln('menu1');
                    gotoxy(3,6);
                    writeln('menu2');
                    gotoxy(10,3);
                    writeln('menu3');
                    delay(150);
                    sound(60);
                End;
        end;
     end;
     until seta=#36;


end.

Desde já obrigado por qualquer dica!

Share this post


Link to post
Share on other sites
sr._neves

boas não será mais fácil adaptares isso a uma estrutura case??

Do género:

Case menu of

1: faz isto

2:faz isto

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.