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
44 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
Partager