Discussion :

[Yoann.M]

Bonsoir,

Je suis actuellement en première année de BTS SIO je viens de commencer (début septembre) à développer et j'adore !

En cours nous avons venons de terminer le programme sur Visual Basic en mode commande. Nous venons donc de commencer à dev en WinForm.

Je souhaite crée une applications pour un tournois de foot qui se déroule fin décembre où ce dernier affichera le nom des équipes, les résultats et le classement.

J'ai crée la parti visuel voici ce que cela donne :



Cependant je bloque au moment de la saisi des scores, comment lui dire de prendre en compte la saisi dans chaque cas ? Et aussi comment faire le classement.

C'est une de mes première sur WinForm... Je suis un peu perdu.

En gros voici mon code pour le moment (saisi des équipe) :

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
Public Class Form1
 
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub
 
    Private Sub TextBox3_TextChanged(sender As System.Object, e As System.EventArgs) Handles Equipe1.TextChanged
 
        M1E1.Text = Equipe1.Text
        M3E1.Text = Equipe1.Text
        M5E1.Text = Equipe1.Text
 
    End Sub
 
    Private Sub TextBox4_TextChanged(sender As System.Object, e As System.EventArgs) Handles Equipe2.TextChanged
        M1E2.Text = Equipe2.Text
        M4E2.Text = Equipe2.Text
        M6E2.Text = Equipe2.Text
    End Sub
 
    Private Sub TextBox5_TextChanged(sender As System.Object, e As System.EventArgs) Handles Equipe3.TextChanged
        M2E3.Text = Equipe3.Text
        M3E3.Text = Equipe3.Text
        M6E3.Text = Equipe3.Text
    End Sub
 
    Private Sub TextBox6_TextChanged(sender As System.Object, e As System.EventArgs) Handles Equipe4.TextChanged
        M2E4.Text = Equipe4.Text
        M4E4.Text = Equipe4.Text
        M5E4.Text = Equipe4.Text
    End Sub
 
 
 
End Class

Merci de votre aide.

[guatto]

Bonsoir Yoann.M,

ce serait plus simple de stocker chaque input de ton textbox dans des variables type "Integer" et créer un algorithme pour faire le calcul précis des scores et le tour est joué !

[Yoann.M]

Bonsoir Yoann.M,

ce serait plus simple de stocker chaque input de ton textbox dans des variables type "Integer" et créer un algorithme pour faire le calcul précis des scores et le tour est joué !

Bonjour,

Merci de ta réponse.

Je regarde sa ce soir une fois rentrer du travail et je reviens vous dire des nouvelles voir l'avancement.

[Yoann.M]

Bonjour,

Actuellement je n'ai pas spécialement avancé (peu de temps en semaine oblige) je suis en train de tester deux trois choses :

J'ai mis mes variable (les Score (S1, S2, S3 ...) ainsi que les classement (Class1, CLass2 etc...) et commencer mon code pour le premier match

Voilà est ce que cela semble correct

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
Public Class Form1
 
    Dim Clas1, Clas2, Clas3, Clas4 As Integer
    Dim S1, S2, S3, S4, S5, S6, S7, S8, S9, S10, S11, S12 As Integer
 
    Clas1 = 0
    Clas2 = 0
    Clas3 = 0
    Clas4 = 0
 
 
 
            If Double.Parse(S1.Text) > S2.Text Then
                Clas1 = Clas1 + 3
 
            ElseIf S1.Text < S2.Text Then
                Clas2 = Clas2 + 3
 
            Else
 
                Clas1 = Clas1 + 1
                Clas2 = Clas2 + 1
 
            End If
 
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub
 
    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Equipe1.TextChanged
 
        M1E1.Text = Equipe1.Text
        M3E1.Text = Equipe1.Text
        M5E1.Text = Equipe1.Text
 
    End Sub
 
    Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Equipe2.TextChanged
        M1E2.Text = Equipe2.Text
        M4E2.Text = Equipe2.Text
        M6E2.Text = Equipe2.Text
    End Sub
 
    Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Equipe3.TextChanged
        M2E3.Text = Equipe3.Text
        M3E3.Text = Equipe3.Text
        M6E3.Text = Equipe3.Text
    End Sub
 
    Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Equipe4.TextChanged
        M2E4.Text = Equipe4.Text
        M4E4.Text = Equipe4.Text
        M5E4.Text = Equipe4.Text
    End Sub
 
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
End Class

Merci

[Yoann.M]

Bonjour,

Je reviens vers vous toujours autant perdu ...

Je vais essayer d'être claire.

