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

Commentaire de Klug88 le 10/11/2005 08:50:16

Très bonne idée pour mon fils qui est en 6ieme.
De plus cela pourra aussi lui faire une bonne intro en VB....

;-)

Commentaire de Klug88 le 10/11/2005 12:42:25

Je pensais plutôt aux fractions, il est vrai qu'il à encore le temps pour le reste.

Commentaire de Julien39 le 10/11/2005 20:37:34 administrateur CS

Bonjour

Si on ne regarde que l'execution c'est très bien a part que les fenetres ne sont pas centrées, en revanche le code n'est pas extraordinaire, l'utilisation abusive des Goto n'est pas une bonne idée je pense, ils peuvent etres facilement remplacés par des boucles while ou for.

Les Goto allongent le code et rendent les choses difficiles a comprendre.

La déclaration des variables c'est bien mais je ne comprends pas pourquoi tu ne mets pas Public "variable" as "type" au lieu de option explicit ...

Commentaire de Lisa46 le 10/11/2005 22:22:32

Oui OK, Julien, j'ai revu et j'ai pigé pour les variables !
Avec les systèmes à 2 inconnues  (que je refais en ce moment), ce code est un code ancien repris et c'est un des rares qui n'a pas de Module de code.

Donc je ne peux pas déclarer public pour un projet sans cette feuille spécifique de module de code, si j'ai bien compris  Diane Zack ??????????
Tu me diras !???

Puis Public nom as type, il faut que ce soit nécessaire; exemple, tu calcules sur une feuille et sur une autre tu traces le graphique avec les valeurs trouvées dans la feuille précédente! Là avec module de code est Public, ça marche super, tout est gardé en mémoire!

Je trouve même que j'abuse du Public maintenant dans les programmes que je fais, et pas postés ici...

Mais, tu me diras aussi : option explicit, c'est toute autre chose = l'obligation à déclarer tes variables, sinon VB t'en informe !
J'ai voulu savoir si tout était utile à déclarer.

Maintenant, les progrés en VB moderne reste un vrai problème pour moi, être moins Basic !  Mais déjà j'approfondis ce que je sais dans les bases élémentaires et je découvre plein de choses ! Je suis contente de  ça et je note tout !

Exemple pour VaL est-ce que tout le monde sait tout?

              Tu mets Val(3.15) tu as quoi ????

a) Tu as 3.15 si tu es déclaré réel et seulement 3 si tu es déclaré Entier. Normal !

b) Mais tu auras Val(3.15)= 3,15 si tu es déclaré réel (Double par exemple) et AUSSI paramétré virgule en Windows !Etonnant, non, mais logique, j'ai testé tout ça avec un programme que j'ai fait !

c) En revanche si tu as Val(3,15) dans tous les cas tu auras  seulement 3 car la virgule est toujours lue alphanumérique, même si VB sait remplacer 3.15 en 3,15 mathématiquement, si paramétré virgule !
Pas simple ! Tu trouves pas ! J'ai dû trouver ça seule !
Et tu  vois l'importance gravissime pour les saisies! (On en en avait parlé!). Car simplifier une fraction, j'utilise l'algo d'Euclide et tu imagines la suite ! Le résultat du programme est faux par rapport à la saisie !. C'est pas une paille, ça !!

Puis plein d'autres choses aussi, sur les simples bases de VB, je cimente mais j'avance pas dans l'étude ! Les goto attendront, car le pire c'est d'avoir des résultats faux et des error no 124 LOL
Je trouve ça extrêmement grave, les erreurs dans les résultats !

Mais je note bien tout ce que tu m'as dit! C'est Vrai aussi pour l'absence de Public dans ce code.
Lisa

Commentaire de Lisa46 le 10/11/2005 23:20:36

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 !!

Commentaire de Etam75 le 05/04/2007 09:43:10

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