Bonjour à tous,

je mets en place un exe sur un serveur qui travaille en mode console , je déclenche des fonctions à heures fixes avec le code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
    Sub Main()
        Dim heure_actuelle As String
        Do
            heure_actuelle = CStr(Now.ToLongTimeString)
            Select Case heure_actuelle
                Case "07:00:00", "08:00:00", "09:00:00", "10:00:00", "11:00:00", "12:00:00", "13:00:00", "14:00:00", "15:00:00",
                     "16:00:00", "17:00:00", "18:00:00", "19:00:00", "20:00:00", "21:00:00", "22:00:00", "23:00:00", "23:55:00"
                    Call Gestion.GestionServiceJour()
                Case "16:30:00", "18:30:00", "20:30:00", "22:30:00", "23:30:00"
                    Call Gestion.GestionServiceLendemain()
            End Select
        Loop
    End Sub
Cela consomme énormément de temps CPU, comment pourrais-je coder cela à l'aide d'une Classe Timer ou équivalente ?

D'avance merci de votre aide, Tchicken.