OUTILS MATHÉMATIQUES

cs_Julien39 Messages postés 6414 Date d'inscription mardi 8 mars 2005 Statut Modérateur Dernière intervention 29 juillet 2020 - 7 août 2005 à 23:24
Ahsan78 Messages postés 1 Date d'inscription lundi 16 avril 2007 Statut Membre Dernière intervention 26 avril 2007 - 26 avril 2007 à 22:08
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/33117-outils-mathematiques

Ahsan78 Messages postés 1 Date d'inscription lundi 16 avril 2007 Statut Membre Dernière intervention 26 avril 2007
26 avril 2007 à 22:08
Bonjour
Comme je suis nouveaux sur ce site je voudrais savoir comment exécuter ces Fichier ??
Merci !
cs_SDan Messages postés 288 Date d'inscription dimanche 1 septembre 2002 Statut Membre Dernière intervention 13 juin 2008
17 déc. 2005 à 16:02
Finalement avec la formule que tu m'as donné, ça fonctionne parfaitement Merci de ta patience.
cs_SDan Messages postés 288 Date d'inscription dimanche 1 septembre 2002 Statut Membre Dernière intervention 13 juin 2008
17 déc. 2005 à 15:48
désolé, le lien avec la source que tu m'as envoyé ne fonctionne pas car si tu copies l'adresse et que tu lances, le message suivant apparaît : Le cod edemandé a été désactivé par un des administrateurs de VBFrance.
cs_Julien39 Messages postés 6414 Date d'inscription mardi 8 mars 2005 Statut Modérateur Dernière intervention 29 juillet 2020 371
17 déc. 2005 à 14:13
SDan va voir cette source je viens de la poster sa devrait résoudre tes problemes http://www.vbfrance.com/code.aspx?ID=35132
cs_Julien39 Messages postés 6414 Date d'inscription mardi 8 mars 2005 Statut Modérateur Dernière intervention 29 juillet 2020 371
17 déc. 2005 à 12:15
C'est le meme pricipe, tu remplace Round(x,n) par fix(10^n*x)/10^n ce qui donne:

If D = 0 Then
Label4.Visible = False
Label3.Caption = Fix(100 * (-b + Sqr(D)) / (2 * a)) / 100
Label4.Caption = Fix(100 * (-b + Sqr(D)) / (2 * a)) / 100
End If

If D > 0 Then
Label4.Caption = Fix(100 * (-b - Sqr(D)) / (2 * a)) / 100
Label3.Caption = Fix(100 * (-b + Sqr(D)) / (2 * a)) / 100
End If

If D < 0 Then
Label3.Caption = "" & Fix(100 * (-b / (2 * a))) / 100 & " - i* " & Fix(100 * (Sqr(-D) / (2 * a))) / 100
Label4.Caption = "" & Fix(100 * (-b / (2 * a))) / 100 & " + i* " & Fix(100 * (Sqr(-D) / (2 * a))) / 100
End If
cs_SDan Messages postés 288 Date d'inscription dimanche 1 septembre 2002 Statut Membre Dernière intervention 13 juin 2008
17 déc. 2005 à 10:27
Merci pour tout mais peux-tu me donner la formule pour Equations - Degré2 car j'ai encore le problème de round
cs_Julien39 Messages postés 6414 Date d'inscription mardi 8 mars 2005 Statut Modérateur Dernière intervention 29 juillet 2020 371
17 déc. 2005 à 10:24
Si la valeure de pi est a peu pres égal à 3,1416 mais elle est aussi a peu près égale à 3 meme si c'est une moins bonne approximation, une atre approximation est 3,14159265, on remarque que si on s'arrete à la 4° décimale on prendra 3.1416.

Une approximation de pi à 3.1416 signifie que 3.1415<pi<3.1417 la derniere décimale est comme un facteur de précision
cs_SDan Messages postés 288 Date d'inscription dimanche 1 septembre 2002 Statut Membre Dernière intervention 13 juin 2008
17 déc. 2005 à 10:18
Je viens de corriger avec ce que tu m'as envoyé, maintenant, si j'entre de snombres, il me dit vrai ou Faux.

J'ai testé aussi dans Approximations, dans la valeur Pi, si je mets une approximation à 100, ça fonctionne mais la valeur de Pi n'est-elle pas 3,1416...

Merci d'avance.
cs_Julien39 Messages postés 6414 Date d'inscription mardi 8 mars 2005 Statut Modérateur Dernière intervention 29 juillet 2020 371
17 déc. 2005 à 10:03
Je ne voit pas précisément car chez moi tout fonctionne, la fonction Round n'existe peut etre pas sur VB5.
J'ai une solution à te proposer pour remplacer cette fonction avec la partie entiere.

L'expression b=Round(a,2) équivaut à b = Fix(100 * a) / 100
Tiens moi au courant si sa fonctionne en VB5 je remplace dans mon code
cs_SDan Messages postés 288 Date d'inscription dimanche 1 septembre 2002 Statut Membre Dernière intervention 13 juin 2008
17 déc. 2005 à 09:46
Bonjour,

Pas mal du tout mais j'ai encore quelques soucis ave ccertains outils, par exemple Equations - degré 1 et 2, si j'entre les nombres et que je clique sur calculer, le message d'erreur suivant s'affiche :

Erreur de compilation
Procédure Sub ou Function non définie et si je clique sur OK, je tombe dans le code sur Private sub Commande1_click () et la dedans, le mot Round est sélectionné

Else: Label2.Caption "x " & Round((Text3.Text - Text2.Text) / Text1.Text, 2) & ""

