Discussion :

[Jazzili]

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 !

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

[nouanda]

Ça a l'air d’être un exercice, donc je ne sais pas si l'intitule demande d'aborder le problème comme ca (avec des tableaux comme Txhor() _{le sheriff de l'espace}), mais je trouve, personnellement, que c'est un design bizarre.

Pour répondre a ta question: tu veux que les deux entrées aient le même nombre d'heures sups? Parce que ton design actuel ne permet pas de faire la différence.
Mais si tu veux la même chose pour les deux travailleurs, il suffit de remplacer

Code :

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

1
2
        NbH25 = {CType(TextBoxNbhsupp25.Text, Integer)}
        Nbh50 = {CType(TextBoxNbhsupp50.Text, Integer)}

par

Code :

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

1
2
        NbH25 = {CType(TextBoxNbhsupp25.Text, Integer), CType(TextBoxNbhsupp25.Text, Integer)}
        Nbh50 = {CType(TextBoxNbhsupp50.Text, Integer), CType(TextBoxNbhsupp50.Text, Integer)}

Si tu veux pouvoir distinguer, le plus simple sera de créer une classe ou une structure, par exemple "ReleveHebdo", qui aura pour propriétés Nom, Prenom, etc..., un petit formulaire pour rentrer les données, une liste pour stocker le tout, et on affiche tout cela dans une DataGridView