AGENDA DE COMPROMISSOS COM ALERTAS (VISUAL BASIC)

Question

Boa noite pessoal.

Mais uma vez retorno com outra dúvida.

Estou iniciando uma pequena aplicação para minha namorada que trabalha em um escritório e necessita de um pequeno programa que ela possa agendar os horários com datas e compromissos, e que seja lembrada deles depois. (Ex: agendar as tarefas da semana, mês etc) e abandonar a famosa agenda de mesa.

Até o momento eu já montei a pequena aplicação:

Public Class Alarme
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Label1.Text = TimeString

    End Sub
    Private Sub Alarme_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Timer1.Enabled = True
        Timer2.Enabled = True
        Timer3.Enabled = True
        Timer4.Enabled = True
        Timer5.Enabled = True
        Timer6.Enabled = True
        Timer7.Enabled = True
        Timer8.Enabled = True
        Timer9.Enabled = True

    End Sub
    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick

        'alarme 1
        If Label1.Text = MaskedTextBox1.Text Then
            Timer2.Enabled = False
            MsgBox("LEMBRETE AGENDADO: " + vbCrLf + vbCrLf + "Seu compromisso é:  " + TextBox1.Text + vbCrLf + "Agendado para as:  " + (MaskedTextBox1.Text))
        End If
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Timer2.Enabled = True
        Me.Hide()
        MsgBox("Os lembretes foram aceitos com sucesso. Ao sair do Ghost toda informação será perdida, permaneça conectado para receber os lembretes.")
    End Sub

    Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
        'alarme 2
        If Label1.Text = MaskedTextBox2.Text Then
            Timer3.Enabled = False
            MsgBox("LEMBRETE AGENDADO: " + vbCrLf + vbCrLf + "Seu compromisso é:  " + TextBox2.Text + vbCrLf + "Agendado para as:  " + (MaskedTextBox2.Text))
        End If
    End Sub

    Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles Timer4.Tick
        'alarme 3
        If Label1.Text = MaskedTextBox3.Text Then
            Timer4.Enabled = False
            MsgBox("LEMBRETE AGENDADO: " + vbCrLf + vbCrLf + "Seu compromisso é:  " + TextBox3.Text + vbCrLf + "Agendado para as:  " + (MaskedTextBox3.Text))
        End If
    End Sub

    Private Sub Timer5_Tick(sender As Object, e As EventArgs) Handles Timer5.Tick
        'alarme 4
        If Label1.Text = MaskedTextBox4.Text Then
            Timer5.Enabled = False
            MsgBox("LEMBRETE AGENDADO: " + vbCrLf + vbCrLf + "Seu compromisso é:  " + TextBox4.Text + vbCrLf + "Agendado para as:  " + (MaskedTextBox4.Text))
        End If
    End Sub

    Private Sub Timer6_Tick(sender As Object, e As EventArgs) Handles Timer6.Tick
        'alarme 5
        If Label1.Text = MaskedTextBox5.Text Then
            Timer6.Enabled = False
            MsgBox("LEMBRETE AGENDADO: " + vbCrLf + vbCrLf + "Seu compromisso é:  " + TextBox5.Text + vbCrLf + "Agendado para as:  " + (MaskedTextBox5.Text))
        End If
    End Sub

    Private Sub Timer7_Tick(sender As Object, e As EventArgs) Handles Timer7.Tick
        'alarme 6
        If Label1.Text = MaskedTextBox6.Text Then
            Timer7.Enabled = False
            MsgBox("LEMBRETE AGENDADO: " + vbCrLf + vbCrLf + "Seu compromisso é:  " + TextBox6.Text + vbCrLf + "Agendado para as:  " + (MaskedTextBox6.Text))
        End If
    End Sub

    Private Sub Timer8_Tick(sender As Object, e As EventArgs) Handles Timer8.Tick
        'alarme 7
        If Label1.Text = MaskedTextBox7.Text Then
            Timer8.Enabled = False
            MsgBox("LEMBRETE AGENDADO: " + vbCrLf + vbCrLf + "Seu compromisso é:  " + TextBox7.Text + vbCrLf + "Agendado para as:  " + (MaskedTextBox7.Text))
        End If
    End Sub

    Private Sub Timer9_Tick(sender As Object, e As EventArgs) Handles Timer9.Tick
        'alarme 8
        If Label1.Text = MaskedTextBox8.Text Then
            Timer9.Enabled = False
            MsgBox("LEMBRETE AGENDADO: " + vbCrLf + vbCrLf + "Seu compromisso é:  " + TextBox8.Text + vbCrLf + "Agendado para as:  " + (MaskedTextBox8.Text))
        End If
    End Sub

    Private Sub Timer10_Tick(sender As Object, e As EventArgs) Handles Timer10.Tick
        'alarme 9
        If MaskedTextBox10.Text = Label1.Text Then
            Timer10.Enabled = False
            MsgBox("LEMBRETE AGENDADO: " + vbCrLf + vbCrLf + "Seu compromisso é:  " + TextBox9.Text + vbCrLf + "Agendado para as:  " + (MaskedTextBox10.Text))
        End If
    End Sub
