PENSE BÊTE

Commentaire de Adn56 le 26/04/2008 19:24:31

normalement ya pas de bug ?
Alors voici pourquoi je note 4/10 (critique constructive et pas agressive du tout ;) :
1 : le code, il existe une fonction OR qui serai utile d'utiliser. EX :
If Not IsNumeric(TextBox2.Text) or textbox2="" or textbox2 > 23 Then.....
2 : Plus grave lorsque je clic sur un mémo dans deux minutes ma CPU passe à 100% pendant ce temps là ! pas trés pratique pour faire autre chose ^^ (un doevents manque dans ta loop au minima)
3 : Une fois ton message affiché tu fais un end ce qui oblige à le relancer de nouveau.

Voila de quoi bosser sur ta source :) de mon coté je fais un peu la meme chose en ce moment (un calendrier qui rappel les rdv) voila pourquoi je me permet avec mes petites compétences de programmeur de t'indiquer les défauts de cette version.
amicalement @dn....

Commentaire de Adn56 le 27/04/2008 18:08:10

Tiens voici ma version de ton soft, si cela peut t'aider ^^ il reste plus qu'a enregistrer les différents RDV programmés dans un TXT pour les ressortir le jour voulu.
Il faut aussi que je trouve comment le mettre en systrait cela serait plus sympa ;)

thecode :

Public Class principal
    Dim madate, monheure As Date
    Dim message, nom As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            madate = CDate(TextBox1.Text)
            monheure = CDate(TextBox2.Text)
        Catch ex As Exception
            MsgBox("erreur dans la date ou dans l'heure")
        End Try

        If TextBox3.Text <> "" And TextBox4.Text <> "" Then
            madate = TextBox1.Text
            monheure = TextBox2.Text
            nom = TextBox3.Text
            message = TextBox4.Text
            MsgBox("nouveau RDV le : " & madate & " à " & monheure & Chr(10) & Chr(13) & " avec " & nom, vbExclamation, "Confirmer !")
            Timer1.Enabled = True
            Me.Visible = False
        Else
            MsgBox("saisir un texte et/ou un nom de RDV")
        End If
    End Sub

    Private Sub principal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.MaxLength = 10
        TextBox2.MaxLength = 5
        Timer1.Enabled = False
        TextBox1.Text = Format(Now, "d")
        TextBox2.Text = Format(Now, "t")
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If My.Computer.Clock.LocalTime.Hour = monheure.Hour And _
        My.Computer.Clock.LocalTime.Minute = monheure.Minute Then
            MsgBox("C'est l'heure de ton RDV avec :" & nom & Chr(10) & Chr(13) & "Pour :" & message, vbExclamation, "Info !!")
            Me.Visible = True
        End If
    End Sub
End Class

Commentaire de Adn56 le 27/04/2008 19:55:39

c'est fait pour ça :)
++

Commentaire de djgab21 le 28/04/2008 16:10:37

Merci Chrysostome et les autres pour votre commentaire. Cela fait tres plaisir.

Commentaire de Chrysostome le 28/04/2008 20:07:33

Salut! Content que ma suggestion intéresse quelqu'un, mais je n'aurais pas pensé que ce fût toi!
Tu prends le problème à l'envers, et c'est la tâche qui programmée à 16 heures va lancer un fichier bat ou vbs qui va venir perturber Gab pendant ses jeux! Une tâche une fois planifiée est totalement géré par le système (Bilou), donc pas de timer, ni de prog ouvert! Si j'ai, le temps je ferai une petite appli. Mais ...

Commentaire de Chrysostome le 29/04/2008 09:58:36

En ce qui concerne le systray:
http://www.vbfrance.com/codes/OCX-POUR-GERER-SYSTRAY-SUPER-FACILEMENT-SI-SI_20401.aspxet par contre, il ne faut pas effacer les anciens RDV! Il faut pouvoir revenir en arrière et vérifier les dates etc... Fais plutôt plusieurs fichiers indexés sur un nb de jour, un mois, un trimestre, etc... Ceci dit, ce n'est pas nécessaire!
Bon courage, en attendant d'en voir le résultat! Avertis moi. Merci.