DÉCLENCHER UN ÉVÈNEMENT LORSQ'UNE ACTION EST EFFECTUÉE UN CERTAIN NOMBRE DE FOIS
yoman64
Messages postés962Date d'inscriptionsamedi 19 janvier 2002StatutMembreDernière intervention 2 août 2010
-
2 juin 2002 à 04:00
lolokill666
Messages postés28Date d'inscriptionsamedi 4 mai 2002StatutMembreDernière intervention14 août 2002
-
6 juin 2002 à 20:30
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
lolokill666
Messages postés28Date d'inscriptionsamedi 4 mai 2002StatutMembreDernière intervention14 août 2002 6 juin 2002 à 20:30
Merci du conseil ;) Je vais mettre ton code dans mon prog, ca l'améliorera un petit peu :)
SibosisITS
Messages postés72Date d'inscriptionmardi 26 février 2002StatutMembreDernière intervention20 juin 2003 3 juin 2002 à 11:11
Bien joué ! Mais tu pourrais améliorer un peu la procédure en déclarant la variable, non pas au niveau module, mais au niveau de la fonction, en variable statique, et expliciter un type de donnée, pour occuper un minimum de mémoire (un programmeur cherche toujours à optimiser l'espace mémoire occupé par son programme). En l'occurence, le type 'Byte' suffit puisque la valeur maximale prise par la variable est 4. Egalement, on peut initialisé la variable à 0 dès qu'elle vaut 3, ce qui permet de supprimer un test, et donc de condenser le code. On obtient le code suivant :
Private Sub Button1_Click()
Static abc as Byte
abc=abc+1
If abc = 3 Then abc=0: MsgBox "c'est la troisième fois que tu cliques ici !"
End Sub
L'avantage de ces variables statiques est qu'elles concervent leur valeur d'un appel de la fonction à l'autre, et sont initialisée par défaut à 0. Bien sûr, avant de déclarer une variable en static, il faut s'assurer que la variable n'est utilisée que par la fonction où elle est déclarée.
@++ et bonne prog...
(: Sibo ;)
lolokill666
Messages postés28Date d'inscriptionsamedi 4 mai 2002StatutMembreDernière intervention14 août 2002 2 juin 2002 à 09:11
Ben oue, mais g remarquer ke y'avait po grand chose pour les débutant ici, il est donc très difficil d'apprendre a faire du vb. Ce genre de code permet aux newbie (comme moi ;)) de comprendre le principe de base du VB
yoman64
Messages postés962Date d'inscriptionsamedi 19 janvier 2002StatutMembreDernière intervention 2 août 20102 2 juin 2002 à 04:00
6 juin 2002 à 20:30
3 juin 2002 à 11:11
Private Sub Button1_Click()
Static abc as Byte
abc=abc+1
If abc = 3 Then abc=0: MsgBox "c'est la troisième fois que tu cliques ici !"
End Sub
L'avantage de ces variables statiques est qu'elles concervent leur valeur d'un appel de la fonction à l'autre, et sont initialisée par défaut à 0. Bien sûr, avant de déclarer une variable en static, il faut s'assurer que la variable n'est utilisée que par la fonction où elle est déclarée.
@++ et bonne prog...
(: Sibo ;)
2 juin 2002 à 09:11
2 juin 2002 à 04:00