04 - Criando Programas básicos

7/31/2019 04 - Criando Programas bsicos

1/25

PROGRAMAO II

Criando Programas BsicosProf Jodelson


2/25

Primeiro Programa

Para iniciar, vamos construir um programa que quando for dado um clique

no boto de comando, ser mostrada uma frase. E posteriormentepoderemos alterar a apresentao desta frase atravs de outraspropriedades.

Existem trs passos principais para a escrita de uma aplicao no Delphique iremos seguir:

Desenhar as janelas que se deseja usar.

Inserir no formulrio os controles que sero necessrios

Adaptar as propriedades dos objetos.

Alterar as propriedades dos controles s necessidades da aplicao

Escrever o cdigo para os eventos associados.Esta a parte mais complexa do desenvolvimento, ela que d a

funcionalidade ao programa, so as rotinas que comeam a ser executadas apartir de um evento.


3/25

Primeiro ProgramaDesenhar as janelas que se deseja usar

1 - Comeamos inserindo um Label (Legenda) e um Boto deComando no formulrio.

2 - Arraste o Boto para as coordenadas (40,80) e o Label para(8,16).

Adaptar as propriedades dos objetos

1 -Dimensione o formulrio da seguinte maneira:

Selecionar a propriedade Height, e atribuir a ela o valor de

150. Selecionar a propriedade Width e dar o valor de 180.

Altere tambm as propriedades Name para Form_Inicio eCaption e Incio


4/25

Primeiro ProgramaAdaptar as propriedades dos objetos

2 - Agora, altere as propriedades do TLabel e do TButton, de

modo que para TLabel os valores sero: Caption em branco ,Name LblMensagem, e AutoSize True, e que para TButton osvalores sero &Iniciar em Caption e BtnIniciar em Name


5/25

Primeiro Programa

Adaptar as propriedades dos objetosAps voc alterar todas as propriedades do formulrio e dos

objetos, nosso projeto estar assim:


6/25

Primeiro Programa

Escrever o cdigo para os eventos associadosO cdigo escrito na janela Code editor, para acess-la,

damos um duplo clique no objeto que se quer criar um cdigo.Cada objeto tem um evento que mais comumente utilizado, e

com este evento que o Delphi iniciar o Code Editor quandoacessado desta forma, isto no impede que criemos outroscdigos utilizando mais de um evento para o mesmocomponente.

Ento, daremos agora um duplo clique no Boto Iniciar paraabrirmos o Code Editor exatamente onde as linhas de comandodo boto sero inseridas.


7/25

Primeiro Programa

Escrever o cdigo para os eventos associados

Nesta janela observamos o nome da procedure, identificandoqual o objeto e o evento que dar incio execuo do cdigo, eonde est localizado este objeto. O parmetro Sender informaao Delphi qual componente recebeu o evento que chamou a

execuo deste procedimento.


8/25

Primeiro Programa

Escrever o cdigo para os eventos associados

Atribumos valores a uma propriedade de objeto seguindo opadro:

NomedoObjeto . Propriedade := valor da propriedade ;

No nosso caso, lembramos que a propriedade que queremosmudar a CAPTION do objeto LABEL que chamamos deLblMensagem.

Ento vamos escrever o seguinte comando:

LblMensagem.Caption := Voc deu um clique em Iniciar ;

Salve tudo e execute.


9/25

Calculadora Bsica

Vamos agora criar uma calculadora parecida com a figura.


10/25

Calculadora BsicaCrie um novo projeto. Salve tudo em uma pasta chamada

Calculadora sendo: o form como U_Calculadora.PAS e o projetocomo Calculador.DPR

Desenhando e adaptando as propriedades

1) Altere as propriedades do Form1 para: Width = 450, Height = 300,Name = Form_calculadora, Caption = Calculadora Bsica, Color =

clGray.

2) Para criarmos nossa calculadora, vamos precisar de um form comos seguintes objetos: 3 Edits, 3 Labels, e 6 Buttons, de acordo com afigura abaixo. Ento:

a) Na paleta component Standart localize o objeto Edit e insira 3objetos Edit.

b) Na mesma paleta localize o objeto Button e insira 6 botes noformulrio.

c) Ainda na mesma paleta localize o objeto Label e insira 3 Labels.


11/25

Calculadora BsicaDesenhando e adaptando as propriedades

3) Modifique as propriedades Caption das Labels 1, 2 e 3 para:Primeiro nmero, Segundo Nmero e Resultado, respectivamente.Todos os 3 objetos com a font: Verdana, negrito, tamanho 12, corbranco.

4) Nos 3 Objetos Edit modifique as propriedades Name de cadaum para: Edit_numero1, Edit_numero2 e Edit_Resultadorespectivamente. Deixe a propriedade Text em branco em todosos 3 objetos Edit

5) Para o Edit_resultado vamos alterar ainda a propriedadeReadOnly para TRUE.


12/25

Calculadora BsicaDesenhando e adaptando as propriedades

6) Quanto aos nossos botes vamos modificar suaspropriedades Caption para + , - , x, /, Limpar, e Sairrespectivamente. (pode ser que o sinal fique pequeno, de talmodo que a leitura seja prejudicada, ento voc pode alterar otamanho da fonte na propriedade Font).

7) Posicione e redimensione os objetos de modo a ficar similara figura mostrada.


13/25

Calculadora BsicaEscrevendo o cdigo

Quando os valores inseridos nos objetos Edit so interpretados

como TEXTO. Ou seja, se nossa linha de comando simplesmentesomar os dois valores, ela na verdade ir concatenar os textosinseridos.

Para evitarmos isso, usaremos o comando strtofloat.

