probléme de condition

Version imprimable

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:

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:

Label36.Text = "0"

voila le code dans "TextBox1_TextChanged" :
Code:

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:

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 ?

21/09/2011, 13h18
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:

If num_ancien_inter <> Label36.Text Then
21/09/2011, 13h26
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
22/09/2011, 08h29
hunteshiva

Je suis entièrement d'accord avec Pol63 :mrgreen:

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:

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:

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.
22/09/2011, 12h14
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 ?

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:

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

22/09/2011, 14h01
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) ?
22/09/2011, 14h22
asmduty

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

Oui mais si je fait :

Code:

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 ?

22/09/2011, 14h40
hunteshiva

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

Citation:

Envoyé par hunteshiva

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:

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 :mrgreen:
22/09/2011, 14h48
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 !

Tu te perd avec tes rafraichissements,gère tout ça dans le "TextBox1_TextChanged"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
    'numéro d'op extrait
    Dim num_new_inter As String = Mid(TextBox1.Text, 11, 11)
 
    If num_new_inter <> Label36.Text Then 
        ' On conserve l'ancien numéro dans le label 36
        Label36.Text = num_new_inter
        ' -> traitement à faire si ton numéro est Différent
    ElseIf num_new_inter Like Label36.Text Then
        '  -> traitement à faire si ton numéro est identique
 
    End If

Ce code fonctionne bien, seul mais quand je le met en place dans mon code, ca ne va pas la première condition s'exécute toujours

Code:

If num_new_inter <> Label36.Text Then

j'ai mis en place des points d'arrêts, et c'est étonnant, ce qui explique l'exécution de la 1er condition voila ce que j'obtiens :
(dans le cas ou le numéro dans ma textbox est identique, les valeurs sont en commentaires)
Code:

1 2 3 4 5 6 7 8 num_new_inter 'nothing if num_new_inter 'nothing <> Label36.text '34564560 aprés en recliquant sur lecture il fait encore un passage dans la premiére boucle est la c'est l'inverse: num_new_inter '34564560 if num_nex_inter '34564560 <> Label36.text '""

23/09/2011, 13h40
asmduty

Fais ton algorythme sur papier car visiblement c'est simplement que tu met les mauvaises choses dans tes variables ou textbox, ou alors tu appelles une fonction au mauvais moment (mauvais event)

Mais j'ai beau le faire sur papier, et je reviens au même :

