boucle qui attend

Question

dans une table access, j'ai un champ heure
dans mon programme VB, lors du lancement, je veux créer une boucle pour chaque enregistrement qui attend que l'heure soit égale à celle de l'enregistrement. puis quand c'est le cas, j'éxécute une fonction.
comment faire???
Merci de votre aide
Asasas

TRAX44 · Answer

partant du principe ke tu c extrare l'haure de la bdd il te suffit de mettre un timer avec pour intervalle 1000 et ki compara la sortie de la bdd et leur actuelle du pc!!
en clair sa doit donne + ou - ça :

heure = ton heure

Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
If heure = Time Then MsgBox "il est l'heure de ce reiveiller", vbCritical
End Sub

cs_asasas · Answer

oui, mais comment en créer une (boucle) pour chaque enregistrement?

K@zuya · Answer

Private Sub Form_Load()

Dim Heure As String
Heure = "14:07:00"

Do While Time <> Heure
DoEvents
Loop

Text1.Text = "Heure atteinte"

End Sub

K@zuya · Answer

pour chaque enregistrement, c'est un peu la meme chose:

dans le cas ou tu stock tes temps dans la meme variable:

dim NumFunction as integer

Private Sub Timer1_Timer()

If heure = Time Then 

NumFunction = NumFunction + 1

if NumFunction  = 1 then execution de la fonction 1
if NumFunction  = 2 then execution de la fonction 2
etc...

End Sub

dans le cas ou tu stock tes temps dans une aute variable:

Private Sub Timer1_Timer()

If heure1 = Time Then execution de la fonction 1
If heure2 = Time Then execution de la fonction 2
If heure3 = Time Then execution de la fonction 3
etc...

End Sub

cs_asasas · Answer

OK, mais je voudrait éxecuter la même fonction pour chaque temps, avec des paramêtres différents.

Boucle qui attend

5 réponses

Discussions similaires