[Resolvido]Como criar um despertador

Bom dia Srs...

preciso da ajuda de vocês para resolver uma pequena questão....

Seguinte, estou criando um formulario onde o mesmo funcionara como um despertador, o intuito é fazer um "lembrete" sonoro e visual para o pessoal da linha de produção...

minha ideia é, registrar os 10 horarios de advertencia que eles teem durante o expediente e quando o relogio chegar no horario definido, disparar um alarme sonoro....

Ja consegui fazer com que os 10 horarios despertem nas horas configuradas, porem, cada vez que eu executo o aplicativo, eu tenho que configurar essas horas novamente, teria como fazer um esquema para que ela salve esses horarios em um arquivo txt ou numa tabela?


Obrigado;
David

porque nao guardar os dados numa tabela?

Ola Bitabit, então é o que eu estou tentando fazer, mas o problema é que nao estou conseguindo fazer com que o codigo va ate a tabela e traga o valor salvo para que o despertador funcione...

abaixo segue meu código do jeito que esta rodando hj... se posivel me ensinar o que tenho que fazer para resolver a questao dele buscar a hora na tabela ficaria grato...

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

no botao ref. ao primeiro horario

Private Sub Btn_hora1_Click()
AlarmTime1 = InputBox("Digite a hora para alarmar (hh:mm:ss)", "Access Alarme", Time)
If AlarmTime1 = "" Then Exit Sub
If Not IsDate(AlarmTime1) Then
MsgBox "A hora digitada não é válida."
Else ' String returned from InputBox is a valid time,
AlarmTime1 = CDate(AlarmTime1) ' so store it as a date/time value in AlarmTime.
Btn_hora1.Caption = "Alarmar as: " & AlarmTime1
End If
End Sub

----------------------------------------------------------------------------------------
no timer do formulario

'Declaração das variaveis
Dim V1, V2, V3, V4, V5, V6, V7, V8, V9, V10 As Integer

Static AlarmSounded1, AlarmSounded2, AlarmSounded3, AlarmSounded4, AlarmSounded5, AlarmSounded6, AlarmSounded7, AlarmSounded8, AlarmSounded9, AlarmSounded10 As Integer

If Lbl_Hora.Caption <> CStr(Time) Then

If Time >= AlarmTime1 And Not AlarmSounded1 Then
'Reproduz o arquivo WAV
V1 = sndPlaySound(Left$(CurrentDb.Name, Len(CurrentDb.Name) - Len(Dir(CurrentDb.Name))) & "alarme.wav", 1)
'MsgBox "ALMOCO !!!"
AlarmSounded1 = True
Else
If Time < AlarmTime1 Then
Lbl_Hora.Caption = Time
AlarmSounded1 = False
else.....

'aqui basicamente é a mesma rotina so que mudando as variaveis

endif

Aguardo Retorno;
David

Crie uma tabela: tblHorarios
com os campos: Código e horário


AlarmTime1 = DLookup("txtHorario", "TblHorarios", "Código=" 1)

Onde um é o registro de horário referente o botão 1


Se para outro botão e horário:

AlarmTime2 = DLookup("txtHorario", "TblHorarios", "Código=" 2)

é por ai....

Ola Harysohn

então, eu tenho criado uma tabela com os campos "horario1" a horario10"; não sei se esta certo...

duvida: tenho que criar os campos "codigo1" a "codigo10" ou so um campo codigo? nao entendi...

Aguardo Retorno;
David

Não Amigão..Basta ter apenas dois Campos

Código | Horário

Sua tabela ficaria Assim

1 - 12:00 (Horário utilizado para almoço)
2 - 3:00 (Horario utilizado para o outro evento)

e assim para quantos eventos desejar

No horário do alarme do almoço utilizaria o registro 1... que é o registro para o horário almoço

e assim sucessivamente para com os outros horários...

Ok, resolvido a questão da tabela fiz os testes e o codigo esta me gerando o seguinte erro:
Erro de compilacao ou sintaxe na linha:
AlarmTime1 = DLookup "txthorario", "TBL_Horarios", "codigo="1)

para eu entender, o que seria o txthorario?

no meu form eu uso 10 botoes nomeados "btn_hora1" ate "btn_hora10"
uso tambem um label nomeado: lbl_hora

se eu tirar o n° 1 do final da expressao {AlarmTime1 = DLookup "txthorario", "TBL_Horarios", "codigo=")}
ele me retorna o seguinte erro:
erro em tempo de execução 3075
erro de sintaxe(operador faltando)na expressao de consulta'codigo='

