Sejam bem vindos ao nosso forum, onde havera hacks, utilitários tutoriais e dicas para diversos jogos, fique conosco e desfrute do melhor.

Despertador

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Despertador

Mensagem por korpses em 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}

korpses
Membro
Membro

Mensagens : 37
Agradecimentos : 18
Data de inscrição : 08/01/2011
Idade : 26
Localização : aloka
Humor : Furioso
0 / 1000 / 100



Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum