none
ne addition depuis un selct case avec vb2013 RRS feed

  • Question

  • bonjour

     j'ai réussi à créer le code select case et je voudrais addition dans un textbox le resulat  après chaque case et je n'arrive pas à faire l’addition j'obtiens toujours le nombre obtenu à chaque case

    merci de m’aider voici mon code j’ai

        Private Sub ComboBox_SelectionChangeCommitted(ByVal sender As System.Object, ByVal e As System.EventArgs)
            Dim combo As ComboBox = CType(sender, ComboBox)
            Dim index As Integer = Me.DataGridView1.CurrentCellAddress.Y
            Dim b As Integer, b1 As Integer, b2 As Integer, b3 As Integer, b4 As Integer, a As Integer
    
            Select combo.SelectedItem
    
                Case "Calcul Energie"
    
                    ''Pour debug on affiche l'ordre de calcul
                    Dim quantite_energie As Double = (Val(Me.DataGridView1.Rows(index).Cells.Item(1).Value) * Val(Me.DataGridView1.Rows(index).Cells.Item(2).Value)) / 1000
                    MessageBox.Show("quantité réeelle énergie =" & quantite_energie)
                    Dim resultat As String = MsgBox("Afficher sans calcul", MsgBoxStyle.YesNo)
                    If resultat = vbYes Then
                        combo.SelectedItem = combo.Items(0)
                    End If
    
    
                Case "Calcul Glucide"
    
                    ''Pour debug on affiche l'ordre de calcul
                    Dim quantite_glucides As Double = (Val(Me.DataGridView1.Rows(index).Cells.Item(1).Value) * Val(Me.DataGridView1.Rows(index).Cells.Item(3).Value)) / 1000
                    MessageBox.Show("quantité réeelle glucides =" & quantite_glucides)
                    a = quantite_glucides
                    b = b + a
                    MsgBox("b=" & b & " " & "a=" & a)
                    TextBox1.Text = b.ToString
    
    
                    Dim resultat As String = MsgBox("Afficher sans calcul", MsgBoxStyle.YesNo)
                    If resultat = vbYes Then
                        combo.SelectedItem = combo.Items(0)
                    End If
    
                Case "Calcul Sucre"
                    ''Pour debug on affiche l'ordre de calcul
                    Dim quantite_sucres As Double = (Val(Me.DataGridView1.Rows(index).Cells.Item(1).Value) * Val(Me.DataGridView1.Rows(index).Cells.Item(4).Value)) / 1000
                    MessageBox.Show("quantité réeelle sucres =" & quantite_sucres)
                    Dim resultat As String = MsgBox("Afficher sans calcul", MsgBoxStyle.YesNo)
                    If resultat = vbYes Then
                        combo.SelectedItem = combo.Items(0)
                    End If
    
    
            End Select
    

    du faire une erreur mais où?

    cela concerna le case glucide

    mercredi 13 juillet 2016 09:14

Réponses

Toutes les réponses