txtHorário é o seu campo na tabela onde ficam os Horários...

Caso não consiga resolver poste o BD aqui..

Saudações

Veja que escreveu errado.. falta um parênteses

AlarmTime1 = DLookup("txtHorario", "TblHorarios", "Código=" 1)

Verifiquei o codigo aqui, o mesmo esta diitado correto, jo no post anterior que eu esqueci de colocar o "(" na expressao...

bom, devido a minha falta de conhecimento em VBA, pois sou novo na linguagem e tenho muito que aprender é que estou encontrando esta dificuldades...

estou postando o BD para que se possivel verificar onde esta meu erro..

PS: como que eu sei se anexou mesmo o arquivo? pois pra mim não apareceu nada simplesmente voltou para a tela de resposta..

agradeço a ajuda e paciencia;
David

Envie-me no e-mail que posto aqui..

Saudações

ok, ja mandei para seu e-mail...

vlw;

O Bd do colega para quem quiser ajudar

http://dl.dropbox.com/u/26441349/DavidCtba.zip

Eis ai... Está feito apenas para o primeiro botão..

Na tabela.. O Campo ID é Autonumerico
E o Hora Date/Time

ao adicionar novo horário será criado o proximo Código: 2

No outro botão basta apenas substituir o 1 pelo 2


Saudações

http://dl.dropbox.com/u/26441349/DavidCtba_15_08_11.rar

Voce pode tambem criar um form apenas para definir os horários na tabela caso seja necessário alterá-los...
e o form horários ja pode abrir configurado com os horário sem precisar toda vez que abrir, configurar a clicar em confirmar

Saudações

Então, a ideia inicial era justamente essa, quando executar o form horarios, ele buscaria na tabela os horarios salvos e usaria-os como padrao, mas ate o momento nao consegui...

ai com os botoes eu consegui fazer funcionar, da maneia trabalhosa, mas pretendo faze-lo buscar na tabela...

aproveitando a deixa: nao tem como eu usar os botoes para buscar na tabela e clicando no botao e ao alterar a hora ele atualizar na tabela?

Voce ja coloca o teu form horario para abrir automaticamente com os horários da tabela...

e cria um form apenas para alterá-los

Basta no evento ao carregar do seu form aplicar:

Private Sub Form_Load()
Call Btn_hora1_Click
Call Btn_hora2_Click
Call Btn_hora3_Click
Call Btn_hora4_Click
Call Btn_hora5_Click
Call Btn_hora6_Click
Call Btn_hora7_Click
Call Btn_hora8_Click
Call Btn_hora9_Click
Call Btn_hora10_Click
Call Btn_Confirmar_Click

End Sub

http://dl.dropbox.com/u/26441349/DavidCtba_15_08_11_1.rar

Fala Harysohn blz...

Então cara onde me empolguei fazendo aquel formulario de ajuste de horas e quando vi ja tinha dado o horario de expediente... mas enfim, o importante é que funcionou...

Ele ficou assim: tenho o form_ajuste_horas onde nele eu altero as horas que deve ser dispertadas.... form_horario que é o despertador propriamente dito...

No form_horario, tenho o botao de ajuste que me abre o form_ajuste_horas e o botao confirmar que atualiza os botoes horario1 a horario10....

PS: so agora que eu percebi que vc mandou um e-mail com um DB exemplo com umas alteracoes parecidas com as que eu fiz...


Agradeço a força, e ja podemos encerrar este topico

AH!, caso ache interessante, posso encaminhar esse projetinho para deixarmos de exemplo no forum...

abraço;
David

Claro.. depis de pronto.. compile-o para ver se não há erros.. e poste no repositório...

Esqueceu apenas do resolvido amigão..

Saudações

Ultima questãozinha, como faco para prostar no repositorio? ontem tentei e nao deu certo, acho que estou dfazendo algo errado...

Basta apenas criar um tópico la.. igual fez este aqui...

Observer se seu aplicativo não tem nenhum erro de compilação antes de postar no repositório!

Para adicionar o lik, podes abrir uma contra no dropBox, zip teu exemplo e cole na pasta publica que o Drop disponibilizará no seu PC, depois clique em cima do arquivo e com o botão direito vá em Copy public Link, depois cole-o no tópico no repositório

Saudações

OK farei isso

vlw a força!