Quelle est la meilleur façon de faire pour qu'une appli, toujours en
fonctionnement, puisse toute seule accomplir une tache tous les jours à la
même heure ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ng
Bonjour,
Oui c'est une solution (on pourrait alors en profiter pour caser le programme dans le systray). Mais on pourrait aussi utiliser le plannificateur windows, tout dépend du rôle du programme etc...
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
"jc2nantes" a écrit dans le message de news:
Salut,
Quelle est la meilleur façon de faire pour qu'une appli, toujours en fonctionnement, puisse toute seule accomplir une tache tous les jours à la même heure ?
Avec un timer et un test sur la date ?
Merci!
jc
Bonjour,
Oui c'est une solution (on pourrait alors en profiter pour caser le
programme dans le systray).
Mais on pourrait aussi utiliser le plannificateur windows, tout dépend du
rôle du programme etc...
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
"jc2nantes" <NOSPAMjc2nantes@hotmail.com> a écrit dans le message de news:
utPTEoW8DHA.1816@TK2MSFTNGP12.phx.gbl...
Salut,
Quelle est la meilleur façon de faire pour qu'une appli, toujours en
fonctionnement, puisse toute seule accomplir une tache tous les jours à la
même heure ?
Oui c'est une solution (on pourrait alors en profiter pour caser le programme dans le systray). Mais on pourrait aussi utiliser le plannificateur windows, tout dépend du rôle du programme etc...
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
"jc2nantes" a écrit dans le message de news:
Salut,
Quelle est la meilleur façon de faire pour qu'une appli, toujours en fonctionnement, puisse toute seule accomplir une tache tous les jours à la même heure ?
Avec un timer et un test sur la date ?
Merci!
jc
Clive Lumb
Voici un exemple basé sur un timer (toutes les minutes) extrait d'un appli que j'ai fait pour vider le repertoire "temp" sur notre serveur. En esperant que cela aide Clive
Private Sub Timer1_Timer() Dim Counter As Long Dim COunter1 As Long DoEvents Counter = DateDiff("s", Now(), NextDate & " " & CleanOutTime & ":00") COunter1 = Counter Me.CountDown.Caption = Secs2hours(COunter1) MyTrayIcon.Tooltip = "Clumpco cleaner: Next run in " & Me.CountDown.Caption & vbNullChar If Not Suspended Then If Counter <= 0 Then Me.Timer1.Enabled = False Call CleanUp LastRun = Format(Now(), "dd/mm/yy hh:mm:ss") Me.LblLastClean = LastRun NextDate = DateAdd("d", 1, Date) Me.Timer1.Enabled = True End If End If
End Sub
"jc2nantes" a écrit dans le message de news:
Salut,
Quelle est la meilleur façon de faire pour qu'une appli, toujours en fonctionnement, puisse toute seule accomplir une tache tous les jours à la même heure ?
Avec un timer et un test sur la date ?
Merci!
jc
Voici un exemple basé sur un timer (toutes les minutes) extrait d'un appli
que j'ai fait pour vider le repertoire "temp" sur notre serveur.
En esperant que cela aide
Clive
Private Sub Timer1_Timer()
Dim Counter As Long
Dim COunter1 As Long
DoEvents
Counter = DateDiff("s", Now(), NextDate & " " & CleanOutTime & ":00")
COunter1 = Counter
Me.CountDown.Caption = Secs2hours(COunter1)
MyTrayIcon.Tooltip = "Clumpco cleaner: Next run in " &
Me.CountDown.Caption & vbNullChar
If Not Suspended Then
If Counter <= 0 Then
Me.Timer1.Enabled = False
Call CleanUp
LastRun = Format(Now(), "dd/mm/yy hh:mm:ss")
Me.LblLastClean = LastRun
NextDate = DateAdd("d", 1, Date)
Me.Timer1.Enabled = True
End If
End If
End Sub
"jc2nantes" <NOSPAMjc2nantes@hotmail.com> a écrit dans le message de
news:utPTEoW8DHA.1816@TK2MSFTNGP12.phx.gbl...
Salut,
Quelle est la meilleur façon de faire pour qu'une appli, toujours en
fonctionnement, puisse toute seule accomplir une tache tous les jours à la
même heure ?
Voici un exemple basé sur un timer (toutes les minutes) extrait d'un appli que j'ai fait pour vider le repertoire "temp" sur notre serveur. En esperant que cela aide Clive
Private Sub Timer1_Timer() Dim Counter As Long Dim COunter1 As Long DoEvents Counter = DateDiff("s", Now(), NextDate & " " & CleanOutTime & ":00") COunter1 = Counter Me.CountDown.Caption = Secs2hours(COunter1) MyTrayIcon.Tooltip = "Clumpco cleaner: Next run in " & Me.CountDown.Caption & vbNullChar If Not Suspended Then If Counter <= 0 Then Me.Timer1.Enabled = False Call CleanUp LastRun = Format(Now(), "dd/mm/yy hh:mm:ss") Me.LblLastClean = LastRun NextDate = DateAdd("d", 1, Date) Me.Timer1.Enabled = True End If End If
End Sub
"jc2nantes" a écrit dans le message de news:
Salut,
Quelle est la meilleur façon de faire pour qu'une appli, toujours en fonctionnement, puisse toute seule accomplir une tache tous les jours à la même heure ?