j'ai dans ma textbox_changed ce code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Dim num_new_inter As String = Mid(TextBox1.Text, 11, 11)
        If num_new_inter <> Label36.Text Then
            If CheckBox2.Checked Then
                Timer4.Start()
                Timer4.Interval = 2000
                Ouvrir_porte_sortie()
                Timer6.Start()
                Timer6.Interval = 2000
                Eclairage()
            End If
            If CheckBox5.Checked Then
                AddWaypoints()
            End If
            Button33.Enabled = True 'si déclenchement on rend le bouton visible
            Button33.BackColor = Color.Red
            Label36.Text = num_new_inter ' on place le num d'op pour le retenir comme ancien
            Dim libelle As String
            Dim valeur As String
            For Each ligne As String In TextBox1.Text.Split(ControlChars.NewLine)
                Try
                    libelle = ligne.Split(":")(0).Trim 'Ton libellé
                    valeur = ligne.Split(":")(1).Trim 'Ta valeur
                    Select Case libelle
                        Case "Commune"
                            ville_s = valeur
                        Case "Adresse"
                            adresse_s = valeur
                        Case "Nature"
                            motif_depart = valeur
                        Case "Dispositif"
                            vehicule_depart_un = valeur
                            My.Computer.Audio.Play(salerte, AudioPlayMode.WaitToComplete)
                            nbr_inter += 1
                            TextBox2.Text = nbr_inter
                            dispositif_depart(vehicule_depart_un)
                    End Select
                Catch ex As Exception
                    'Pour catcher les exceptions sur le Split avec les *****
                End Try
            Next
            'Dim recherche_deb As Integer = InStr(TextBox1.Text, "Dispositif")
            Dim recherche_max As Integer = InStr(TextBox1.Text, "Vehicules")            'je recherche dans ma textbox1 a quelle position se trouve Vehicules
            Dim recherche_ma As Integer = recherche_max - 1
            Try
                Dim chaine_rapti As String = Mid(TextBox1.Text, 1, recherche_ma) 'je réduit ma zone de recherche dans textbox1 de 1 a la position de Vehicules
                Dim TableauTransitoire() As String = chaine_rapti.Split 'TextBox1.Text.Split 'Split(TextBox1.Text)
                Dim NumHAY As Integer = 0
                Dim I As Integer
                For I = 0 To TableauTransitoire.Length - 1
                    ' incrémentation de mon numéro de NumHAY
                    If TableauTransitoire(I) = suffixe Then
                        NumHAY = NumHAY + 1 'incrémente de 1 a chaque HAY rencontré
                    End If
                    Try
                        ' En fonction du HAY ou je suis je rempli un certain label
                        Select Case NumHAY
                            Case 1 '1er HAY
                                vehicule_depart_deux = TableauTransitoire(I - 1)
                                vehicule_depart_deux = vehicule_depart_deux & Space(1) & TableauTransitoire(I)
                                vehicule_depart_deux = vehicule_depart_deux & Space(1) & TableauTransitoire(I + 1)
                                dispositif_depart(vehicule_depart_deux)
                            Case 2
                                vehicule_depart_trois = TableauTransitoire(I - 1)
                                vehicule_depart_trois = vehicule_depart_trois & Space(1) & TableauTransitoire(I)
                                vehicule_depart_trois = vehicule_depart_trois & Space(1) & TableauTransitoire(I + 1)
                                dispositif_depart(vehicule_depart_trois)
                            Case 3 ' 3éme HAY
                                vehicule_depart_quatre = TableauTransitoire(I - 1)
                                vehicule_depart_quatre = vehicule_depart_quatre & Space(1) & TableauTransitoire(I)
                                vehicule_depart_quatre = vehicule_depart_quatre & Space(1) & TableauTransitoire(I + 1)
                                dispositif_depart(vehicule_depart_quatre)
                            Case 4 '4eme HAY
                                vehicule_depart_cinq = TableauTransitoire(I - 1)
                                vehicule_depart_cinq = vehicule_depart_cinq & Space(1) & TableauTransitoire(I)
                                vehicule_depart_cinq = vehicule_depart_cinq & Space(1) & TableauTransitoire(I + 1)
                                dispositif_depart(vehicule_depart_cinq)
                            Case 5 ' 5éme HAY
                                vehicule_depart_six = TableauTransitoire(I - 1)
                                vehicule_depart_six = vehicule_depart_six & Space(1) & TableauTransitoire(I)
                                vehicule_depart_six = vehicule_depart_six & Space(1) & TableauTransitoire(I + 1)
                                dispositif_depart(vehicule_depart_six)
                            Case 6 ' 6éme HAY
                                vehicule_depart_sept = TableauTransitoire(I - 1)
                                vehicule_depart_sept = vehicule_depart_sept & Space(1) & TableauTransitoire(I)
                                vehicule_depart_sept = vehicule_depart_sept & Space(1) & TableauTransitoire(I + 1)
                                dispositif_depart(vehicule_depart_sept)
                            Case 7 ' 7éme HAY
                                vehicule_depart_huit = TableauTransitoire(I - 1)
                                vehicule_depart_huit = vehicule_depart_huit & Space(1) & TableauTransitoire(I)
                                vehicule_depart_huit = vehicule_depart_huit & Space(1) & TableauTransitoire(I + 1)
                                dispositif_depart(vehicule_depart_huit)
                        End Select
                    Catch ex As Exception
                        'Pour catcher les exceptions sur le nombre de recherche
                    End Try
                Next
            Catch ex As Exception
            End Try
            Label1.Text = ville_s
            Label4.Text = adresse_s
            If vehicule_depart_un Is Nothing Then
                Label14.Text = ""
            Else
                Label14.Text = vehicule_depart_un
            End If
 
            If vehicule_depart_deux Is Nothing Then
                Label6.Text = ""
            Else
                Label6.Text = vehicule_depart_deux
            End If
 
            If vehicule_depart_trois Is Nothing Then
                Label25.Text = ""
            Else
                Label25.Text = vehicule_depart_trois
            End If
 
            If vehicule_depart_quatre Is Nothing Then
                Label26.Text = ""
            Else
                Label26.Text = vehicule_depart_quatre
            End If
 
            If vehicule_depart_cinq Is Nothing Then
                Label27.Text = ""
            Else
                Label27.Text = vehicule_depart_cinq
            End If
 
            If vehicule_depart_six Is Nothing Then
                Label28.Text = ""
            Else
                Label28.Text = vehicule_depart_six
            End If
 
            If vehicule_depart_sept Is Nothing Then
                Label29.Text = ""
            Else
                Label29.Text = vehicule_depart_sept
            End If
 
            If vehicule_depart_huit Is Nothing Then
                Label30.Text = ""
            Else
                Label30.Text = vehicule_depart_huit
            End If
            Label12.Text = motif_depart
            Label34.Text = Nothing
            'ecrire_sgbd()
        ElseIf num_new_inter <> Label36.Text Then
            Label34.Text = "impression d'un meme numéro"
        End If
 
    End Sub

et dans ma form un Label36.text, lorsque je remplace le label36 pas une checkbox1.checked ca fonctionne, je ne comprend pas !

23/09/2011, 14h11
asmduty

Si tu veux comparer ton ancienne valeur dans la textbox, il faudrait penser à commencer par ne pas l'écraser dès le début de ta fonction pour la comparer ensuite ...
Enfinb ou je me trompe sur tes intensions car avec tes label42 textbox36 et fonction bidulemachinchose, dur de comprendre ...
29/09/2011, 16h58
Pelote2012

Et s'il te plaît réécrit ton code avec des variables qui veulent dire quelques choses

ton code sera plus lisible et ton erreur te sautera plus aux yeux.
Je t'assure se ne sera pas une perte de temps
Pese aussi à la maintenance de ton code :D