lundi 21 décembre 2009

Alarme : Gestionnaire d'évènements


Oh ! Je sais que ça fait longtemps que je n’ai pas écrit d’article sur mon blog, là je suis de retour après deux mois d'absence .Eh ! oui , je reviens avec un nouveau petit projet, c’est un gestionnaire d’événements, genre une alarme ou bien un agenda  si vous voulez :-) .

Le principe est simple, vous programmez les tâches que vous voulez faire pendant votre journée , vous introduisez « Votre tâche » et l’heure où vous devez effectuer cette événement et à partir de là vous aurez une journée organisée…. :p . Je pense que ça existe dans les téléphones portables :) , mais bon ça sert toujours à quelque chose ce genre d'application , surtout du coté programmation .
Au fait, j'ai fait deux programmes , mais je mettrais en évidence le code du deuxième vu qu'il est plus réussi que le premier ( c'est mon avis ) algorithme qui était un petit peu complexe .
Bon voici la procédure d'ajout des événements

On Error Resume Next
For i = 0 To 10
msg(i) = Text1(i)
time1(i) = Text2(i) & ":" & Text3(i) & ":" & Text4(i)
If msg(i) <> "" Then
List1.AddItem time1(i) & " -> " & msg(i)
Text1(i) = ""
Label2 = List1.ListCount
End If
Next i
On a déclaré deux tableaux en public dans un module , le premier sert à enregistrer la tâche et le second sert à enregistrer l'heure . On peut ajouter autant de tâche qu'on veut dans notre listbox .
Pour déclencher notre Alarme , on a tout simplement ajouté un " Timer " dont la procédure est comme suite:
On Error Resume Next
Label1 = Time
If Label2 = 0 Then
Exit Sub
Else
For i = 0 To List1.ListCount
If Label1 = time1(i) Then
mp.FileName = App.Path & "\newemail.wav"
MsgBox "Votre tache : " & msg(i)
End If
Next i
End If
Grâce à la boucle "for .. to ... next " , on parcourt notre liste des tâches .  Un signal sonore a été rajouté .
Toutefois , vous pouvez télécharger et tester cette application en cliquant ici .  C'est une version très simple , et qui pourra être largement améliorée :) , par l'ajout d'un historique d’événements ,amélioration graphique ...ect .
J'ai ajouté quelques trucs que j'ai pas mis sur le blog , vous allez le constater en testant l'application :) .

Si vous avez n'importe qu'elle question n'hésitez surtout pas à me contacter par mail ( vous trouverez mon mail sur mon profil ) :) je serai ravi de vous répondre ;)
N'hésitez pas à me faire part de vos impressions.
@ Bientôt

M.Islem