Bonjour j'ai un petit soucis au quel je ne trouve pas de solution.
voila dans une fenêtre j'ai ma "textbox1" qui reçoit des données venant du port série, dans ma "textbox11" j'extraie à un endroit précis un numéro :
Et je souhait que si ce numéro est différent du précédent numéro reçu alors je déclenche une action sinon si il est identique je déclenche une autre action,
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged Dim num_ancien_inter As String = Mid(TextBox1.Text, 11, 11) 'numéro d'op extrait
pour ce faire j'ai procédé de cette façon mais ca ne fonctionne pas ! (c'est toujours l'action du numéro différent qui ressort)
voila le code au chargement de ma page qui met label36.text à 0 :
voila le code dans "TextBox1_TextChanged" :
Code : Sélectionner tout - Visualiser dans une fenêtre à part Label36.Text = "0"
Pour info label22.text extrait le numéro des données de ma textbox1 à l'aide d'un timer qui se rafraichit toutes les secondes afin d'extraire le numéro dans un tableau :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 If num_ancien_inter <> Label36.Text Then Label34.Text = Nothing Label36.Text = Label22.Text 'je met le numéro extrait de mes données reçu dans mon label36.text Label34.text = "impression d'un nouveau numéro" ElseIf num_ancien_inter Like Label36.Text Then Label34.Text = "impression d'un meme numéro" End If
Auriez vous une idée ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 Try Dim Tab(15) As String Tab = Me.TextBox1.Text.Split(New Char() {" "c}) Label22.Text = Tab(3)
Partager