Discussion :

[gastoncs]

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 :

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

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,
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 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Label36.Text = "0"

voila le code dans "TextBox1_TextChanged" :

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

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
Try
            Dim Tab(15) As String
            Tab = Me.TextBox1.Text.Split(New Char() {" "c})
            Label22.Text = Tab(3)

Auriez vous une idée ?

[asmduty]

Si tu remet la valeur à 0 forcément tu auras une valeur différente ...
Met un point d'arrêt ici et regarde quelles sont tes valeurs.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If num_ancien_inter <> Label36.Text Then

[Pol63]

pour info, quand on veut faire les choses bien, on donne des noms explicites aux controles, pas label36 et autres

et quand on a beaucoup de controles, on essaye de ne pas les poser pas à la main un par un

[hunteshiva]

Je suis entièrement d'accord avec Pol63

Je ne comprend pas ce que représente ton "num_ancien_inter"
Quand tu reçoit une nouvelle valeur, tu la met dans une variable qui dit que c'est un ancien numéro... (nouveau <> ancien)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim num_ancien_inter As String = Mid(TextBox1.Text, 11, 11) 'numéro d'op extrait

deuxième point, tu viens toujours comparer ta variable "num_ancien_inter" avec ton label36
Mais je ne vois pas ou tu remplis le label36

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If num_ancien_inter <> Label36.Text Then

-------------------------------------------------------------------------------------------------------------------------
Idée pour rendre plus propre tes éléments

TextBox1 -> txtNom
Label1 -> lblNom
ListBox -> lstNom
Form1 -> frmNom
Module1 -> mdlNom
etc.

[hunteshiva]

Non tu perd ta valeur... d’où ma remarque

Je ne comprend pas ce que représente ton "num_ancien_inter"
Quand tu reçoit une nouvelle valeur, tu la met dans une variable qui dit que c'est un ancien numéro... (nouveau <> ancien)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim num_ancien_inter As String = Mid(TextBox1.Text, 11, 11) 'numéro d'op extrait

Je pense que tu devrais poser ton problème sur papiers,
le faire tourner à la main et après tu code

[gastoncs]

oui en fait num_ancien_inter est le numéro que je récupère dans ma textbox.

mon probléme mis à plat est le suivant :
j'ai une textbox dans laquelle je reçois par un port série des données qui comporte un numéro de série, si ce numéro de série est différent du précédent recu je déclenche une action et si il est identique je déclenche une autre action !

[gastoncs]

J'ai mis la valeur de label36.text à 0 au démarrage de l'application juste afin de pouvoir toujours lancer la première condition car la numéro est toujours différent de 0

j'ai mis le point d'arrêt et voila ce que j'obtiens :
pour le premier lancement de l'application "num_ancien_inter" récupère bien la valeur de ma textbox = "143289054"

et Label36.Text est bien egal à 0 donc la premiére condition s'effectue,

mais quand je recoi après le même numéro dans ma textbox voila ce que j'ai pour :
num_ancien_inter = ""
Label36.Text = "143289054"

ensuite je re-clique sur lecture et là inversement
num_ancien_inter = "143289054"
Label36.Text = ""

donc il rentre à nouveau dans la condition ou les numéro sont différent comment cela ce fait il ?
j'essaye de trouvé sinon à la place un système ou je pourrai stocker le numéro précédent dans un Tab(2) et le numéro actuel pour les comparer, mais comment faire ?

[gastoncs]

mon label36.text prend la valeur du label22.text ce label22.text est dans un timer qui se rafraichis tous les secondes et qui extrait les valeurs qui son séparé d'un espace dans ma textbox :
voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Try
            Dim Tab(15) As String
            Tab = Me.TextBox1.Text.Split(New Char() {" "c})
            Label22.Text = Tab(3) 'num_inter 'affiche le numéro d'inter
            Label32.Text = Tab(7) 'num_renfort 'affiche le numéro d'inter
            Label23.Text = Tab(9) 'num_date 'affiche le numéro d'inter
            Label24.Text = Tab(11) 'ici je recupe l'heure
        Catch ex As Exception
            Label22.Text = Nothing
            Label32.Text = Nothing
            Label23.Text = Nothing
            Label24.Text = Nothing
        End Try
    End Sub

[gastoncs]

ou bien existe il un moyen de stocker la valeur précédente reçu de ma textbox ?
comme ca je pourrai la comparer à celle que je recoi à l'instant t (ca je sais faire) ?

[asmduty]

Ba suffit de la garder en tag ou dans une variable ...

[gastoncs]

Oui mais si je fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
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
End sub

je ne récupère que la variable a l'instant T et je n'ai plus l'ancienne ?