NUNCA MAIS PASSE RAIVA POR NÃO CONSEGUIR RESOLVER UM PROBLEMA COM O EXCEL - GARANTIDO!

UNIVERSIDADE DO VBA - Domine o VBA no Excel Criando Sistemas Completos - Passo a Passo - CLIQUE AQUI

Você está em: PrincipalArtigosLivrodelphibas › Capítulo 3 : 04
Quer receber novidades e e-books gratuitos?
« Anterior Δ Página principal ¤ Índice Próxima »
Delphi Básico
Autor: Rodrigo Costa e Silvio Ferreira
Lição 20 de 29 - Exibindo o resultado das operações

Para exibir o resultado das operações, precisamos criar um procedimento para cada uma delas. Vá até a seção Public da Unit_Calculadora e declare cada uma das procedures:


Declaração da procedure de cada operação

Vamos primeiro programar a procedure soma, digite o código exibido abaixo:


Procedure soma

Esse procedimento verifica se o edt é diferente de vazio, se sim, ele soma o que está no visor com o que está no edt, senão ele apenas mostra no edt o que está em visor.

Finalmente ele zera o visor, coloca um espaço em operação e limpa a barra de Status incializando-os para a próxima operação. Faça o mesmo para as procedures das outras operações, lembre-se de mudar os operadores.

Após programar as procedures, podemos então apresentar o resultado. O resultado será exibido quando o usuário clicar no botão “=” (btnigual). Portanto digite o seguinte código em seu evento OnClick:

case operacao of
     '+': soma;
     '-': subtracao;
     'x': multiplicacao;
     '/': divisao;
else
     MessageDlg('Você precisa escolher uma operação',mtWarning,[mbok],0)
end;
Este código irá chamar a procedure correspondente dependendo do valor da variável operação. Caso a operação não tiver nenhum dos valores especificados, será exibida uma mensagem de alerta.
« Anterior Δ Página principal ¤ Índice Próxima »

* Você pode baixar (fazer download) do conteúdo completo deste curso, em formato PDF, com 179 páginas, comprando o seguinte e-book:

DELPHI BÁSICO

LIVROS INDICADOS DE DELPHI:

Gostou deste artigo?

Quer receber novidades e e-books gratuitos?

Cursos Online

  • Banco de Dados
  • Carreira
  • Criação/Web
  • Excel/Projetos
  • Formação
  • + Todas as categorias
  • Contato: Telefone: (51) 3717-3796 | E-mail: webmaster@juliobattisti.com.br | Whatsapp: (51) 99627-3434

    Júlio Battisti Livros e Cursos Ltda | CNPJ: 08.916.484/0001-25 | Rua Vereador Ivo Cláudio Weigel, 537 - Universitário, Santa Cruz do Sul/RS, CEP: 96816-208

    Todos os direitos reservados, Júlio Battisti 2001-2019 ®

    [LIVRO]: MACROS E PROGRAMAÇÃO VBA NO EXCEL 2010 - PASSO-A-PASSO

    APRENDA COM JULIO BATTISTI - 1124 PÁGINAS: CLIQUE AQUI