Universidade do Vale do Paraba Colgio Tcnico Antnio
Universidade do Vale do Paraíba Colégio Técnico Antônio Teixeira Fernandes Disciplina Banco de dados - I Material I-Bimestre Introdução a linguagem de programação object pascal (Delphi), Estrutura da aplicação, Código Fonte, Tipos de dados, componentes básicos, operadores, Estruturas de controle, conversão de tipos. site: http: //www 1. univap. br/~wagner Prof. Responsáveis Wagner Santos C. de Jesus 1
O que é Delphi? O Delphi é um ambiente de desenvolvimento de aplicações, orientado a objeto, que permite o desenvolvimento de aplicações para os Sistemas operacionais Windows 3. 11, Windows 95 e tecnologia NT, etc. com pouca codificação. Que possui ferramentas de desenvolvimento, como templates e experts de aplicações e formulários, que aumentam muito a produtividade, facilitando a programação da aplicação. 2
Detalhes Técnicos(Delphi) • É uma ferramenta de programação, dialeto da linguagem Pascal. • Orientada a Objetos(OOP). • Ferramenta de RAD(Rapid Aplication Development). • Programação por Eventos. • Acesso a bancos de dados. 3
Formação de uma Aplicação em Delphi Projeto • • UNIT - Unidade Form - Formulário Project – Projeto procedures, functions - Procedimentos e funções 4
Exemplo do Arquivo(Project) program Project 1; uses Forms, Unit 1 in 'UNIT 1. PAS' {Form 1}; {$R *. RES} begin Application. Create. Form(TForm 1, Form 1); Application. Run; end. 5
Exemplo do Arquivo Formulário (*. pas) unit Unit 1; interface uses Sys. Utils, Win. Types, Win. Procs, Messages, Classes, Graphics, Controls, Forms, Dialogs; type TForm 1 = class(TForm) private { Private declarations } public { Public declarations } end; var Form 1: TForm 1; implementation {$R *. DFM} {Uses Adicional} {Initialization} end. 6
Form (Formulário) Programação 7
Tipos de dados Os tipos de dados definem como deverá ser a informação gravada na memória de um computador. No que diz respeito ao tamanho, tipo e espaço reservado para um determinado dado. 8
Tipos de dados São: • • • Números Inteiros Números de ponto Flutuante Letras e Números e símbolos – String Booleano (Verdadeiro ou Falso) e Variante Data e Hora 9
Tipos de dados(Inteiros) • • Integer - -2. 147. 438. 648 até 2. 147. 438. 647 Byte - 0 até 255 Int 64 Long. Int - -2147. 483648 até 2. 147. 483. 647 Long. Word - 0 até 4. 249. 967. 295 Short. Int - -128 até 127 Small. Int - -32. 768 até 32. 767 Word - 0 até 65535416 10
Tipos de Dados(Real) Ponto Flutuante 11
Tipos de Dados(String) • String - 255 Caracteres • Ansi. String - Aproximadamente • Wide. String - Aproximadamente 12
Tipos de Dados(Boolean) e Variante • Boolean - False ou True • Tipo Variante (Variant) • Cria um tipo de dados dinâmico para uma variável 13
Data e Hora • O tipo data e hora vem a ser um tipo especial para controles cálculos e ajuste preciso no que diz respeito a data e hora. TDate. Time : Cria a uma variável especial para data e hora. 14
Componentes • São conjunto de objetos para criação de uma aplicação. • Exemplo : Botões, Caixa de Texto etc. 15
Barra de Componentes Principais Componentes 16
Propriedades • Todo o componente é composto por propriedade e métodos. • Caixa de Propriedades exemplos: 17
Operadores Relacionais > - Maior que < - Menor que = - Igual a <> - Diferente de >= - Maior ou igual <= - Menor ou Igual 18
Operadores Aritméticos + - Soma - - Subtração * - Multiplicação / - Divisão div - Divisão de Inteiros mod - Resto da Divisão 19
Operadores Lógicos(Booleanos) And - e Or - ou Not – Não 20
Estruturas de Controle • Atribuição • Repetição • Condição 21
Atribuição <Variável> : = <Valor/Conteúdo>; Exemplo : Var x : real; x : = 1. 5; palavra : = ‘Abacaxi’; 22
Sintaxe Condição (If/then/else) if <condição> then <Instrução-1> else <Instrução-2>; Ou if <condição> then Begin <Bloco-Instruções>; end; 23
Exemplo bloco com else if <condição> then Begin <Bloco-Instrução-1>; Aqui não tem (; ) end else Begin <Bloco-Instrução-2>; End; 24
Exemplo : if() a : = 10; if(a = 10) then Show. Message(“Ok”) else Show. Message(“Valor diferente de 10”); 25
Sintaxe Repetição (For) For <Variavel> : = <Inicial> to <Final> do <Instrução>; ou For <Variavel> : = <Inicial> to <Final> do Begin <Instrução>; End; 26
Ou downto quando o (For) é decrescente • Exemplo : For <Variavel> : = <Final> downto <Inicial> do Begin <Instrução>; End; 27
Exemplo: For i : = 1 to 10 do Show. Message(Int. To. Str(i)); O programa acima irá imprimir valores de um a 10. 28
Estrutura de Repetição com While/do Exemplo : While <condição> do <Instrução>; ou While <condição> do Begin <Bloco-Instrução>; end; 29
Exemplo: While. a: = 1; While a <= 5 do begin a : = a + 1; end; Show. Message(a); 30
Estrutura de Repetição com Repeat/Until Exemplo : Repeat <Bloco de Instruções>; Until <condição> Atenção : A instrução Repeat não possui o uso dos comandos begin End em seu interior. 31
Exemplo : Repeat procedure TForm 1. Button 2 Click(Sender: TObject); var a, t : integer; begin a : = 1; Repeat t : = a * 3; a : = a + 1; Show. Message(Int. To. Str(t)); Until a > 10 end; 32
Declaração de Variáveis var - Comando que declara uma variável. Sintaxe : [var <Nome-Variável>] : [<tipo>]; Exemplo : var x : integer; 33
Procedimento de Saída de Dados Para enviar dados para uma caixa de mensagens usamos a “procedure” Show. Message(). Exemplo : Show. Message(‘Testando Programa’); Obs : A saída será uma caixa de mensagens com a String (Testando Programa!!!). 34
Exemplo da Saída do Show. Message() 35
Usando Componentes Padrão(Standard) • Os Componentes mais comuns em uma aplicação são : • • Caixa de Texto. Botão de Comandos. Formulário. Rótulo 36
Componente Caixa de Texto(Edit) Entrada de dados do tipo String pelo teclado. 37
Componente Botão de Comandos(Button) Botão de comandos 38
Componente Form com (Edit, Button) 39
Componente Label(Rótulo) • Um meio de enviar informações para tela. Obs : Para mudar o rótulo de um label usa-se a propriedade caption. 40
Exemplo : Label 1. Caption = “Testando programa Delphi”; 41
Conversão de tipos de dados Tipo String para um Inteiro. Função Str. To. Int() Tipo Inteiro para uma String. Função In. To. Str() Tipo String para um Real. Função Str. To. Float() Tipo Real para String. Função Float. To. Str() 42
Exemplo Conversão inteiro para String. procedure TForm 1. Button 1 Click(Sender: TObject); var a : integer; b : String; begin a : = 5; b : = Int. To. Str(a); Show. Message(b); end; 43
Input. Box() - Criando uma caixa de entrada Sintaxe do Input. Box() : <var. String> : = Input. Box(<Str 1>, <Str 2>, <Str 3>); <Str 1> - Primeiro argumento string que é o título do cabeçalho da Janela. <Str 2> - Segundo argumento string que contém o título da caixa de texto. <str 3> - Terceiro argumento string que é a seqüência de caracteres padrão de entrada da caixa. Obs : Retorna com a String digitada pelo usuário, caso não seja digitado nada será retornado nulo (vazio). 44
Exemplo : Input. Box() S : = Input. Box(‘Entrada’, ’Digite uma Palavra’, ’’); 45
Programa Exemplo : procedure TForm 1. Button 1 Click(Sender: TObject); var i, s, m, p: Integer; nome, nomem : String; begin m : = 0; for i : = 1 to 5 do begin s : = Strto. Int(Input. Box('Entrada', 'Ano Nascimeto: ', '')); nome : = Input. Box('Entrada', 'Nome: ', ''); p : = 2005 - s; if p > m then begin m : = p; nomem : = nome; end; Show. Message('O mais velho é o '+nomem+ 'Com '+Inttostr(m)+' anos de idade. '); end; 46
- Slides: 46