Je souhaite que pour chaque match faire quelques chose comme sa (là c'est en mode console) :

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
'Equipe1 Vs Equipe2
        Console.Write("Saisir le nombre de but marquer par " & Equipe1 & " contre " & Equipe2 & " : ")
        Score1 = Console.ReadLine
        Console.Write("Saisir le nombre de but marquer par " & Equipe2 & " contre " & Equipe1 & " : ")
        Score2 = Console.ReadLine
        Console.WriteLine()
 
        If Score1 > Score2 Then
            Console.WriteLine("Victoire de " & Equipe1 & " sur le score de " & Score1 & " à " & Score2)
            Clas1 = Clas1 + 3
            Console.WriteLine()
        ElseIf Score1 < Score2 Then
            Console.WriteLine("Victoire de " & Equipe2 & " sur le score de " & Score2 & " à " & Score1)
            Clas2 = Clas2 + 3
            Console.WriteLine()
        Else
            Console.WriteLine("Match nul ! Entre " & Equipe1 & " & " & Equipe2)
            Clas1 = Clas1 + 1
            Clas2 = Clas2 + 1
            Console.WriteLine()
        End If

En gros on tape le score de l'équipe 1 dans une case (S1 par exemple) & le score de l'équipe 2 dans S2.
Il va comparé les deux score et celui qui à le plus gros prend 3 point et le perdant 0 si match nul 1 point pour chaque équipe.

Ensuite on fait la même chose pour chaque autre match (équipe 3 vs équipé 4 = S3 contre S4) (équipe 5 vs équipé 6 = S5 contre S6) Etc...

Seulement je ne connais pas grand chose en WinForm c'est là où sa coince ... En mode console tout fonction.

J'ai donc essayer de décalrer mes variable (Dim S1, S2, S3 etc... As Integer), mais je ne sais pas comment faire pour lui dire de comparer le contenu du TextBoxS1 & TextBoxS2 et ensuite faire la condition SI.

Merci de votre aide je suis perdu là...

[guatto]

Bonsoir,

j'ai crée ma propre méthode pour comparer les scores la voici :

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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
 
    Dim A1 As Integer = TextBox1.Text   'équipe A match1'
    Dim A2 As Integer = TextBox3.Text   'équipe A match2'
    Dim A3 As Integer = TextBox8.Text   'équipe A match3'
 
    Dim B1 As Integer = TextBox2.Text   
    Dim B2 As Integer = TextBox6.Text
    Dim B3 As Integer = TextBox12.Text
 
    Dim C1 As Integer = TextBox4.Text
    Dim C2 As Integer = TextBox7.Text
    Dim C3 As Integer = TextBox9.Text
 
    Dim D1 As Integer = TextBox5.Text
    Dim D2 As Integer = TextBox10.Text
    Dim D3 As Integer = TextBox11.Text
 
    Dim A As Integer = 0                    'les pts gagnés par A'
    Dim B As Integer = 0                    'les pts gagnés par B'
    Dim C As Integer = 0                    'les pts  .... C'
    Dim D As Integer = 0                    'les pts  .... D'
 
 
Public Sub Calcul()
 
        If A1 > C1 Then
 
            A += 3
 
        ElseIf A1 = C1 Then
 
            A += 1
            C += 1
 
        Else
 
            C += 3
 
        End If
 
 
        If A2 > B2 Then
 
            A += 3
 
        ElseIf A2 = B2 Then
 
            A += 1
            B += 1
 
        Else
 
            B += 3
 
        End If
 
 
        If A3 > D3 Then
 
            A += 3
 
        ElseIf A3 = D3 Then
 
            A += 1
            D += 1
 
        Else
 
            B += 3
 
        End If
 
 
        If B1 > D1 Then
 
 
            B += 3
 
        ElseIf A1 = D1 Then
 
            B += 1
            D += 1
 
        Else
 
            D += 3
 
        End If
 
 
        If C2 > D2 Then
 
 
            C += 3
 
        ElseIf C2 = D2 Then
 
            C += 1
            D += 1
 
        Else
 
            D += 3
 
        End If
 
 
        If C3 > B3 Then
 
 
            C += 3
 
        ElseIf C3 = B3 Then
 
            C += 1
            B += 1
 
        Else
 
            B += 3
 
        End If
 
 
    End Sub
 
 
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Calcul()  ' tu appelles la méthode de calcul du score '
 
    End Sub

c'est un peu, "à la va vite" mais tu pourrais peut-être l'adapter. Autre chose, la méthode ne fait que comparer les scores et les initialiser la valeur de chaque variable(Equipe), il te reste à trouver une solution pour les classer selon les pts gagnés, Bonne chance !