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 c'est comme vous voulez :) .

Bon, le principe est simple, vous programmez les taches 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 a quelque chose ce genre d'application , surtout du coté programmation .
Au fait j'ai fais deux programmes , mais je vais vous montrer le code du deuxième programme vu qu'il est plus réussi que le premier :p ( c'est mon avis ) alors que le premier algorithme é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éclarer deux tableaux en public dans un module , le premier sert à enregistrer la tache et le second sert à enregistrer l'heure . On peut ajouter autant de Tâche qu'on veut dans notre listbox .
Pour dèclancher 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âçe a la boucle "for .. to ... next " , on parcourt notre liste des taches , on a ajouté aussi un signal sonore .
Toutefois , vous pouvez télécharger et tester cette application en cliquant ici , ça reste 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

0 commentaires: