Exercicio pronto delphi

Disponível somente no TrabalhosFeitos
  • Páginas : 3 (560 palavras )
  • Download(s) : 0
  • Publicado : 19 de outubro de 2012
Ler documento completo
Amostra do texto
Exercício 2 - Relógio Despertador

 

 

Este projeto contém um outro componente não visível - o TTimer. Este componente gera o evento OnTimer a intervalos regulares determinados em suapropriedade Interval. Esta propriedade esta expressa em milisegundos, ou seja, para que o evento OnTimer ocorra a cada segundo: Interval:=1000. Se Interval:=0 o Timer estará desativado.

 

Devemos tercuidado na programação do Timer, porque mesmo ele sendo capaz de gerar um evento a cada milisegundo, o procedimento que trata o evento pode demorar mais do que o valor de Interval, ocorrendo perda dealgumas execuções do procedimento ligado a ele, ou se Inteval for muito pequeno pode ocorrer travamento do programa.

 

Construa o formulário como mostrado abaixo.

 

[pic]

 

 

Apropriedade Caption dos Label1 e Label2 deverá estar em branco. No Label1, será apresentada a hora do sistema, e em Label2 a data atual.

 

O componente RadioGroup permite construir um grupo debotões de opção, utilizamos estes botões quando precisarmos selecionar opções mutuamente excludentes. Só poderá haver um botão de opção selecionado por vez, em cada grupo ou no formulário caso o botãoesteja fora de algum grupo.

 

As opções de escolhas do RadioGroup estão na propriedade Items. Quando selecionamos esta propriedade, a janela String list editor é mostrada, nela editamos os botões deopção do grupo. Entre com as duas opções, como mostrado a seguir.

 

[pic]

 

 

 

[pic]

 

 

Feito o formulário, vamos digitar o código para os eventos associados.

 Declare primeiro as variáveis Ligado e Tecla. Ligado indicará qual o botão de opção está selecionado, e Tecla armazenará um caractere digitado no teclado.

 

 

implementation

var

Ligado:Boolean;

Tecla: Char;

{$R *.DFM}

 

Quando o Formulário for criado, o botão Desligado será selecionado através da linha "RadioGroup1.ItemIndex:= 0". A propriedade ItemIndex, indica qual o...
tracking img