NOMBRE PREMIERS
econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
23 décembre 2008
-
11 déc. 2005 à 22:59
econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Membre Dernière intervention 23 décembre 2008 - 12 déc. 2005 à 15:24
econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Membre Dernière intervention 23 décembre 2008 - 12 déc. 2005 à 15:24
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/35044-nombre-premiers
https://codes-sources.commentcamarche.net/source/35044-nombre-premiers
12 déc. 2005 à 15:24
Winrar permet d'enregistrer au format Zip. Il faut juste que les utilisateurs de Winrar fassent un effort en déposant leurs sources sur ce site.
11 déc. 2005 à 23:42
11 déc. 2005 à 22:59
If Mid$(Selight, 1, 1) 1 Then ligt0.Visible True Else ligt0.Visible = False
If Mid$(Selight, 2, 1) 1 Then ligt1.Visible True Else ligt1.Visible = False
If Mid$(Selight, 3, 1) 1 Then ligt2.Visible True Else ligt2.Visible = False
If Mid$(Selight, 4, 1) 1 Then ligt3.Visible True Else ligt3.Visible = False
ca donnerait ceci :
ligt0.Visible (Mid$(Selight, 1, 1) "1")
ligt1.Visible (Mid$(Selight, 2, 1) "1")
ligt2.Visible (Mid$(Selight, 3, 1) "1")
ligt3.Visible (Mid$(Selight, 4, 1) "1")
Et encore, avec des groupes de contrôles, on peut en écrire encore moins.
Un truc du genre :
for l=1 to 4:ligt(l-1).Visible = (Mid$(Selight,i,1)="1"):Next l
Mais il faut avoir le groupe de contrôles ligt auparavant.
=======================================================
Ton programme a une originalité par rapport au millier d'autres qui traitent des nombres premiers : il utilise des intervalles, et a d'autres fonctionnalités comme l'écriture de fichiers.
Le code n'est pas du tout commenté. Dommage, il a l'air plutôt bien écrit.
Par contre, évite les fichiers .rar
VBFrance change les extensions en .zip
Du coup, il faut changer l'extension en .rar avant de l'ouvrir.
Au passage, une note pour les webmasters : Les .exe ne sont pas supprimés des fichiers Winrar. Soit il faut les supprimer, soit il faut interdire l'upload de fichier Winrar.