O programa da calculadora é uma das tarefas típicas de programação. Esse aplicativo pode ser implementado em quase todas as linguagens de programação. Uma das linguagens de programação mais populares é Delphi, que pode ser usada para escrever um código de calculadora simples e eficiente.
Necessário
Ambiente de programação Delphi
Instruções
Passo 1
Inicie o ambiente de programação Delphi que você está usando. Planeje a interface de seu aplicativo. Haverá 26 botões no formulário, sendo 10 responsáveis pelos números e o restante pelas funções. Além disso, haverá um componente TPanel no qual o resultado da ação será exibido.
Passo 2
Adicione 4 variáveis ao código que armazenará os números inseridos pelo usuário e determinará o modo. Por exemplo:
var
a, b, c: real; // números que o usuário insere
d: inteiro; // ação da calculadora
etapa 3
As variáveis criadas podem ser adicionadas a protegidas e privadas. Agora manipule o evento OnClick para cada botão de número. Para todos os dígitos, o código será idêntico:
procedimento TForm1. Button1Click (Sender: TObject);
começar
Panel1. Caption: = Panel1. Caption + 'número'
fim;
Substitua “número” pelo nome do botão (se for o número 0, então Panel1. Caption + '0').
Passo 4
A variável d está no formato inteiro e conterá o valor numérico correspondente de qualquer ação. Se a multiplicação for realizada, então você pode definir a ação para o valor 1, se divisão - valor 2, se adição - valor 3, etc. Para a ação de multiplicação, o código será semelhante a:
procedimento TForm1. ButtonMultiplyClick (Sender: TObject); // multiplica a ação
começar
a: = StrToFloat (Panel1. Caption); // após pressionar o botão, o valor da variável a é salvo
d: = 1; // variável de ação é definida para o valor correspondente
Panel1. Caption: = '';
fim;
Etapa 5
Faça operações semelhantes para divisão (ButtonDivClick), adição (ButtonPlusClick), subtração (ButtonMinusClick) e exponenciação (ButtonPowerClick).
Etapa 6
Para processar o valor `` = '', você precisa fazer uma condição de caso e considerar cada ação por vez:
procedimento TForm1. ButtonClick (Sender: TObject);
começar
caso d de
1: começar // se d = 1, ou seja, o botão de multiplicação é pressionado, a ação correspondente ocorre
b: = StrToFloat (Panel1. Caption);
c: = a * b;
Panel1. Caption: = FloatToStr (c);
fim;
2: começar
a: = StrToFloat (Panel1. Caption);
c: = a / b;
Panel1. Caption: = FloatToStr (c);
Etapa 7
Trate adição, subtração e exponenciação da mesma maneira. A calculadora está pronta.
