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

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

jrivet 7401 Messages postés mercredi 23 avril 2003Date d'inscription 6 avril 2012 Dernière intervention - 20 oct. 2008 à 11:27
+3
Utile
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
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de jrivet
PoloTBDj 4 Messages postés lundi 8 septembre 2008Date d'inscription 20 octobre 2008 Dernière intervention - 20 oct. 2008 à 11:41
0
Utile
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.