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

Messages postés
4
Date d'inscription
lundi 8 septembre 2008
Dernière intervention
20 octobre 2008
- - Dernière réponse : PoloTBDj
Messages postés
4
Date d'inscription
lundi 8 septembre 2008
Dernière intervention
20 octobre 2008
- 20 oct. 2008 à 11:41
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.
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
Messages postés
7401
Date d'inscription
mercredi 23 avril 2003
Dernière intervention
6 avril 2012
3
Merci
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 106 internautes ce mois-ci

Commenter la réponse de jrivet
Messages postés
4
Date d'inscription
lundi 8 septembre 2008
Dernière intervention
20 octobre 2008
0
Merci
Magnifique ^^
Merci, beaucoup.
Commenter la réponse de PoloTBDj

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.