PETIT PROGRAMME POUN ENTRAÎNER LE COLLÈGIEN AUX FRACTIONS. PAR TIENCE, EN RÉACT

Signaler
Messages postés
9
Date d'inscription
mardi 16 novembre 2004
Statut
Membre
Dernière intervention
9 janvier 2008
-
Messages postés
99
Date d'inscription
jeudi 17 février 2005
Statut
Membre
Dernière intervention
20 août 2008
-
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/34533-petit-programme-poun-entrainer-le-collegien-aux-fractions-par-tience-en-reactualisation

Messages postés
99
Date d'inscription
jeudi 17 février 2005
Statut
Membre
Dernière intervention
20 août 2008

A Etam75 qui n'est pas trop sympa dans sa critique constructive:
J'ai écrit ce code il y a un certain temps, à mes débuts!Il est inspiré aussi de Basic compatible...
Chacun fait ce qu'il peut à un moment de sa vie!

Une seule question essentielle: le programme marche ou ne marche pas? C'est ce que vous 'avez pas dit! Compilé, l'utilisateur ne se souciera pas de la source...
De toute façon, les brillantes démos dans quelques temps seront aussi caduques que les miennes!
De toute façon VB6.0 est déjà mort et enterré! Ne vous donnez pas ce mal inutile.
Il n'est même plus vendu !
Bonne continuation et soyez moins agressif pour expliquer! Vous ne devez pas être prof, ce qui demande gentillesse et patience....;)
Cordialement

Lisa
Messages postés
1
Date d'inscription
lundi 17 juillet 2006
Statut
Membre
Dernière intervention
5 avril 2007

J'ai jamais vu un code pareil en VB, on a pas du avoir le meme prof..Faut revoir tes classics...

court exemple :
--------------------------------------------------------------
Option Explicit
________________________________________________________________
Function fPPCM(Nb1 As Long, Nb2 As Long) As Long
Dim K As Long, R As Long, tmp As Long
R = Nb1 Mod Nb2
If R = 0 Then
fPPCM = Nb1
Else
K = 2
While R <> 0
tmp = K * Nb1
R = tmp Mod Nb2
K = K + 1
Wend
fPPCM = tmp
End If
End Function
_________________________________________________________________
Function fPPCM2(ByVal Nb1 As Long, ByVal Nb2 As Long) As Long
fPPCM2 = Nb1 * Nb2 / fPGCD(ByVal Nb1, ByVal Nb2)
End Function
Messages postés
10
Date d'inscription
vendredi 11 novembre 2005
Statut
Membre
Dernière intervention
16 novembre 2005

Bonjour Lisa
C'est vrai que certaines parties du code sont de simples algos de Basic premier. Et alors ? Basic est un langage ! Si tu sais faire ça au début ? Continue, peu à peu...tu apprendras! Seule, c'est pas facile !

Tu as mis des variables de page, je crois, avec Option Explicit pour ne pas oublier de déclarations, où est la faute signalée ? Locale, de Page, Public, c'est selon ! C'est du VB, on peut !

Je remarque en effet que chez toi, comme tu l'expliques, tout nombre non-entier est filtré et ne passe pas! Bien !

Puis, entrer et restituer des fractions réduites, et surtout donner une réduction "scolaire" parfaite de la racine carrée, peu de programmes d'initiés le font! Et en 4 lignes de Basic à papa, bravo Lisa!
Puis le programme tourne bien et rapide! Moi je n'ai pas trouvé d'erreurs en tout cas !
Moi je ne vais pas te chercher la petite bête . Je vois qu'un papa est satisfait pour son fils en 6eme donc ...Apprends le VB, continue Lisa !
Vero

PS: Débutante, tu demandes à ne pas être notée, Alors, on devrait respecter ton choix...
Messages postés
99
Date d'inscription
jeudi 17 février 2005
Statut
Membre
Dernière intervention
20 août 2008

Ah bon, public marche sur toute feuille et valable pour tout le projet ? Merci ! J'ignorais !
Pourquoi Diane Zak fait mettre un module de code dans ce cas, pour que les variables soient valables pour toutes les feuilles, je vais la relire. ?

OK , pas obligé de déclarer ce qui est variant par défaut là je savais, mais ça me rassure LOL !
Exemple MsgBox on le voit même déclaré dans la "bible de VB" le Guide du programmeur pro, un monument, dont je sais 1 % de ce livre, même pas !Mais la bible, c'est pas l'évangile : ! (humour)

Concernant fix(val(text1.text)), oui, mais essaie de comprendre ce que je fais maintenant,pour simplifier mes conditions imparables d'entiers obligatoires, que je fais; (revois ça...)?

If boxtext = Val(boxtext) and val(Boxtext)= fix(val(boxtext)) then
'entrée correcte
else
message
exit sub
end if

Alors poser ces conditions avec 2 égalités de fractions, avec 12 termes à chaque fois, 12 fois l'exemple, vaut mieux avoir des variables at, av, af pour l'écrire !LOL !
Puis sans variables déclarées, suis pas très sûr que ça marcherait?

Car faire: textbox qui est une chaîne val une valeur, à moi, ça me parait pas logique...??? Comme écrire : la montagne 12 +5 ;)
Il doit y avoir des instructions avancées pour ce problème, mais en attendant, mon astuce marche absolument dans tous mes programmes et j'évite les absurdités d'un code qui traite comme 3 une saisie de 3.5 ! Ou de 3,5 !
Je refais les systèmes avec ceci et avec des textBox, les inputBox ayant été critiqués: je le remettrai ensuite ici !
Merci Julien et bonne nuit !!
Afficher les 12 commentaires