cs_AntiSlash
Messages postés61Date d'inscriptiondimanche 21 juillet 2002StatutMembreDernière intervention23 avril 2003
-
20 nov. 2002 à 21:32
cs_Marsu
Messages postés21Date d'inscriptionjeudi 27 décembre 2001StatutMembreDernière intervention22 décembre 2008
-
31 mars 2004 à 22:23
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
cs_Marsu
Messages postés21Date d'inscriptionjeudi 27 décembre 2001StatutMembreDernière intervention22 décembre 2008 31 mars 2004 à 22:23
Oula c'est pas très rapide... Essaie de decomposé le nombre 239528150029613 et tu verras par toi meme lol...
cs_Sophus
Messages postés37Date d'inscriptionmercredi 20 novembre 2002StatutMembreDernière intervention27 juillet 2007 22 nov. 2002 à 20:42
Voila une nouvelle mise à jour !
cs_AntiSlash
Messages postés61Date d'inscriptiondimanche 21 juillet 2002StatutMembreDernière intervention23 avril 2003 21 nov. 2002 à 22:10
Je te le redis: utilise la fonction Timer pour le temps de calcule au lieu de ton objet Timer:
dim TPSTMP as single,TPSTOT as single
TPSTMP=Timer
While div <= nbr
nbrdiv = nbr / div
...
Wend
TPSTOT=Timer-TPSTMP
et la tu recupere le nombre de secondes écoulées directement... et sans l'objet Timer qui ralenti tout...
@+
cs_Sophus
Messages postés37Date d'inscriptionmercredi 20 novembre 2002StatutMembreDernière intervention27 juillet 2007 21 nov. 2002 à 19:17
Le programme tourne beaucoup plus vite à present !
Merci de vos commentaires !
cs_Sophus
Messages postés37Date d'inscriptionmercredi 20 novembre 2002StatutMembreDernière intervention27 juillet 2007 21 nov. 2002 à 19:14
Voila j'ai mis à jour la source donnez moi vos commentaires.
cs_Warny
Messages postés473Date d'inscriptionmercredi 7 août 2002StatutMembreDernière intervention10 juin 2015 21 nov. 2002 à 10:26
C'est pas pour être méchant mais élimine le mot clef Goto de ton vocabulaire (sauf sur On Error Goto 0)
Quand tu veux sortir d'une procédure, d'une fonction ou d'une boucle utilise plutot les mots clef suivant : exit procedure, exit function, exit for, exit do
tu as deux instructions très utiles pour les boucle :
for...next (boucle finie) et do...loop(boucle conditionnelle) (ce dernier remplace avantageusement le while...wend d'ailleur)
Comme le fait remarquer antislash : DoEvents permet de laisser la main au système évenementiel de ton programme (donc de mettre à jour l'affichage)
cs_clafouti
Messages postés78Date d'inscriptionsamedi 16 mars 2002StatutMembreDernière intervention 7 septembre 2006 20 nov. 2002 à 22:29
Pour que le programme réponde lorsqu'il calcule dans une boucle, il faut inclure une instruction DoEvents dans la boucle.
cs_Sophus
Messages postés37Date d'inscriptionmercredi 20 novembre 2002StatutMembreDernière intervention27 juillet 2007 20 nov. 2002 à 21:37
Au début j'avais fait une boucle, mais le programme ne répondait pas tant que la boucle n'était pas finie.
J'ai donc préféré mettre un timer.
cs_AntiSlash
Messages postés61Date d'inscriptiondimanche 21 juillet 2002StatutMembreDernière intervention23 avril 2003 20 nov. 2002 à 21:32
lol, c'est peut-être simple, mais en tout cas c'est pas très bien codé (c pas méchant)... ton timer est completement inutile (il ralenti plutot qu'autre chose): pourquoi tu fais pas une boucle??? et pour le temps de calcul, pourquoi tu n'utilise pas Timer??? Rien que ca ce serait plus 'simple' a comprendre...
@+
31 mars 2004 à 22:23
22 nov. 2002 à 20:42
21 nov. 2002 à 22:10
dim TPSTMP as single,TPSTOT as single
TPSTMP=Timer
While div <= nbr
nbrdiv = nbr / div
...
Wend
TPSTOT=Timer-TPSTMP
et la tu recupere le nombre de secondes écoulées directement... et sans l'objet Timer qui ralenti tout...
@+
21 nov. 2002 à 19:17
Merci de vos commentaires !
21 nov. 2002 à 19:14
21 nov. 2002 à 10:26
Quand tu veux sortir d'une procédure, d'une fonction ou d'une boucle utilise plutot les mots clef suivant : exit procedure, exit function, exit for, exit do
tu as deux instructions très utiles pour les boucle :
for...next (boucle finie) et do...loop(boucle conditionnelle) (ce dernier remplace avantageusement le while...wend d'ailleur)
Comme le fait remarquer antislash : DoEvents permet de laisser la main au système évenementiel de ton programme (donc de mettre à jour l'affichage)
20 nov. 2002 à 22:29
20 nov. 2002 à 21:37
J'ai donc préféré mettre un timer.
20 nov. 2002 à 21:32
@+