Compte à rebour le plus simplifier possible

Contenu du snippet

je suis trés peu expérimenté et j'ai passé 3 heures a chercher un compte a rebour sur le site et en effet j'en est trouvés, cependant je ne comprenais pas tout dans les programmes proposés , j'ai donc essayé de faire le miens et je voudrais entendre vos critiques car il me parait un peu trop simple pour concurencer les autres mais bon, apparament il fonctionne très bien ! (compte a rebour de 10 a 0 )

Source / Exemple :


Private Sub Commande4_Click()

a = 10
Texte13.Value = a
For i = 0 To 10

DoEvents

timer1 = timer + 1

Do While timer1 > timer

Texte13.Value = a

 
Loop

a = a - 1

Next

End Sub

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.

Du même auteur (till2)