petit problème

bonjour à tout le monde
je veux manipumer une chaine de caractères reçu sur le port série
ce traitement de chaine se fait chaque fois que j'ai une nouvelle information su le port.
j'ai testé mon programmme avec un timer, il fonctionne mais avec une boucle infinie ne fonctionne pas , svp est ce que vous pouvez m'aider à trouver le problème
voici mon code( j'ai eliminé la partie de configuration port série et déclaration de variables pq je suis sur que ça marche):

test.Show
mavar = False
While mavar = False

If MSComm1.InBufferCount <> 0 Then
x = MSComm1.Input
SearchString = x
SerachChar = "pH ="
MyPos = InStr(1, SearchString, SerachChar, 1)
If MyPos <> 0 Then
pos = MyPos + 4
y$ = Mid$(x$, pos)
pos_finligne = InStr(1, y, vbLf)
valeur = Left(y, pos_finligne)
End If
If valeur <> "" Then
vale = Val(valeur)
Text2.Text = vale
End If

End If

DoEvents
Wend
End Sub

merci et à+

pour posFinLigne, utilises
pos_finligne = InStr(1, y, vbCrLf)

je vois pas où tu modifies la variable mavar.


ton
If MyPos <> 0 Then
devrais être
If MyPos <> -1 Then


pour le reste, tu dois pouvoir te débrouiller en mettant des points d'arret (F9) et en placant le curseur de la souris au dessus des variables (très nombreuses, voire trop nombreuses d'ailleur), pour valider leur contenu....



By Renfield

thomas_reynald@msn.com

Aucune touche n'a ete blessee lors de la saisie de ce texte..........