Alerta De Compromisso

[Guest Ricardo Frank]

Gostaria de saber se é possivel e como poderia fazer um alerta de compromissos agendados. Algo do tipo, quando tiver um agendamento p tal dia cadastrado, abre uma tela c esse aviso de compromiso.

Grato.

Ricardo

[Graymalkin]

Gostaria de saber se é possivel e como poderia fazer um alerta de compromissos agendados. Algo do tipo, quando tiver um agendamento p tal dia cadastrado, abre uma tela c esse aviso de compromiso.

Grato.

Ricardo

Você pode fazer isso com um Timer, que ficará verificando se a hora atual é igual a algum dos horários de compromissos (estes podem estar em um banco de dados, por exemplo). Se não me engano, já existe um tópico sobre isso aqui no fórum. Experimente fazer uma busca e veja se você encontra.

Abraços,

Graymalkin

[Fgr]

Insira um controle Timer(Timer1) com intervalo de 900ms...

Insira 2 TextBox(Text1 e Text2) para q no primeiro seja digitado a hora do evento e no segunto o evento

Private Sub Timer1_Timer ()

dim tmp as string

tmp = format(time,"hh:mm:ss") ' Pega a hora atual

text1.text = format(text1.text,"hh:mm:ss") ' Formata o Text1 para o padrão(hh:mm:ss)

if tmp = text1.text then 'Verifica se a hora atual é igual a hora agendada

msgbox text1.text & " -- Evento Agendado" & chr$(13) & text2.text,vbOk,"Alarme..."

end if

End Sub

---------------------

Esse acho q é o método mais simples de verificação de tempo para uma agenda.

Acho também que esse método seria o coração da sua agenta, se você quiser algo maior como uma agenda com mais de 1 compromisso você pode fazer isso por meio de textBox indexados e criar uma rotina com For e Next para verificar as de todos os textbox na rotina timer... e Pra que o programa seja executado toda vez q liga o computador você pode adiciona-lo no registro do windows para q ele ligue automaticamente ao ligar a maquina....

--

Abraços..

--FgR--