Quick Tips : Como Criar um Despertador em Delphi

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (4)  (1)

Veja nesta Quick como criar um Despertador em Delphi


Bom pessoal neste artigo irei demonstrar à vocês como desenvolver um despertador no Delphi utilizando o componente Timer para comparar as datas. É uma aplicação bem simples, mas que pode ser bastante Útil.

Para isso devemos criar uma nova aplicação no Delphi. File-> New -> VCL Project.

Com a nova aplicação criada inclua os seguintes componentes:
2 buttons;
1 MaskEdit;
1 Timer;
3 Label;
1 StatusBar;

Depois devemos modificar o nome dos componentes para os seguintes nomes:
Button1 -> btnAtivar;
Button2 -> btnDesativar;
MaskEdit1 -> MaskHora;

Na propriedade EditMask do nosso MaskHora devemos incluir a seguinte formatação: !90:00;1;_

No label1 modifique a propriedade Caption para (DESPERTAR) e o label2 modifique a propriedade Caption para (STATUS).
E devemos inclui 2 panels no nosso Statusbar. Para adicionar os panels no statusbar devemos clicar com o botão direito sobre o nosso statusbar e ir até a opção panels editor e incluir os dois panels, ajustando a propriedade Widht para que seja possível a visualização dos valores que irão receber. Nossa aplicação fique igual a imagem abaixo:




Devemos incluir 2 variaveis globais na nossa aplicação:


var

Ativar : Boolean;

Tecla : Char;

No evento Oncreate do form devemos incluir o seguinte código:


Ativar := False;

StatusBar1.Panels[0].Text := FormatDateTime('dddd,dd "de" mmmm "de" yyy', Date);
Label3.Caption := 'Alarme Desativado';

No evento onkeypress do nosso MaskHora devemos incluir o seguinte código:

Tecla := (Key);

if ((Tecla < '0') or (Tecla > '9')) and (Tecla <> ':') then

begin

Beep;

Key := chr(0);

end;

No evento OnTime do nosso timer1 devemos incluir o seguinte código:


StatusBar1.Panels[1].Text := TimeTostr(Time);

If (MaskHora.Text <= TimeToStr(Time)) and (Ativar)then

messageBeep(10);

 

No evento onclick do nosso btnAtivar devemos incluir o seguinte código:

Ativar := True;
Label3.Caption := 'Alarme Ativado';

 

No evento onclick do nosso btnDesativar devemos incluir o seguinte código:

Ativar := False;

MaskHora.Text := '';

MessageDlg('Seu alarme foi desativado!', mtConfirmation, [mbOK], 0);

 

 

Isso irá fazer com que nossa aplicação receba no nosso statusbar o dia, a data e hora. Quando clicarmos no botão ativar nosso despertador irá estar ativado e assim que o horário informado for igual ao horário do sistema do teu PC irá soar um Beep repetidamente!

E ao clicar no botão desativar nossa aplicação terá o alarme desativado e o sistema irá lançar uma mensagem informando que o nosso alarme encontra-se desativado.

 

É isso aí pessoal espero que tenham gostado desse artigo para a criação de um despetador... Até o nosso artigo!


Thiago

Contato: Thiagodarley@hotmail.com

 


 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?