J'utilise la version 5.0 de VB Que puis-je faire?

Merci d'avance.
cs_Julien39 Messages postés 6414 Date d'inscription mardi 8 mars 2005 Statut Modérateur Dernière intervention 29 juillet 2020 371
16 déc. 2005 à 23:09
J'ai ajouté de nouvelles catégories dont le calcul des entiers Pythagoriciens. J'ai retouché le code en plusieurs points et j'ai ajouté des modules, le programme est à présent pplus soigné, si vous avez des suggestions n'hésitez pas.

Remarque: La présentation de la premiere feuille peut paraitre étrange mais le but est de faciliter l'ajout de prochaines catégories.
K G Messages postés 16 Date d'inscription jeudi 11 août 2005 Statut Membre Dernière intervention 20 juillet 2006
25 oct. 2005 à 22:24
Salut,

Je sais pas pk mais ya une faute dans le perimetre du triangle rectangle : ce N'est pas "Text9.Text + Text10.Text + Sqr(Text10.Text * Text10.Text + Text9.Text * Text9.Text)" Qu'il faut mêtre mais "Sqr(Text10.Text * Text10.Text + Text9.Text * Text9.Text) + Text9.Text + Text10.Text"
Je comprend pas pk mais bon j'ai trouvé :)
Herbiti Messages postés 3 Date d'inscription jeudi 22 septembre 2005 Statut Membre Dernière intervention 22 septembre 2005
22 sept. 2005 à 21:13
J'aimerai savoir quel programme dois-je télécharger afin de lre les frm, car j'ai access et je programme en VB, mais sous l'interface Acces, avec des formulaires, etc...

Merci de m'éclaircir
cs_SDan Messages postés 288 Date d'inscription dimanche 1 septembre 2002 Statut Membre Dernière intervention 13 juin 2008
17 sept. 2005 à 14:12
moi, je la trouve plutôt cool et c'est mieux. Bravo
cs_Julien39 Messages postés 6414 Date d'inscription mardi 8 mars 2005 Statut Modérateur Dernière intervention 29 juillet 2020 371
17 sept. 2005 à 13:06
J'ai modifié l'interface pouvez vous me dire ce que vous en pensez
cs_Julien39 Messages postés 6414 Date d'inscription mardi 8 mars 2005 Statut Modérateur Dernière intervention 29 juillet 2020 371
25 août 2005 à 18:19
Le programme est mis a jour j'ai modifié l'interface et j'ai abandonné les form multicolores, j'espere que vous trouverai sa bien.

Si vous avez des suggestions ( au niveau de l'interface que je ne trouve pas encore formidable ou autre ) n'hésitez pas.
zemetafyzik Messages postés 117 Date d'inscription jeudi 17 juin 2004 Statut Membre Dernière intervention 3 novembre 2007 1
8 août 2005 à 10:30
petite suggestion:
au moment de lister les nombres premiers, bon, il y a mille est une facon d'aller plus vite ou faire differement et donc comme c'est pas trop le but rechercher, je te conseil une chose simple :

rend la liste box invisible au lancement, et reafiche la une fois terminer.
pour les nombres de 0 a 100 000 j'ai gagné 6 secondes.
et tu peu le remplacer par une barre de progression ?
BZY1 Messages postés 214 Date d'inscription jeudi 10 mars 2005 Statut Membre Dernière intervention 12 avril 2008
8 août 2005 à 09:48
salut, mis à part les couleurs c'est vrai que ton prog est plutot bien et c'est une très bonne idée d'avoir rassemblé tes précédents prog qui était déja très interessant.
ça serait encore mieux si tu pouvais faire une interface graphique qui parraisse plus professionnel et si tu ajoutais à cela une calculatrice scientifique et graphique :) (ce n'est bien sur qu'une suggestion, idée comme une autre)
bon courage pour la suite a+
cs_SDan Messages postés 288 Date d'inscription dimanche 1 septembre 2002 Statut Membre Dernière intervention 13 juin 2008
8 août 2005 à 09:27
Bonjour,

Bravo pour ta source, moi, ça m'aide beaucoup. Néanmoins, j'ai un petit problème du côté des équations : car tu me mets ds ton code pour le 2e degré :
Label2.Caption = Round(b * b - 4 * a * c, 2) et chez moi, c'est le Round quyi pose problème en me mettant : Erreur de compilation
Procedure Sub ou Function non définie;
Que faire? Sinon pour le reste, c'est parfait. Bravo;

Quant aux mises à jour régulières, c'est quand tu veux.
Cacophrene Messages postés 251 Date d'inscription lundi 29 mars 2004 Statut Membre Dernière intervention 4 mars 2008 1
8 août 2005 à 07:49
Salut à toi !

C'est bien d'avoir programmé Pythagore, mais avec un chouia de plus tu pouvais faire Al Kashi et gagner d'un coup toute la généralité du problème. Sinon le reste c'est plutôt cool, sauf peut-être les couleurs de l'interfaces qui sont trop contrastées (à mon goût du moins).

Cordialement,
Cacophrène
cs_Julien39 Messages postés 6414 Date d'inscription mardi 8 mars 2005 Statut Modérateur Dernière intervention 29 juillet 2020 371
7 août 2005 à 23:24
Si cette source intéresse suffisamment de monde je la mettrai à jour régulièrement.

Ce programme fait partie d'un programme plus vaste mais qui ne présente pas d'intérêt pour le côté programmation mais qui plaira sans aucun doute à tout les amateurs de mathématiques si vous êtes intéressés envoyez moi un mail sur le réseau codes sources.
Rejoignez-nous