jeudi 14 janvier 2010

Alarme : Gestionnaire d'évènements version 2 :p


Sur mon dernier article , je vous ai dit que cette application est très basique et elle peut être largement améliorée.
ç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 .
a déclaré Islem dans son précèdent article ... lol

Du coup , j'ai essayé de modifier vu que je n'ai rien trouvé à faire ces derniers jours :p , donc je vais tout simplement parler des modifications . La plus importante c'est l'historique des événements , bof ! c'était une chose facile à faire , j'ai voulu vous laisser essayer ( et moi aussi j'ai essayé vu que je ne savais pas le faire :) ) et maintenant je dévoile la solution :) :p qui n'a rien de spécial .
Bon, j'ai rajouté une autre fenêtre qui gère les tâches , j'ai modifié l'instruction conditionnelle "if " en ajoutant la comparaison avec la date , donc vous avez une comparaison date et heure , ce qui veut dire que vous pourriez gérer vos tâches du mois ou de l'année .. :p :D
La procédure du Timer n'a pas trop changée

Private Sub Timer1_Timer()
On Error Resume Next
Label1 = Time
Label7 = Date
For i = 0 To 10
If Label1 = time1(i) And Label7 = date1(i) Then
mp.FileName = App.Path & "\newemail.wav"
MsgBox "Votre tache : " & tache(i)
End If
Next i
End Sub
Et voila , la procédure du bouton "Créer des événements" , le code important seulement .
Private Sub Command1_Click()
On Error Resume Next
For i = 0 To 10
tache(i) = Text1(i)
date1(i) = Text5(i)
time1(i) = Text2(i) & ":" & Text3(i) & ":" & Text4(i)
Next i
For i = 0 To 10
If Text1(i) <> "" Then
Actioninscrire = Inscrire(App.Path & "\Event", Text1(i), i + 1, 1)
If Text2(i) <> "" And Text3(i) <> "" And Text4(i) <> "" Then
Actioninscrire = Inscrire(App.Path & "\Event", Text2(i), i + 1, 2)
Actioninscrire = Inscrire(App.Path & "\Event", Text3(i), i + 1, 3)
Actioninscrire = Inscrire(App.Path & "\Event", Text4(i), i + 1, 4)
List1.AddItem date1(i)
If Text5(i) <> "" Then
Actioninscrire = Inscrire(App.Path & "\Event", Text5(i), i + 1, 5)
End If
End If
End If
Next i
Label2 = List1.ListCount
Actioninscrire = Inscrire(App.Path & "\Event", Label2, 12, 6)
Unload Me
End Sub
La sauvegarde des données se fait dans un fichier Excel ( c'est mon premier essai ) . L'inconvénient de ce concept c'est la lourdeur de l'application lorsqu'elle charge les données enregistrées mais j'ai pu gérer ça en intégrant un compteur " je l'appel compteur de chargement :p" d'où cette ligne de commande "Label2 = List1.ListCount".
Voici la nouvelle version téléchargement ici , s'il y aura d'autres modifications , je mettrai a jour le lien : )

@Bientot
M.Islem