Différer l'éxécution d'une fonction

**moijhd** · 25/03/2007, 12h46

Si ma liste d'attente est une liste de messages :

A la place d'enregistrer les messages dans un fichier texte, je les differe :
Je cree un compteur initialisé à -1
On veut envoyer un message :
- On recupère le compteur
- on ajoute +1
- Si le résultat est 0 : on envoie le message dans 0*5s => imméditament
- Si le résultat est 1 : on envoie le message dans 1*5s
- Si le résultat est n : on envoie le message dans n*5s

Lorsqu'on envoie le message :
- On recupère le compteur
- on ajoute -1 (on soustrait 1)

Comment faire pour différer la fonction msgbox, ou une foction ?

**moijhd** · 25/03/2007, 12h56

Quelque chose qui ressemble à ça ? :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
SUb liste_attente(message)
 
Dim OFS, oLigne
Dim bLigne1lue 
Dim sLigne 
Const ForReading = 1, ForWriting = 2 
Set oFSO = CreateObject("Scripting.FileSystemObject") 
Set oFlu = oFSO.OpenTextFile("c:\fichier1.txt", ForReading) 
 
Do While Not oFlu.AtEndOfStream
 
'Récupération valeur compteur
sLigne = oFlu.ReadLine
 
Loop
 
oFlu.close
 
 
If sLigne=0 Then
 
ma_fonction(message)
 
Else
 
interval_de_temps=5
 
'ma_fonction(message) dans sLigne*interval_de_temps, qui s'executera donc plsu tard
 
'Incrémentation
nouveau=sLigne+1
 
Set oFec = oFSO.OpenTextFile("c:\fichier1.txt", ForWriting,true)
'Enregistrement
oFec.WriteLine (nouveau)
oFec.close
 
End If
 
End Sub

Notons l'utilisation de la boucle pour une ligne....