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:
Citação:
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:
Citação:
visor.Text:=visor.Text+um.Caption;
Agora No Botão Dois Adicione Essa Linha De Code:
Citação:
visor.Text:=visor.Text+dois.Caption;
No Botão Tres:
Citação:
visor.Text:=visor.Text+tres.Caption;
No Botão Quatro:
Citação:
visor.Text:=visor.Text+quatro.Caption;
No Botão Cinco:
Citação:
visor.Text:=visor.Text+cinco.Caption;
No Botão Seis:
Citação:
visor.Text:=visor.Text+seis.Caption;
No Botão Sete:
Citação:
visor.Text:=visor.Text+sete.Caption;
No Botão Oito:
Citação:
visor.Text:=visor.Text+oito.Caption;
No Botão Nove:
Citação:
visor.Text:=visor.Text+nove.Caption;
No Botão Zero:
Citação:
visor.Text:=visor.Text+zero.Caption;
No Botão Limpar:
Citação:
visor.Text:='';
No Botão Mais:
Citação:
num1:=StrToFloat(visor.Text);
visor.Text:='';
opcao:=1;
No Botão Menos:
Citação:
num1:=StrToFloat(visor.Text);
visor.Text:='';
opcao:=2;
No Botão Vezes:
Citação:
num1:=StrToFloat(visor.Text);
visor.Text:='';
opcao:=3;
No Botão Divisao:
Citação:
num1:=StrToFloat(visor.Text);
visor.Text:='';
opcao:=4;
No Botão Mais Ou Menos:
Citação:
visor.Text:='-'+visor.Text;
No Botão Virgula:
Citação:
visor.Text:=visor.Text + ',';
No Botão Igual Apage O Begin Que Já Esta Escrito e Adione a Seguinte Linha De Code:
Citação:
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:
Citação:
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:
Citação:
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;
Para baixar o Source Clique aqui ... Aqui tambem daah
Scan do Source Clicando aqui
Espero ter ajudado!!
Fique de olho em nosso blog para mais tutoriais