Demonstration de loop.

Contenu du snippet

Le code sert a calculer le nombre de matches a faire pour que tout le monde jou a partir d'un nombre de jouers.

Source / Exemple :


Private Sub Command2_Click()
On Error Resume Next
Dim num, b, y As Double
'declare ses vraibles
y = CDbl(Text1.Text)
'y = le nombre de jouers
b = y - 1
'b = le nombre de jouers - 1
For i = 1 To Text1.Text 'for i = 1 au nombre de jouers
    b = b - 1
    y = y + b
Next i
'maintenant y = le nombre de matchs a faire
Text2.Text = y
'sortie = y
End Sub

Conclusion :


C'est une loop très simple. J'ajouterais des sources plus compliqués plus tard.

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.