End Class

********************************************************************************************

Beleza, funciona belezinha, mas não consigo fazer a ligação com o banco de dados para validar os campos, eu gostaria que esta aplicação armazenasse as tarefas e que depois as exibissem na tela como alerta. Do jeito que esta esta funcional porém só tem utilidade se a aplicação ficar aberta o dia todo ate o final da validação, pois não existe um banco de dados puxando estas informações entenderam? 

Para tentar ser mais esclarecedor,

Quero que as informações inseridas sejam salvas, e após serem emitidas em suas respectivas datas ao usuário fossem deletadas da base dados. independente da aplicação estar aberta ou não, seria como abrir ele nesse momento e programar um alarme para amanha as 13:00, e que o usuário abrisse amanha a aplicação ela fosse exibida junto das demais tarefas do dia ou não. E apos visualizada a tarefa que excluída da base de dados o alerta já exibido. 

Espero ter sido transparente e que o meu código possa ter alguma serventia para quem esta iniciando assim como eu. 

Answer 1

Bom dia Dan,

Suponho que você vá utilizar um .MDB, banco de dados local, por se tratar de algo pequeno e simples, logo, segue um CRUD (Criação, leitura, update e deleção) para você ser capaz de armazenar e manipular esses dados em Vb net.

CRUD Básico em VB.NET

---

Att., Roberto Alves

Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

Answer 2

Obrigado pela atenção, estarei adaptando o projeto , mais dentro do código criado, como farei para o sistema verificar automaticamente no formload() os campos e exibirem as informações sem ser necessária a consulta, digo: Ao carregar o formulario que ele verifique os alarmes e os exibam na tela sem a necessidade de uma consulta.

O que estou tentando fazer é automatizar os dados inseridos na base de dados (Horario de alarme e Descrição) após insertados no bando de dados quero que eles sejam exibidos na tela sem a necesidade de pouxar um data grid como formulário de consulta,  gostaria que o sistema verificasse estes dados diretamente do BD (e isso ja posso resolver com sua ajuda e no exemplo citado) mas qual codigo seria usado para puxar esses dados para o formulário quando reaberto, ou talvez deixar ele no modo HIDE(), e quando chegar o evento agendado fosse verdadeiro, que seja exibida a mensagem com data,hora e copromisso. Sem a necessidade de um formulario de consulta.

O que busco fazer é bem mais simples que um formulário de cadastro. 

pela logica o que pretendo fazer é: (Meu banco de dados esta em access, nome: Banco Tabela: Agendados com s campos: Data, Hora e Descrição.

quero colocar isso no formulario e fazer a rotina mais ou meno assim, porém nao sei como puxar isso pro visual basic, tentei importar data base, porém nao conheço o codigo responsavel por isso e nas pesquisas que efetuei nenhuma deu certo. 

Lá no form load ()

[verificar banco de dados] + [verificar se campo data e hora é igual ao horario do sistema(que exibe na label em azul)] e se FOR

MSGBOX("ALERTA:" + COMPROMISSO + DATA + HORA + DESCRIÇÃO)

TIPO ISSO, 

meu problema esta sendo em vincular essa informaçãoe validar estes campos para exibir os alertas.

COMO PODE VER FIZ O USO DE VARIAS CONDIÇÕES (IF) E CADA UMA DELAS NECESSITA DE UM CODIGO PRA VERIFCAR NO BD. 

DESDE JA, OBRIGADO... 

---

Dan Venâncio, Chefe de Cozinha Marítimo.