none
AGENDA DE COMPROMISSOS COM ALERTAS (VISUAL BASIC) RRS feed

  • Pergunta

  • 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:

    Interface da 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. 



    • Editado Dan Venancio terça-feira, 22 de março de 2016 07:54
    terça-feira, 22 de março de 2016 07:47

Respostas

  • 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.

    • Marcado como Resposta Marcos SJ terça-feira, 22 de março de 2016 14:00
    terça-feira, 22 de março de 2016 13:00

Todas as Respostas

  • 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.

    • Marcado como Resposta Marcos SJ terça-feira, 22 de março de 2016 14:00
    terça-feira, 22 de março de 2016 13:00
  • 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.

    terça-feira, 22 de março de 2016 22:01