7-Exemplo - Calculadora

**JEAN** Ter Jun 03, 2014 5:43 pm

Exemplo – Calculadora

1)Crie uma pasta chamada “Calculadora”.

2)Inicie um novo projeto no Delphi.

3)Clique em cima do novo formulário e altere as seguintes propriedades:

PROPRIEDADES	VALOR
Caption	Calculadora
Name	FmCalculadora
Height	200
Width	150
BorderStyle	bsDialog

4)Agora insira 3 Edits. Altere as seguintes propriedades:

Edit1	Left	11
	Top	8

Edit2	Left	11
	Top	40

Edit3	Left	11
	Top	104

5)Insira 5 Buttons e altere as seguintes propriedades:

Button1	Left	11
	Top	72
	Width	25
	Font	Arial - 14 - Negrito
	Name	btnSoma
	Caption	+

Button2	Left	43
	Top	72
	Width	25
	Font	Arial - 14 - Negrito
	Name	btnSubtracao
	Caption	-

Button3	Left	75
	Top	72
	Width	25
	Font	Arial - 14 - Negrito
	Name	btnMultiplica
	Caption	x

Button4	Left	104
	Top	72
	Width	25
	Font	Arial - 14 - Negrito
	Name	btnDivide
	Caption	/

Button5	Left	11
	Top	136
	Width	121
	Font	Arial - 14 - Negrito
	Name	btnLimpa
	Caption	Limpar

Height 33

6)Selecione os 3 Edits e apague o conteúdo da propriedade Text.

7)Clique em File/Save All. Salve a Unit como UnCalc.pas e o projeto como Calculadora.dpr na pasta criada anteriormente.

8)Para que essa simples calculadora funcione precisamos utilizar algum código relacionado com o evento OnClick nos botões que inserimos.

9)Dê um duplo clique no btnSoma para ativar o evento OnClick do mesmo. Insira o seguinte código:

7-Exemplo - Calculadora Fig2

10)Dê um duplo clique no btnSubtracao para ativar o evento OnClick do mesmo. Insira o seguinte código:

7-Exemplo - Calculadora Fig3

11)Dê um duplo clique no btnMultiplica para ativar o evento OnClick do mesmo. Insira o seguinte código:

7-Exemplo - Calculadora Fig4

12)Dê um duplo clique no btnDivide para ativar o evento OnClick do mesmo. Insira o seguinte código:

7-Exemplo - Calculadora Fig5

13) Dê um duplo clique no btnLimpa para ativar o evento OnClick do mesmo. Insira o código:

7-Exemplo - Calculadora Fig6

14)Salve o projeto e teste pertando no F9.

OBS: "É evidente que esse programa é bem simples e contém diversos “furos”. Por exemplo, insira uma letra no Edit1 e um número no Edit2, após isso clique no botão de soma. Aparecerá um erro, afinal você não pode transformar uma letra em um número. Tente também inserir 10 no Edit1 e 0 no Edit2. Clique no botão de divisão. Outro erro, pois não se pode dividir por zero. Você teria que prever todas essas possibilidades e criar um código compatível para a solução de cada problema."

15)Vamos escolher um ícone que o representará na tela do Windows. No menu principal do delphi, selecione Project/Options..., e escolha a guia Application.

16)Clique no botão Load Icon e procure por algum ícone (pode-se baixar ícones da internet e salvar na pasta do projeto), excolha Abrir para voltar a janela Project Options.

17)Dê um título ao programa (Title) e pronto, o programa possui um ícone e um título associados.

18)Compile o projeto utilizando a opção Project/Compile (Ctrl+F9). Isso irá fazer o Delphi gerar um novo arquivo executável contendo as últimas alterações realizadas sem executar o projeto.

Agora, voce tem um programa executável em qualquer computador que possua o sistema windows, sem necessariamente ter o Delphi ou de suas bibliotecas instalados.