Despertador

por korpses Dom Jan 09, 2011 3:18 pm

Adicione:

1 RadioBroup
2 RadioButtos
1 Timer
3 Labels
1 Edit

Adicione as seguintes variaveis:

Código:
V_Ligado : Boolean; V_Tecla : Char;

Logo depois coloque os 2 RadioButtons No RadioBorup, e coloque o seguinte codigo no event OnClick do RadioBroup:

Código:
if RadioGroup1.ItemIndex = 1 then ToLigado := True else Toligado := False;

Depois adicione o Seguinte Codigo no event OnTimer do timer:

Código:
If (Edit1.Text <= TimeToStr(Time)) and (ToLigado) then begin Beep; Beep; end; Label1.Caption := TimeTostr(Time);

Depois adicione isso no Evente OnKeyPress do Edit:

Código:
ToTecla := (Key); if ((ToTecla < '0') or (ToTecla > '9')) and (ToTecla <> ':') then begin Beep; Key := chr(0); {a função chr(X:Byte), retorna o caractere correspondente ao número X na tabela ASCII}

Para finalizar adicione isso no event OnCreat do Form:

Código:
RadioGroup1.ItemIndex := 0; {Primeiro item selecionado} Label3.Caption := FormatDateTime('dddd,dd "de" mmmm "de" yyy', Date); {A função retorna a data do sistema}