Bonjour, j'ai un problème à la même question que tout à l'heure , mais cette fois , c'est en windows form. Je dois toujours faire un tableau de 10 valeurs, qui dit quelle est la plus grande valeur, et à quelle position elle se trouve, mais je ne sais pas comment le terminer en windows form.
Public Class Form1
Dim tabvaleurs(9) As Integer
Dim index As Integer
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btvaleur.Click
tabvaleurs(index) = txtvaleur.Text
index = index + 1
txtvaleur.Clear()
LabelReste.Text = "Reste:" & tabvaleurs.Count - index
If index = 10 Then
'désactivation du bouton.
btvaleur.Enabled = False
End If
End Sub
Private Sub btresultat_Click(sender As Object, e As EventArgs) Handles btresultat.Click
'identifier plus grande valeur
Dim intplusgrande As Integer = 0
Dim intposition As Integer
index = 1 : intplusgrande = 0
For Each element In tabvaleurs
If element > intplusgrande Then
element = intplusgrande
intposition = index
End If
index = index + 1
Next
intposition = txtposition.Text
intplusgrande = txtplusgrande.Text
End Sub
End Class
