Criando Menu em Pascal Parte 2

Continuando a matéria anterior vamos colocar um menu dentro do outro.

Para quem nunca fez um programa pode ficar achando que os menus de telefones são muitos parecidos com o menu do programa.

E isso é verdade.

Os menus em programas são bem antigos e foi uma forma de dividir e organizar as idéias de cada parte do programa.

Trabalhei com uma das primeiras implantações de menus em telefones e por isso conheço bem a migração.

Nesse segundo exemplo vou criar um Menu para um Salão de Beleza, escolhi o exemplo para não coincidir com nenhum projeto.

Em um Salão de Beleza nós temos: Clientes, Funcionários, Produtos e precisamos saber no final de contas o quanto se está faturando.

Essa é a estrutura dos menus:

Menu Pascal 02.jpg

Código Fonte:

 Program Menu_Em_Pascal_2;  
 Uses Crt;  
 Var  
  Opcao,Opcao2 : Integer;  
 Begin  
  Repeat  
   ClrScr;  
   WriteLn ('Salao de Beleza');  
   WriteLn;  
   WriteLn ('1. Cadastrar');  
   WriteLn ('2. Pagamento');  
   WriteLn ('3. Relatorio');  
   WriteLn ('0. Sair');  
   WriteLn;  
   Write ('Opcao:'); ReadLn (Opcao);  
   Case Opcao of  
    1 : Begin  
       Repeat  
        ClrScr;  
        WriteLn ('Salao de Beleza > Cadastrar');  
        WriteLn;  
        WriteLn ('1. Cliente');  
        WriteLn ('2. Funcionario');  
        WriteLn ('3. Produto');  
        WriteLn ('0. Sair');  
        Write ('Opcao:'); ReadLn (Opcao2);  
       Until Opcao2=0;  
      End;  
    2 : Begin  
       Repeat  
        ClrScr;  
        WriteLn ('Salao de Beleza > Pagamento');  
        WriteLn;  
        WriteLn ('1. Cliente');  
        WriteLn ('2. Funcionario');  
        WriteLn ('0. Sair');  
        Write ('Opcao:'); ReadLn (Opcao2);  
       Until Opcao2=0;  
      End;  
    3 : Begin  
       Repeat  
        ClrScr;  
        WriteLn ('Salao de Beleza > Relatorio');  
        WriteLn;  
        WriteLn ('1. Cliente');  
        WriteLn ('2. Funcionario');  
        WriteLn ('3. Produto');  
        WriteLn ('4. Faturamento');  
        WriteLn ('0. Sair');  
        Write ('Opcao:'); ReadLn (Opcao2);  
       Until Opcao2=0;  
       End;  
   End;  
  Until Opcao=0;  
 End.  

Nenhum comentário:

Postar um comentário