Serveur OPC : Problème de boucle. [Résolu]

Signaler
Messages postés
4
Date d'inscription
lundi 8 septembre 2008
Statut
Membre
Dernière intervention
20 octobre 2008
-
Messages postés
4
Date d'inscription
lundi 8 septembre 2008
Statut
Membre
Dernière intervention
20 octobre 2008
-
Bonjour,

Je travaille actuellement sur un projet de driver entre un automate S7-400 et un serveur OPC (KepserverEX)

J'ai un problème sur les boucles de ce genre, lorsque le programme atteint cette ligne, VB freeze et je suis obliger de faire un bon vieux fin de tache :

Do Until flag_fin_fiche = True
    Call controle_fin_de_fiche
Loop

---------------------

Public Sub controle_fin_de_fiche()
flag_fin_fiche = Fiche_Finie.Value              'on copie la valeur API fiche finie dans le flag
End Sub

A cet endroit le programme attend qu'un booleén passe à 1, la fonction appellé par la Call sert à récupérer la valeur stocké dans l'automate via le serveur OPC.

Help !

Merci.

2 réponses

Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
50
Salut,

Un petit DoEvents dans une boucle comme cela non?
Est ce que cela règlerait ton problème

Do Until flag_fin_fiche = True
   Call controle_fin_de_fiche
   DoEvents
Loop, ----
[../code.aspx?ID=41455 By Renfield]

@+: Ju£i€n
Pensez: Réponse acceptée
Messages postés
4
Date d'inscription
lundi 8 septembre 2008
Statut
Membre
Dernière intervention
20 octobre 2008

Magnifique ^^
Merci, beaucoup.