Petit programme poun entraîner le collègien aux fractions. par tience, en réactualisation

Soyez le premier à donner votre avis sur cette source.

Vue 12 105 fois - Téléchargée 452 fois

Description

Ici deux projets logiquement liés pour des révisions en collège:
1) Nombres entiers: décomposition en Basic, PGCD, PPCM , Racine carrée réduite.
2) Opérations sur les fractions. Le dernier résultat est rappelé au menu pour permettre des enchaînements de calculs.
Un peu d'interactivité : on demande de donner un résultat avant de cliquer sur "réponse".

Conclusion :


Codes simples, basiques. Niveau débutant. Conseil bienvenus, mais merci quand même de ne pas "exiger" de suite les fonctions que je n'ai pas encore apprises: case, call, que sais-je encore...
Beaucoup de basic mais ce basic est intégré à VB par Microsoft avec mille bonnes raisons, sans doute . Comparer ce qui est comparable dans une catégorie de débutants: noter n'est donc pas nécessaire.
Merci aussi de faire tourner les programmes si cette source vous intéresse. Retoucher le code après me semble plus judicieux, selon moi. Enfin vous voyez...
Merci des conseils donnés précédemment et que j'ai suivis: US...Julien, et autres. Merci à tous !
Lisa

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_Lisa46
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
Etam75
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
Vero_vero
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...
cs_Lisa46
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 !!
cs_Julien39
Messages postés
6413
Date d'inscription
mardi 8 mars 2005
Statut
Modérateur
Dernière intervention
17 mai 2018
256
Pour public tu peux le placer sans aucun module particulier mais je ne suis pas certain de voir ce que tu veux dire.

Pour tes déclarations tu demandes s'il est utile de tout déclarer la réponse est non.

Tout d'abord il est inutile de déclarer quelque chose en variant car tout est par défaut déclaré en variant

Enifn tu n'est pas obligée d'utiliser des varaibles pour tout par exemple pour le PGCD, il est inutile de créer des variables acceuillant fix(val(text1.text))...... tu peux l'écrire directement dans le code.

Derniere remarque pour centrer tes fenetres StartUpPosition = 2

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.