Bonjour
J'ai besoin d'aide, je voudrais que lorsque je rentre les valeurs dans les textbox Heuresupp25 et 50% et que j'appuie sur le bonton enregistrer, chacune de ces valeurs se mettent dans un tableau NbH25 et NbH50 pour qu'ensuite je puisse me retrouver avec les deux même tableaux en commentaire .
Merci d'avance pour vos réponse !
Nom : Capture.PNG Affichages : 610 Taille : 14,5 Ko

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Public Class Exercice7
    Dim Nom(), Prenom() As String
    Dim Txhor(), SalBase(), MtHsup25(2), MtHSup50(2), SalBrut(2), SalTot As Double
    Dim NbH25(), Nbh50() As Integer
    Const NbHeurmens = 151.67
 
    Private Sub Exercice7_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        Nom = {"Augier", "Galabert"}
        Prenom = {"Denis", "Nicolas"}
 
        Txhor = {20.0, 12.25}
 
        SalBase = {3033.4, 1857.96}
 
        For i = 0 To 1
 
            Noms.Items.Add(Nom(i))
 
            Prenoms.Items.Add(Prenom(i))
 
            Nbdheuresmens.Items.Add(NbHeurmens)
 
            Txhoraire.Items.Add(Txhor(i))
 
            Salairedebase.Items.Add(SalBase(i))
 
        Next
    End Sub
 
    Private Sub buttonsave_Click(sender As Object, e As EventArgs) Handles Buttonsave.Click
 
        NbH25 = {CType(TextBoxNbhsupp25.Text, Integer)}
        Nbh50 = {CType(TextBoxNbhsupp50.Text, Integer)}
//        'NbH25 = {8, 2}
//        'Nbh50 = {3, 0}
 
        TextBoxNbhsupp25.Text = ""
        TextBoxNbhsupp50.Text = ""
 
    End Sub
 
    Private Sub ButtonAfficher_Click(sender As Object, e As EventArgs) Handles ButtonAfficher.Click
        For i = 0 To 1
 
            MtHsup25(i) = Math.Round(Txhor(i) * NbH25(i) * 1.25, 2)
            MtHSup50(i) = Math.Round(Txhor(i) * Nbh50(i) * 1.5, 2)
            SalBrut(i) = Math.Round(SalBase(i) + MtHsup25(i) + MtHSup50(i), 2)
 
            NbHeureMaj25.Items.Add(NbH25(i))
 
            NbHeureMaj50.Items.Add(Nbh50(i))
 
            Mtheuresup25.Items.Add(MtHsup25(i))
 
            Mtheuresup50.Items.Add(MtHSup50(i))
 
            SalaireBrut.Items.Add(SalBrut(i))
 
            SalTot = SalTot + SalBrut(i)
 
        Next
 
        ListBoxTotSalBrut.Items.Add(SalTot)
    End Sub
End Class