boucle + conditionRésolu

Question

Bonjour tout le monde !!
j'ai vraiment un soucis avec les boucle (je suis nouveau en vb)....

Voici ma configuration
Une checkbox, une textbox, et un webbrowser.

J'aimerai que lorsque ma checkbox est cochée et tant que ma textbox est vide, que vb copie la valeur de la cellule dans la textbox

Voici ma solution de noob, mais elle ne marche pas apparemment....

    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged        If CheckBox1.Checked = True Then            TextBox6.Text = WebBrowser1.Document.GetElementById("1").InnerText            Do Until (WebBrowser1.Document.GetElementById("1").InnerText) IsNot Nothing                Threading.Thread.Sleep(500) 'j aimerais une pause entre chaque boucle si c'est possible ...            Loop        End If    End Sub


Auriez vous une idée si il vous plait?
Merci de votre attention et bonne journée.

Mosca · Answer

Bonjour

La procédure ci-dessous devrait solutionner ton problème
Il faut que ton code appelle cette procédure à un moment donné
Elle va boucler jusqu'à ce que l'une des deux conditions soit vraie

Private Sub TextBox6GetData ()TextBox6.Text = "" 'vider TexBox6   Do Until CheckBox1.Checked = True Or TextBox6.Text <> ""      If WebBrowser1.Document.GetElementById("1").InnerText IsNot Nothing Then         TextBox6.Text = WebBrowser1.Document.GetElementById("1").InnerText      End If      System.Windows.Forms.Application.DoEvents()    LoopEnd Sub

al78310 · Answer

Génial, merci pour ta réponse, je l’essaye tout de suite.

al78310 · Answer

Je viens de tester ta solution et il semblerait y avoir un problème quelque part...
J' ai mal expliquer mon problème initial.

Dans un webbrowser, il y a un tableau dans lequel il y a des cellules vides. Mais ces cellules vides vont être alimentées dynamiquement à un moment donné mais je ne sais pas lequel...
C'est pour cela que je voudrais que soit :
_ des que ma checkbox est coché, que le programme copie le contenu de la cellule(situé dans le webbrowser) dans ma textbox jusqu à temps que la donnée soit apparu dans ma textbox.
ou soit:
_ des que ma checkbox est coché, que le programme attende que le contenu de la cellule(situé dans le webbrowser) arrive, puis copie la donnée dans la textbox 

J’espère avoir été plus clair et complet.
Merci de ton aide, fortement appréciée
Bonne journée

Whismeril · Answer

Bonsoir

des que ma checkbox est coché, que le programme copie le contenu de la cellule(situé dans le webbrowser) dans ma textbox jusqu à temps que la donnée soit apparu dans ma textbox.  
 la fin de la phrase m'interpelle, si tu copies le contenu d'un texte (peu importe son origine) vers une textbox, il apparait quasiment instantanément. Il ne faut pas faire de boucle pour ça.


des que ma checkbox est coché, que le programme attende que le contenu de la cellule(situé dans le webbrowser) arrive, puis copie la donnée dans la textbox  ce qui revient au même, y a 1 texte, je le copie et je sors de ma boucle, j'en à pas je reviens plus tard.

Je te conseille de mettre ce code dans un timer.
Comme ça il sera exécuté de façon régulière (le temps est réglable, propriété Interval)

Pour le code en lui même, je n'ai pas VS sous la main mais en gros

Y'a t il un texte?

oui, je le copie et je stoppe le timer
non, je ne fais rien et on attends la prochaine itération

Mosca · Answer

En effet je n'avais pas bien compris
Alors je pense que cette fois ça devrait aller

Quand tu coches la checkbox la macro Texbox6GetData s'execute
Si la Textbox reçoit une valeur ou si tu décoches la checkbox la macro s'arrête.

J'ai modifié la macro

Private Sub TextBox6GetData ()TextBox6.Text = "" 'vider TexBox6   Do Until CheckBox1.Checked = False Or TextBox6.Text <> ""      If WebBrowser1.Document.GetElementById("1").InnerText IsNot Nothing Then         TextBox6.Text = WebBrowser1.Document.GetElementById("1").InnerText      End If      System.Windows.Forms.Application.DoEvents()    LoopEnd SubPrivate Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged   If CheckBox1.Checked = True Then      TextBox6GetData   End IFEnd Sub

al78310 · Answer

Merci à vous tous, j'ai pas trop le temps de tester vos solution maintenant mais je le ferai un peu plus tard.(cette nuit) 

Mais en tout cas encore merciiiiiiiiiiiiiiiii  !!!!!
:)

al78310 · Answer