8) Nossa primeira linha de cdigo se refere a somar os valoresinseridos nos campos Edit_Numero1 e Edit_Numero2. D um duploclique no boto de somar e insira as seguintes linhas entre BEGIN eEND.

beginResultado := strtofloat(edit_numero1.text)+

strtofloat(edit_Numero2.text);

edit_resultado.text := floattostr(resultado);

end;


14/25

Calculadora Bsica

Escrevendo o cdigo

9) Como acabamos de criar uma varivel chamada resultado,precisamos incluir essa varivel no incio do programa. Ento, v ata seo de declarao de variveis (var) e insira o seguinte:resultado : real; . Observe abaixo como deve ficar a seo var.

var

Form_Calculadora: TForm_Calculadora;

resultado: real;

Execute o programa e texte seu boto SOMA.


15/25

Calculadora Bsica

Escrevendo o cdigo

10) Muito bem, agora vamos fazer a mesma coisa para o botode subtrao, lembrando apenas que agora vamos diminuir e nomais somar. Ento, d um duplo clique no boto de subtrao einsira o cdigo abaixo entre BEGIN e END

resultado := strtofloat(edit_numero1.text) -strtofloat(edit_Numero2.text);

edit_resultado.text:=floattostr(resultado);Obs: Como nossa varivel resultado j foi declarada, no h mais

a necessidade de declar-la novamente.


16/25

Calculadora Bsica

Escrevendo o cdigo

11) Agora, para o boto de multiplicao vamos inserir oseguinte cdigo:

resultado:=strtofloat(edit_numero1.text) *strtofloat(edit_Numero2.text);

edit_resultado.text:=floattostr(resultado);

Lembrando que o smbolo para multiplicao de nmeros ( * )


17/25

Calculadora Bsica

Escrevendo o cdigo

12) E para o boto de diviso vamos inserir o cdigo:

resultado := strtofloat(edit_numero1.text) /

strtofloat(edit_Numero2.text);edit_resultado.text := floattostr(resultado);

Lembrando que o smbolo para diviso de dois nmeros ( / ).

Execute o programa e teste seus botes.


18/25


13) Para o boto Limpar usaremos as seguintes linhas de cdigoentre BEGIN e END

edit_numero1.Text := ;edit_numero2.Text := ;

edit_resultado.Text := ;

edit_numero1.SetFocus ;

As trs primeiras linhas desse cdigo dizem que os objetosEdit_numero1, Edit_numero2 e Edit_Resultado devem assumir apropriedade Text vazia. Por isso no colocamos nada entre os

apstrofes.


19/25


14) Finalmente, para o boto Sair usaremos o comando close;entre BEGIN e END, ficando assim:

beginClose;

end;

Salve tudo, e execute sua calculadora.


20/25

Navegador Bsico

d


21/25

Navegador BsicoDesenhando e adaptando as propriedades

Crie uma nova pasta chamada Navegador. Crie uma novaaplicao e salve tudo, sendo o form de U_navegador.PAS e oprojeto de Navegador.DPR

1) No form1 modifique as propriedades: Caption para MeuNavegador , Name para MeuNavegadore WindowState parawsMaximized

2) No form MeuNavegador insira um Objeto Panel, localizado emStandard. Em seguida modifique sua propriedade Align do Panel

para alTop (essa propriedade indica que o objeto deva ocupar todaa rea superior do aplicativo, e depois na propriedade Captiondeixe em branco, e a propriedade Color como clSkyBlue.

d


22/25


3) Agora insira sobre a Panel 5 botes e um Edit e posicione-osconforme a figura mostra.

4) No prximo passo: procure n\ paleta de componentesInternet o objeto WebBrowser e insira no form, abaixo do Panel.Modifique as seguinte propriedades do objeto WebBrowser:

ALIGN alClient(o objeto ir ocupar toda a rea disponvel doaplicativo;

NAME browser(ateno, esse ser o nome dado a rea denavegao, importante lembrar para o momento de escrevermosnosso cdigo).

d i


23/25


5) Para os botes modifique as respectivas propriedadesCAPTION para: Voltar, Avanar, Atualizar, Ir e Parar (use a imagemcomo referncia).

6) No objeto Edit modifique as seguintes propriedades: emNAME mude para endereco (novamente, esse ser o nome doobjeto, importante no nosso cdigo), e apague a propriedade TEXT.

N d B i


24/25

Navegador BsicoEscrevendo o Cdigo

Clique sobre o objeto EDIT que demos o nome de endereco, v

no Object Inspector na paleta EVENTS e procure o eventoOnKeyDown (esse evento est relacionado com o momentoquando alguma tecla for digitada). D um duplo clique no evento eimediatamente voc ver surgir a seguinte declarao

enderecoKeyDown (essa declarao est ligada ao objeto enderecoque criamos, e o momento que alguma tecla for digitada). A janelado CODE EDITOR j est pronta para receber a linha de cdigoreferente a esse momento. Ento digite o seguinte entre BEGIN eEND

if Key = VK_RETURN then

browser.Navigate(endereco.Text);

A primeira linha diz que: se a tecla for ENTER ento...

A segunda linha diz: O objeto Browser dever navegar no endereo fornecido pela

propriedade TEXT no objeto endereco.

N d B i


25/25

Navegador Bsico

Escrevendo o Cdigo

Agora para os objetos BUTTONS coloque os seguintes comandos(sempre entre BEGIN e END).

Boto AVANAR Browser.GoForward;

Boto VOLTAR Browser.GoBack;

Boto ATUALIZAR Browser.Refresh;

Boto IR Browser.navigate (endereco.text);

Boto PARAR Browser.stop;

Salve tudo e execute seu programa.

04 - Criando Programas básicos

Documents

Transcript of 04 - Criando Programas básicos