Despertador

[alebae 0]

Bom...

 

Gostaria de saber como fazer um despertador...

 

Ou seja, coloquei um Edit pro usuário colocar a hora que quer que desperte...

 

Coloquei duas variaveis horaatual e despertahora que vão se "encontrar"

num if, na qual, deverão ter uma posição de igualdade...

 

Mas não sei como jogar conteúdos nas variáveis...

 

Por exemplo a hora atual para a variavel horaatual, e a hora que o cliente digitou

na var despertahora....

[bastard2003 4]

a hora atual tu pode seta na hora que cria o form e a hora de despertar no clic de um botão... ou ate mesmo na propriedade onChange do edit!

[alebae 0]

Hum...

 

Fiz assim ó...

 

despertahora := Edit1.Text;
horaatual := TimeToStr(now);

If despertahora = horaatual then
Label2.Caption:='Hora de Acordar!!!';

Tudo isso no clicar de um Button...

 

Mas ele não funciona :(

[marcio.theis 3]

Adicionei na tela dois Label um TEditMask, com o EditMask = '00:00:00;1;_' e um BitBtn, ficando assim:

 

.PAS

 

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ExtCtrls, StdCtrls, Buttons, Mask;type  TForm1 = class(TForm)	BitBtn1: TBitBtn;	Timer1: TTimer;	Label2: TLabel;	Label1: TLabel;	MaskEdit1: TMaskEdit;	procedure BitBtn1Click(Sender: TObject);	procedure Timer1Timer(Sender: TObject);  private	{ Private declarations }	despertahora: String;  public	{ Public declarations }  end;var  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.BitBtn1Click(Sender: TObject);begindespertahora:=MaskEdit1.Text;end;procedure TForm1.Timer1Timer(Sender: TObject);beginIf despertahora = TimeToStr(now) then	Label2.Caption:='Hora de Acordar!!!'end;end.

.DPR

 

object Form1: TForm1  Left = 189  Top = 106  Width = 214  Height = 186  Caption = 'Form1'  Color = clBtnFace  Font.Charset = DEFAULT_CHARSET  Font.Color = clWindowText  Font.Height = -11  Font.Name = 'MS Sans Serif'  Font.Style = []  OldCreateOrder = False  PixelsPerInch = 96  TextHeight = 13  object Label2: TLabel	Left = 72	Top = 40	Width = 32	Height = 13	Caption = 'Label2'  end  object Label1: TLabel	Left = 48	Top = 76	Width = 26	Height = 13	Caption = 'Hora:'  end  object BitBtn1: TBitBtn	Left = 72	Top = 104	Width = 75	Height = 25	Caption = 'BitBtn1'	TabOrder = 0	OnClick = BitBtn1Click  end  object MaskEdit1: TMaskEdit	Left = 80	Top = 72	Width = 65	Height = 21	EditMask = '00:00:00;1;_'	MaxLength = 8	TabOrder = 1	Text = '  :  :  '  end  object Timer1: TTimer	OnTimer = Timer1Timer	Left = 16	Top = 24  endend

[alebae 0]

Valeu /]/]@t

 

Funcionou certinho...

Obrigado :D