[Tutorial] Criando Um Calculadora Delphi

[josue1602 0]

Aew galera hj vo tah explicando como fazer uma calculadora xD

Adicione:

18 Buttons

1 Edit

 

Depois De Adicionar Organize Dessa Forma:

 

 

Depois De Organizar Bote Os Seguintes Valores Nos Botões:

 

 

E Os Seguinte Valor No Edit:

 

 

 

 

E Deixe A Propridade Enabled Do Edit Em False

 

 

 

Depois De Feito Isso Declare Em Cima Do Emplementation:

num1: real;

num2: real;

opcao: integer;

 

 

 

Certo Agora Vamos Para Os Codigos Dos Botões:

 

De Dois Clicks Do Botão Um e Adicione Essa Linha De Code:

visor.Text:=visor.Text+um.Caption;

 

Agora No Botão Dois Adicione Essa Linha De Code:

visor.Text:=visor.Text+dois.Caption;

 

No Botão Tres:

visor.Text:=visor.Text+tres.Caption;

 

No Botão Quatro:

visor.Text:=visor.Text+quatro.Caption;

 

No Botão Cinco:

visor.Text:=visor.Text+cinco.Caption;

 

No Botão Seis:

visor.Text:=visor.Text+seis.Caption;

 

No Botão Sete:

visor.Text:=visor.Text+sete.Caption;

 

No Botão Oito:

visor.Text:=visor.Text+oito.Caption;

 

No Botão Nove:

visor.Text:=visor.Text+nove.Caption;

 

No Botão Zero:

visor.Text:=visor.Text+zero.Caption;

 

No Botão Limpar:

visor.Text:='';

 

No Botão Mais:

num1:=StrToFloat(visor.Text);

visor.Text:='';

opcao:=1;

 

No Botão Menos:

num1:=StrToFloat(visor.Text);

visor.Text:='';

opcao:=2;

 

No Botão Vezes:

num1:=StrToFloat(visor.Text);

visor.Text:='';

opcao:=3;

 

No Botão Divisao:

num1:=StrToFloat(visor.Text);

visor.Text:='';

opcao:=4;

 

No Botão Mais Ou Menos:

visor.Text:='-'+visor.Text;

 

No Botão Virgula:

visor.Text:=visor.Text + ',';

 

No Botão Igual Apage O Begin Que Já Esta Escrito e Adione a Seguinte Linha De Code:

var

soma: real;

begin

num2:=StrToFloat(visor.Text);

case (opcao) of

1:

begin

soma:=num1+num2;

visor.text:=FloatToStr(soma);

end;

2:

begin

soma:=num1-num2;

visor.text:=FloatToStr(soma);

end;

3:

begin

soma:=num1*num2;

visor.text:=FloatToStr(soma);

end;

4:

begin

if(num2<>0)then

begin

soma:=num1/num2;

visor.text:=FloatToStr(soma);

end

else

begin

SHowMessage('Divisão por zero!!');

visor.Text:='ERRO';

end

end// fim do 4

end;//fim case

 

Deu Os Codigos Dos Botões Tah Adicionado Agora Vamos Por Os Code Tah Form1:

 

No Evento OnShow Da Form1 Adicione Essa Linha De Code:

num1:=0;

num2:=0;

 

 

 

 

 

Agora Mude a Propriedade KeyPreview Da Form Para True

 

 

 

Agora Adicione As Seguintes Linhas De Code No Evento OnKeyDown Da Form1:

 

if Key = VK_NUMPAD1 then

um.Click;

if Key = VK_NUMPAD2 then

dois.click;

if Key = VK_NUMPAD3 then

tres.click;

if Key = VK_NUMPAD4 then

quatro.click;

if Key = VK_NUMPAD5 then

cinco.click;

if Key = VK_NUMPAD6 then

seis.click;

if Key = VK_NUMPAD7 then

sete.click;

if Key = VK_NUMPAD8 then

oito.click;

if Key = VK_NUMPAD9 then

nove.click;

if Key = VK_NUMPAD0 then

zero.click;

if Key = VK_ADD then

mais.click;

if Key = VK_SUBTRACT then

menos.click;

if Key = VK_MULTIPLY then

vezes.click;

if Key = VK_DIVIDE then

divisao.click;

if Key = VK_RETURN then

igual.click;

if Key = VK_DECIMAL then

virgula.Click;

if Key = VK_DELETE then

limpar.click;

 

 

 

 

Deu Sua Calculadora Esta Pronta xD.

Download Do Source:

[DOWN]

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[/DOWN]

 

Scan:

[sENHA]

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[/sENHA]

 

 

Gostou? Agradeça.

[DragonBoss 8]

eu jaah ia falar "mais um topico sobre isso?".... mas entaao... o seu topico ta mto explikado, bem dividido os codigos dos textos... mas mesmo assim "mais um topico sobre isso?".. KPSOAkASPO

jah enjuei de ver topico sobre calculadora ake.. mas enfim, seu topico ta organizado, gosto de keem poe bastante ss no topico ( eu mesmo nem tenho paciencia pra tirar ss e por no topico.. soh coloko quando precisa mesmo )....

 

ahh, uma dica, tipo... pra escrever menos no codigo:

ao inves de visor.Text:=visor.Text+tres.Caption;

da pra por visor.Text:=visor.Text+'3';

por exemplo....

 

mas enfim....

 

eh isso ae, gosto da maneira ke vc faz seus tutos.. soh falta escrever sobre coisas novas =]

 

flw, abraçs...

[josue1602 0]

Então Eu So Novo Do Delphi Começei Nem Fas 1 Mês To Aprendendo Ainda xD

Vlw Pela Dica e Por Te Gostado

[' Fire~* 0]

Bem legal,ótimo tuto.

[josue1602 0]

Bem legal,ótimo tuto.

 

Brigadão Ai.

['Leozin 34]

Ótimo tuto, deu certin aqui, mas mas qual código eu coloco no Button Limpar?

[josue1602 0]

Ótimo tuto, deu certin aqui, mas mas qual código eu coloco no Button Limpar?

 

Ixi Esqueçi De Por O Do Botão Limpar.

 

Coloce Esse Code

visor.Text:='';

[PoseidoN 0]

qdo vou compilar aparece:

[Error] Unit1.pas(71): Undeclared identifier: 'um'

dois tres quatro e etc... ateh limpar... oq eh faço??

[DragonBoss 8]

qdo vou compilar aparece:

[Error] Unit1.pas(71): Undeclared identifier: 'um'

dois tres quatro e etc... ateh limpar... oq eh faço??

 

possivelmente vc eskeceu de mudar o nome dos buttons... siga o tutorial a risca, mudando todos os nomes e as captions ke pede... ke da tudo certo =]

 

flw, abraçs

[josue1602 0]

È Isso Ai Que Nem O DragonBoss Falou Vc Tem Que Seguir O Tutorial Na Risca Se Por A Propriedade Nome Errada Ou o Capition Vai Falhar Tudo.

[PoseidoN 0]

vlw dragonboss sempre me ajudando ^^

eu tinha eskecido de mudar o nome dos buttons :D

dispense cmg sou moh nub em delphi comecei semana passada :P