DÉCOMPOSITION DE NOMBRES EN FACTEURS PREMIERS

cs_AntiSlash Messages postés 61 Date d'inscription dimanche 21 juillet 2002 Statut Membre Dernière intervention 23 avril 2003 - 20 nov. 2002 à 21:32
cs_Marsu Messages postés 21 Date d'inscription jeudi 27 décembre 2001 Statut Membre Dernière intervention 22 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.

https://codes-sources.commentcamarche.net/source/5129-decomposition-de-nombres-en-facteurs-premiers

cs_Marsu Messages postés 21 Date d'inscription jeudi 27 décembre 2001 Statut Membre Dernière intervention 22 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és 37 Date d'inscription mercredi 20 novembre 2002 Statut Membre Dernière intervention 27 juillet 2007
22 nov. 2002 à 20:42
Voila une nouvelle mise à jour !
cs_AntiSlash Messages postés 61 Date d'inscription dimanche 21 juillet 2002 Statut Membre Dernière intervention 23 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és 37 Date d'inscription mercredi 20 novembre 2002 Statut Membre Dernière intervention 27 juillet 2007
21 nov. 2002 à 19:17
Le programme tourne beaucoup plus vite à present !
Merci de vos commentaires !
cs_Sophus Messages postés 37 Date d'inscription mercredi 20 novembre 2002 Statut Membre Dernière intervention 27 juillet 2007
21 nov. 2002 à 19:14
Voila j'ai mis à jour la source donnez moi vos commentaires.
cs_Warny Messages postés 473 Date d'inscription mercredi 7 août 2002 Statut Membre Dernière intervention 10 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és 78 Date d'inscription samedi 16 mars 2002 Statut Membre Derniè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és 37 Date d'inscription mercredi 20 novembre 2002 Statut Membre Dernière intervention 27 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és 61 Date d'inscription dimanche 21 juillet 2002 Statut Membre Dernière intervention 23 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...
@+
Rejoignez-nous