Ir ao conteúdo
  • Cadastre-se
EduardoMQS

Delphi Como se transforma esse código Delphi de console para interface gráfica?

Recommended Posts

program usoeletron;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;
var
  idade_anos, tempo_max_uso_eletron: byte;
  permite1_10, permite1_12, permite1_14, permite1_16, permite1_18: string[3];
  permite2_10, permite2_12, permite2_14, permite2_16, permite2_18: boolean;
begin
  try
    write('Qual é a idade do seu filho em anos? ');
    readln(idade_anos);
    writeln;
    if (idade_anos < 2) then
    begin
      tempo_max_uso_eletron := 2;
    end
    else if (idade_anos < 4) then
    begin
      tempo_max_uso_eletron := 4;
    end
    else
    begin
      tempo_max_uso_eletron := idade_anos;
      if (tempo_max_uso_eletron mod 2 = 1) then
      begin
        dec(tempo_max_uso_eletron);
      end;
      tempo_max_uso_eletron := tempo_max_uso_eletron * 2;
      if (tempo_max_uso_eletron > 60) then
      begin
        tempo_max_uso_eletron := 60;
      end;
    end;
    repeat
      write('Você permite que seu filho ouça músicas Funk Normal e use outras ');
      write('mídias não recomendadas para menores de 10 anos? ');
      readln(permite1_10);
      writeln;
    until (permite1_10 = 'sim') or (permite1_10 = 'não');
    if (permite1_10 = 'sim') then
    begin
      permite2_10 := true;
      repeat
        write('Você permite que seu filho ouça músicas Funk Carioca e use ');
        write('outras mídias não recomendadas para menores de 12 anos? ');
        readln(permite1_12);
        writeln;
      until (permite1_12 = 'sim') or (permite1_12 = 'não');
      if (permite1_12 = 'sim') then
      begin
        permite2_12 := true;
        repeat
          write('Você permite que seu filho ouça músicas Heavy Metal e use ');
          write('outras mídias não recomendadas para menores de 14 anos? ');
          readln(permite1_14);
          writeln;
        until (permite1_14 = 'sim') or (permite1_14 = 'não');
        if (permite1_14 = 'sim') then
        begin
          permite2_14 := true;
          repeat
            write('Você permite que seu filho ouça músicas Pouco Explícitas ');
            write('e use outras mídias não recomendadas para menores de 16 ');
            write('anos? ');
            readln(permite1_16);
            writeln;
          until (permite1_16 = 'sim') or (permite1_16 = 'não');
          if (permite1_16 = 'sim') then
          begin
            permite2_16 := true;
            repeat
              write('Você permite que seu filho ouça músicas Muito ');
              write('Explícitas e use outras mídias não recomendadas para ');
              write('menores de 18 anos? ');
              readln(permite1_18);
              writeln;
            until (permite1_18 = 'sim') or (permite1_18 = 'não');
            if (permite1_18 = 'sim') then
            begin
              permite2_18 := true;
            end;
          end;
        end;
      end;
    end;
    write('Então seu filho poderá usar eletrônicos no máximo ');
    write(tempo_max_uso_eletron, ' horas semanais, podendo ouvir músicas ');
    write('infantis');
    if (idade_anos >= 2) then
    begin
      write(', ouvir músicas livres não infantis, ouvir músicas de jogos ');
      write('eletrônicos, assistir filmes e séries livres de personagens ');
      write('fictícios dublados');
    end;
    if (idade_anos >= 4) then
    begin
      write(', jogar jogos eletrônicos livres, assistir filmes e séries ');
      write('livres de personagens reais interpretados, assistir ');
      write('teleprogramas livres de entrevistas e entretenimento, assistir ');
      write('teleprogramas livres de jornalismo');
    end;
    if (permite2_10) then
    begin
      write(', usar mídias não recomendadas para no mínimo 10');
      if (permite2_12) then
      begin
        write(', 12');
        if (permite2_14) then
        begin
          write(', 14');
          if (permite2_16) then
          begin
            write(', 16');
            if (permite2_18) then
            begin
              write(', 18');
            end;
          end;
        end;
      end;
      write(' anos');
    end;
    writeln(' e só!');
    readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Eu uso a IDE da Embarcadero.

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Declare todas as variáveis como globais. Abra um formulário e atribua a cada entrada de dados uma caixa de texto.

Atribua a cada caixa de texto um evento na perda de foco, para validar os dados digitados e mostrar uma caixa de diálogo caso haja necessidade de correção.

No final do formulário, crie um botão ok para executar todas as verificações e gerar o relatório final.

 

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×