Discussion :

[anto942]

Bonjour à tous.
j'ai presque fini mon programme mais là je rencontre un souci avec mes IF.
Voilà ce que je veux faire :
si la textbox = au code barre alors
combobox = code produit correspondant
et j'incrémente la quantité a chaque fois que je bip avec ma douchette le code barre.
et si le code barre change alors
la quantité doit revenir à 0 et incrémenté +1 avec les autres code barre.
J'ai pris exemple avec deux produits voici mon 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
If TextBox1.Text = "4042533350173" Then
            ComboBox1.SelectedItem = "het24"
            i = i + 1
            Quantite_ajouteeTextBox.Text = CStr(i)
            TextBox1.Text = ""
 
        End If
        If TextBox1.Text = "4042533736786" Then
                ComboBox1.SelectedItem = "het24bs "
                i = i + 1
                Quantite_ajouteeTextBox.Text = CStr(i)
            TextBox1.Text = ""
 
        End If

dans mon load j'ai :

Code :

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

Quantite_ajouteeTextBox.Text = CStr(i)

et avant j'ai déclaré mon i :

Code :

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

dim i as integer

Lorsque je bip un produit plusieurs fois la quantité s'incrémente mais si je change de produit donc de code barre la quantité ne revient pas à 0 et continue de s'incrémenter pour un produit différent.
J'ai essayé avec :

Code :

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

TextBox1.Text <> "4042533350173"

pour dire si le code produit n'est pas égale à ça alors tu remet la quantité à 0 mais je reste à 0 dans ce cas là et l'incrémentation se fait pas.
avez vous une idée ?

[ed73170]

Bonjour,

Tu utilises la même variable (i) pour compter tes produits sans la remettre à 0 lors d'un changement de produit, elle va donc s'incrémenter indéfiniment.

Il faut détecter le changement de produit (c'est à dire mémoriser le code du produit précédent et le comparer au produit actuel) et remettre i à 0 lorsque c'est nécessaire.

[anto942]

J'ai compris la démarche mais en terme de code pour mémoriser la valeur précédente et la comparer à la nouvelle et mettre i à 0 je vois pas comment on peut faire :/

[anto942]

J'ai eu l'idée de faire éventuellement ceci mais la quantité reste bloquée à 2 :

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
17
If TextBox1.Text = "4042533350173" Then
            ComboBox1.SelectedItem = "het24"
            i = i + 1
            Quantite_ajouteeTextBox.Text = CStr(i)
            TextBox1.Text = ""
            If TextBox1.Text <> "4042533350173" Then
                i = 1
            End If
        ElseIf TextBox1.Text = "4042533736786" Then
                ComboBox1.SelectedItem = "het24bs "
            i = i + 1
            Quantite_ajouteeTextBox.Text = CStr(i)
            TextBox1.Text = ""
            If TextBox1.Text <> "4042533736786" Then
                i = 1
            End If
        End If

[mactwist69]

Utilises des variables de classe pour mémoriser le dernier code :

Code :

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

1
2
3
4
5
6
7
8
9
            Private currentProduct As String
            Private currentQuantity As Integer
 
    Public Sub New()
 
        Me.currentProduct = String.Empty
        Me.currentQuantity = 0
 
    End Sub

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
17
18
19
20
21
22
23
 'Evenement
    Dim newCode As String = Me.TextBox1.Text
            Select Case newCode
 
                Case "4042533350173"
                    ComboBox1.SelectedItem = "het24 "
 
                Case "4042533736786"
                    ComboBox1.SelectedItem = "het24bs "
 
            End Select
 
    'on incrémente où on réinitialise
            If Me.currentProduct = newCode Then
    'même produit
                currentQuantity += 1
            Else
    'changement
                currentQuantity = 1
            End If
 
    'on se souvient pour la prochaine fois
            Me.currentProduct = newCode

[ebastien]

Bonjour,

Que se passe-t-il si tu scannes le produit A puis le produit B puis de nouveau le produit A ? Ne faut-il pas avoir une quantité par produit scanné ? De plus, tester les codes en dur implique pas mal de changement en cas d'ajout d'un produit.

Je ferais une classe Produit :

Code :

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

1
2
3
4
5
Public Class Produit
    Public Property CodeBarre As String
    Public Property CodeProduit As String
    Public Property Quantite As Integer
End Class

Puis une liste de produits. Lors d'un scanne, tu appelles une méthode qui cherchera le produit correspondant, modifiera la combo et incrémentera la quantité :

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Produits As List(Of Produit) 
Private Sub ScanneProduit()
  Dim prod As Produit = Produits.Where(Function(x) x.CodeBarre.Equals(TextBox1.Text)).FirstOrDefault()
  If prod IsNot Nothing Then
     ComboBox1.SelectedItem = prod.CodeProduit
     prod.Quantite += 1
  End If
End Sub

Codé sans test mais l'idée est là et évitera une liste de if imbriqués (si tu as 10000 produits, imagine le programme )