Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

Kamoka

O que fazer depois de selecionar algo no menu??

Mensagens Recomendadas

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!

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.