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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Public Class Form2
 
    Private Sub btncalculer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncalculer.Click
 
        Dim indice As Integer
        indice = Validebonbon()
 
 
 
        If (indice >= 0) And ValideQty() Then
            intquantite = txtQuantité.Text
            lblTableau.Text = tableauPrixBonBon(indice) * intquantite
            dernier = tableauPrixBonBon.Length
        Else
            MsgBox("veiller faire un choix")
        End If
 
    End Sub
 
    Function Validebonbon() As Integer
        If (Rdbbonbonchocolat.Checked) Then
            Return 0
        ElseIf (RdbBonbonCaramel.Checked) Then
            Return 1
        ElseIf (RdbBonbonAllo.Checked) Then
            Return 2
        Else
            Return -1
        End If
    End Function
 
    Function ValideQty() As Boolean
        'valider si la qty est numeric
 
        If (txtQuantité.Text) = "" Then
            MsgBox("veillez rentrer de chiffres")
            Return True
        Else
            Return False
        End If
    End Function
 
End Class