[Delphi/Tuto]Crie uma calculadora com delphi![basicaa]

[DarkSj 0]

Boom aqii é o tópico para cria uma calculadora aee !

 

ela é bem boa pra qem é iniciante e é bem básica :D

 

 

Você vai precisaar de:

Delhpi7[mentiira?]

Form[Puta qe pariu!]

5 buttons[aba standard]

3 edits[aba standard tb]

4 labels[aba standard denovoo]

1 XP manifest[aba win 32] (opcionaal)

 

 

Arrume o visual della assim como na imagem acima!

 

Ali em cima mostra 5 operações

 

mas para ficar mais básiico vamos fazer só de mais(o barbaada)

 

declare as variaveis:NumUm, NumDois: integer; (obg por me corrigir matheusguerra e Surfistinha£)

 

No botãão do mais vai tar ecrito mais ou menoos assim:

 

procedure TForm1.Button1Click(Sender: TObject);

begin

 

end.

 

apaga tudo e bota:

procedure TForm1.Button1Click(Sender: TObject);

begin

NumUm:= Strtofloat(Edit1.Text);

NumDois:=StrToFloat(Edit2.Text);

Soma:= NumUm + NumDois;

Edit3.Text:= FloatToStr(soma);

end;

 

E no botãão limpar:

procedure TForm1.Button2(Sender: TObject);

begin

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

end;

 

end.

 

 

 

claroo mt básico néah?

 

Agora olha lá o codigo, a parte:

Soma:= NumUm + NumDois;

 

Mude para a operaçãão + - * /

 

menos outraas operações tipo porcento expoente, dae é outra história :D

 

se alguém quiser saber sobre a conta de porcentagem pede aee no tópico!

 

 

Créditos:

 

Eu mesmo...

 

DarkSj :D

¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨

 

Metas no WC:

[X]5 posts

[X]10 posts

[ ]50 posts

[ ]100 posts

[ ]250 posts

[ ]500 posts

[ ]750 posts

[ ]1000 posts

 

 

¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨

¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨

Te ajudei?Agradeçaa man!

[matheusguerra 3]

não tem que declarar nas variaveis:

Soma, NumUm, NumDois: integer;

??

[Surfistinha£ 20]

Topico ta com falta de codes ageita ai

 

 

falta a var '--

 

var

Soma, NumUm, NumDois: integer;

 

Como o matheusguerra disse

 

fora isso gostei ta legal

[DarkSj 0]

ok galera vou mudaar, obg por me corrigir :D

¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨

 

Metas no WC:

[X]5 posts

[X]10 posts

[ ]50 posts

[ ]100 posts

[ ]250 posts

[ ]500 posts

[ ]750 posts

[ ]1000 posts

 

 

¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨

[matheusguerra 3]

cara velhow........

Guerra é meu sobrenome, tipow caminhões guerra, é paz na estrada (arruma lá)

 

 

fora isso tudo bem, fico otimo o tuto

da uma explicada tbm, tipow + serve para somar, - para subitrair, * mutiplicar, / dividir:D ^^

[DarkSj 0]

ok matheus Guerra :D

 

voou arrumar

 

eu disse lá no lugar desse código:

procedure TForm1.Button1Click(Sender: TObject);

begin

NumUm:= Strtofloat(Edit1.Text);

NumDois:=StrToFloat(Edit2.Text);

Soma:= NumUm + NumDois;

Edit3.Text:= FloatToStr(soma);

end

 

coloca em:

Soma:= NumUm + NumDois;

 

bota qualqer outra operaçãão básica!Pode ser:

Soma:= NumUm - NumDois;

Soma:= NumUm * NumDois;

Soma:= NumUm / NumDois;

 

essas sãão as operações básicas!

 

 

VLW!

[-allucard!. 0]

vlw gostei muito irei colocar como ultilitarios no meu script XD

[Niik 3]

Legal MAnn!

[bidoow 0]

no meu não funcionouu a variavel integer. tive que bota extended

 

Soma, NumUm, NumDois: extended;

 

abraços

[DragonBoss 8]

bem legal, basico, mas interessante ^^

 

flw, abraços.