NOMBRE D'ARMSTRONG VB6 (SOURCE POUR DÉBUTANT)
violent_ken
Messages postés
1812
Date d'inscription
mardi 31 mai 2005
Statut
Membre
Dernière intervention
26 octobre 2010
-
11 janv. 2007 à 13:48
newbieflag Messages postés 8 Date d'inscription lundi 6 février 2006 Statut Membre Dernière intervention 23 novembre 2007 - 18 juin 2007 à 13:44
newbieflag Messages postés 8 Date d'inscription lundi 6 février 2006 Statut Membre Dernière intervention 23 novembre 2007 - 18 juin 2007 à 13:44
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/41060-nombre-d-armstrong-vb6-source-pour-debutant
https://codes-sources.commentcamarche.net/source/41060-nombre-d-armstrong-vb6-source-pour-debutant
18 juin 2007 à 13:44
18 juin 2007 à 11:50
18 juin 2007 à 11:34
18 juin 2007 à 11:32
12 juin 2007 à 09:39
Les forms on les a vu au premier cour et c'etait avant le mois de janvier.
De plus, j'avais déjà fait un peu de delphi avant de venir donc je savais ce que c'était.
;+)
11 juin 2007 à 16:35
Tu connaissais peut-être VB à la base avant qu'on l'étudie mais beaucoup dans la classe ne connaissais rien à la prog et aux langages, c'était le début...je te rappelle que cet source remonte au deuxième cours de VB... c'est niveau très débutant...comme Marcel ptdr pas hooligan...lui c'est néophyte...
11 juin 2007 à 16:03
8 juin 2007 à 11:17
12 janv. 2007 à 16:28
Violent_ken, merci pour ces précisions au sujet des déclarations de variables dans mon exemple, vu la taille du programme, l'utilisation de la mémoire n'est pas très importante mais tu as raison sur des codes longs, cela peut être très utile, je vais modifier ma source.
12 janv. 2007 à 13:27
"- au sujet de la déclaration des variables, tu as peut-être raison, par simplicité, on peut je pense rajouter une virgule derrière la variable unite mais, je touche du bois, tous les programmes que j'ai fait ont toujours fonctionné avec la déclaration de variable tel quel..."
> c'est juste que si tu ne mets le "As TypeVariable" que sur la dernière variable, seule celle ci sera définie dans ce type de variable.
En delphi, tu fais Var i,j : Integer; et tu déclares les deux variables en Integer. En VB, Dim i,j As Integer ne déclare que le j en integer et le i reste en variant.
Donc certes, la suite du programme marchera sans problème, mais le type variant est gourmand en mémoire et est surtout très lent à manipuler.
@+
12 janv. 2007 à 10:25
12 janv. 2007 à 10:24
ne serait-il pas possible pour éviter tes variables millier , centaine, ..d'utiliser la fonction mid$() pour ton nombre
du style( à vérifier) :
Dim Somme as long
Dim I as long
function estArmstrong(Nombre as long) as boolean
somme=0
for i = 1 to len(nombre)
somme = somme + clng(misd$(nombre,i,1))^3
next
estArmstrong = (somme=nombre)
end function
11 janv. 2007 à 19:18
Au sujet des remarques:
- indenter le code -> c'est vrai très important pour la lisibilité, désolé j'ai oublié ayant l'habitude de l'indentation automatique de VB2005 je règle ça dès que j'ai un moment...
- au sujet de la déclaration des variables, tu as peut-être raison, par simplicité, on peut je pense rajouter une virgule derrière la variable unite mais, je touche du bois, tous les programmes que j'ai fait ont toujours fonctionné avec la déclaration de variable tel quel...
- division d'un string, ok ça rejoint ce que tu expliqué au dessus
- l'idée d'une fonction est interesante mais je tiens à signaler que j'ai fait cette source pour des débutants (dans ma classe plus précisement) qui connaissent à peine ce qu'est un form...
- enfin la msgbox ton explication est tout à fait appréciable mais je rejoins la ligne du dessus au sujet de la destination de la source
Voilà @+
11 janv. 2007 à 13:48
-pense à indenter ton code
-"Dim mille, centaine, dizaine, unite As Integer" ==> ceci déclare toutes les variables sauf la dernière en Variant. Donc il faut écrire
Dim mille As Integer, centaine As Integer, dizaine As Integer, unite As Integer
pour déclarer toutes les variables en Integer
-la ligne "mille = nbre.Text \ 1000" marche à cause du Variant (voir remarque précédente), mais c'est pas génial (division d'une string)
Il faut convertir la string en nombre avec Val()
-tout le code est dans un Command2_Click() ==> c'est mieux de créer une fonction qui prend en entrée le nombre et qui renvoie le résultat.
Exemple de prototype :
Public Function IsArmstrongNumber(byval Nombre as integer) as boolean
-pour finir, une précision très générale sur les fonctions en VB (dans ton cas le MsgBox).
Soit la fonction "Public Function MaFonc(MaVar as integer) as long"
Elle renvoie un long, donc on peut faire :
retour=MaFonc(5)
Mais si le retour n'est pas utile (exemple, dans ton cas la valeur donnée par la msgbox n'est pas réutilisée), ceci suffit :
MaFonc 5
> pas de parenthèses ==> pas de variable retour
-question pour ma culture générale : quelle peut être l'application mathématique des nombres de ArmStrong (que je découvre avec ta source) ?
@+