Rebonjour à tous !
_Mosca je viens de tester ta solution et je pense qu il y a un problème...
Je crois que la boucle s’arrête au moment ou WebBrowser1.Document.GetElementById("1").InnerText est remplie (donnée reçue) et donc s' arrête juste avant de copier cette même donnée dans la textbox....
En tout cas, ca ne recopie pas la valeur dans la textbox... :(

_Whismeril, en fait au début la cellule dans mon webrowser ne contient rien, et je voudrait qu’aussitôt que la donnée apparaissent, qu elle soit copiée dans ma textbox... C est pour cela que je voulais une boucle qui vérifie que la cellule soit remplie avant de la copier...
"Y'a t il un texte?

    oui, je le copie et je stoppe le timer
    non, je ne fais rien et on attends la prochaine itération"
Cela me parait bien si on peut mettre une valeur de timer pour que ça soit instantané... Mais comment coder ça? je suis vraiment nul avec tous ces systèmes de boucle....

Merci encore de vos aides :)

Mosca · Answer

Bonjour à tous

@al78310 
La procédure que je t'ai donné semble fonctionner puisque la boucle Do ... Loop s’interrompt comme prévu.
Peut-être y a-til juste un problème de rafraichissement de l'affichage.
Peut-être que la valeur transmise à textbox6 n'est pas imprimable comme des blancs (espaces) ou tabulations.
Pour être sur, il faudrait modifier la ligne
TextBox6.Text = WebBrowser1.Document.GetElementById("1").InnerText
comme ceci
TextBox6.Text = "-" & WebBrowser1.Document.GetElementById("1").InnerText & "-"
Ainsi tu pourra te rendre compte si quelque chose a bien été transmis à Textbox6 encadré par les caractères "-" et donc modifier le code en conséquence

al78310 · Answer

Bonjour Mosca et Whismeril
_Mosca, j'ai utilisé ta dernière ligne de code et des que je click sur ma checkbox, il s affiche   "- -"(sans les guillemets) alors que la donnée n est pas arrivée. Et lorsque la donnée arrive, aucun changement ne s’opère sur ma textbox...

_ Whismeril, d'après tes conseils et le code de Mosca je pense tester ce code :
    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged        If CheckBox1.Checked = True Then            TextBox6GetData()        End If    End Sub    Private Sub TextBox6GetData()        If WebBrowser1.Document.GetElementById("1").InnerText IsNot Nothing And CheckBox1.Checked = True Then            TextBox6.Text = WebBrowser1.Document.GetElementById("1").InnerText        Else Threading.Thread.Sleep(500)            Call TextBox6GetData()        End If    End Sub

Merci encore a vous 2

al78310 · Answer

je viens de tester mon code et ça fait comme les autres, ça ne copie pas quand la donnée arrive mai ça la copie quand on lance le programme et quand la donnée est déjà arrivée...

Je vais tester ton code, effectivement c est gratuit, et ça me fait apprendre plein de choses .
Mais je pense que ça ne va pas résoudre le problème car on ne change pas le reste. Il y a bien un caractère reçu mais indépendamment de que la cellule du webbrowser reçoit : 
c'est des que je click sur ma checkbox qu il s affiche "- -" et non pas quand la cellule reçoit la donnée....
je teste ta ligne et je reviens
Merci

al78310 · Answer

:( ça ne marche toujours pas...

Whismeril · Answer

Bonsoir,

en VB.Net, Call ne sert à rien, c'est "héritage" de VB6.

Pour le timer, voici ce que je te propose (en supposant que tu travailles en Winform)
Tu glisses un timer depuis la boite à outils vers le formulaire, il n'apparait pas sur le formulaire mais en dessous


En le sélectionnant, dans la fenêtre de propriété tu peux choisir l'intervalle auquel sera exécuté ton code.

En double cliquant dessus on arrive dans la méthode abonnée à l'évènement click
   Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        If String.IsNullOrWhiteSpace(WebBrowser1.Document.GetElementById("1").InnerText) Then
            Timer2.Stop()
            TextBox6.Text = WebBrowser1.Document.GetElementById("1").InnerText
        End If
    End Sub


et dans ta checkedbox

Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked Then
            Timer2.Start()
        Else
            Timer2.Stop()
        End If
End Sub

al78310 · Answer

re tout le monde
Whismeril dans ta solution timers2 est souligné en rouge...Je suis trop nul pour réparer ça lol dsl...

Mosca les données que je dois récupérer sont simplement des chiffres...Quel est ton code toi justement,parce que j en ai testé plein du coup... si le tien marche...
le dernier que jai testé est 
    Private Sub TextBox6GetData()        TextBox6.Text = "" 'vider TexBox6        Do Until CheckBox1.Checked = False Or TextBox6.Text <> ""            If WebBrowser1.Document.GetElementById("1").InnerText IsNot Nothing Then                TextBox6.Text = Trim(WebBrowser1.Document.GetElementById("1").InnerText)            End If            System.Windows.Forms.Application.DoEvents()        Loop    End Sub    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged        If CheckBox1.Checked = True Then            TextBox6GetData()        End If    End Sub

al78310 · Answer

Merci a vous deux, ça marche enfin !!!
MERCI !!!!!!!!!

Boucle + condition

14 réponses

Votre réponse

Discussions similaires