Soyez le premier à donner votre avis sur cette source.
Snippet vu 6 014 fois - Téléchargée 28 fois
' Module Calculs.cls ' Oblige la déclaration des variables Option Explicit Private I As Integer Public NUM1 As Double Public NUM2 As Double Public NUM3 As Double Public NUM4 As Double Public Tag As Variant Public Function Addition(W As Double, X As Double, Optional Y As Double, Optional Z As Double) As Double ' Ajoute tous les nombre entre eux Addition = W + X + Y + Z End Function Public Function Soustraction(W As Double, X As Double, Optional Y As Double, Optional Z As Double) As Double ' Retranche tous les nombre entre eux Soustraction = W - X - Y - Z End Function Public Function Multiplication(W As Double, X As Double, Optional Y As Double, Optional Z As Double) As Double ' Multiplie tous les nombre entre eux si Z et Y <> 0 If (Y <> 0) And (Z <> 0) Then Multiplication = W * X * Y * Z End If ' Multiplie W et X si Y et Z = 0 If (Z = 0) And (Y = 0) Then ' Effectue une multiplication à deux chiffres Multiplication = W * X End If ' Teste si Z = 0 If (Z = 0) Then ' Multiplie W, X et Y Multiplication = W * X * Y End If ' Teste si Y = 0 If (Y = 0) Then ' Multiplie W, X et Z Multiplication = W * X * Z End If End Function Public Function Division(W As Double, X As Double) As Variant ' Teste si X = 0 If (X = 0) Then Division = "Erreur : Division par 0" ' Quitte la procédure Exit Function End If ' Effectue la division Division = W / X End Function Public Function Modulo(W As Double, X As Double) As Variant ' Teste si X = 0 If (X = 0) Then Modulo = "Erreur : Division par 0" ' Quitte la procédure Exit Function End If ' Effectue la division et trouve le reste Modulo = W Mod X End Function Public Function Carre(X As Double) As Double ' Trouve le carre de X Carre = X * X End Function Public Function Cube(X As Double) As Double ' Trouve le cube de X Cube = X * X * X End Function ' Module Trygonometrie.cls ' Oblige la déclaration des variables Option Explicit ' Point du triangle Public X As Double Public Y As Double Public Z As Double ' Angle du triangle ' AX = 90° car Cos, Sin et Tan veulent un angle droit Public AY As Double Public AZ As Double ' Coté du triangle Public XY As Double Public ZX As Double Public YZ As Double ' Fonctions Public Function Cosinus(Angle As Double) As Double ' Retourne le cosinus d'un angle Cosinus = Cos(Angle) End Function Public Function Sinus(Angle As Double) As Double ' Retourne le sinus d'un angle Sinus = Sin(Angle) End Function Public Function Tangent(Angle As Double) As Double ' Retourne le tangean d'un angle Tangent = Tan(Angle) End Function Public Function Pythagore(Oppose As Double, Adjacent As Double) As Double ' Utilise Pythagore pour trouver l'hypoténuse Pythagore = (Oppose * Oppose) + (Adjacent * Adjacent) End Function Public Function Adjacent(Hypotenuse As Double, Optional AY As Double) As Double ' Utilise cosinus pour trouver le coté adjacent du triangle XYZ Adjacent = Cos(AY) * Hypotenuse End Function
6 oct. 2008 à 17:49
je savoir comment je peux calculer les opérations de: cos(x) et sin(x) et tan(x)
et merci d'avance
5 juil. 2004 à 03:03
Abs = valeur absolue
Pour avoir Pi :
Atn(1) 45° Pi/4 radians
donc Pi = Atn(1) × 4
Atn renvoyant l'arctangeante d'un nombre ( tant - 1)
Pour arcsinus tu fais :
Atn(X / Sqr(-X * X + 1)) X = nombre
Pour ArcCosinus :
Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
pour mettre une puissance :
nombre^exposant
Int et Fix renvoie les parties entiére d'un nombre
Rnd renvoie un nombre aléatoire compris entre 0 et 1
Sgn renvoie le signe d'un nombre
Sgr renvoie la racine carré
Round arrondi un nombre au nombre de décimal choisi
d'autre précision :
tan a = sin a/cos a
cos a/sin a = 1/tan a
sin2 a + cos2 a = 1
sin2 a = 1 - cos2 a
cos2 a = 1 - sin2 a
cos (a+b) = cos a cos b - sin a sin b
sin (a+b) = sin a cos b + sin b cos a
cos (a-b) = cos a cos b + sin a sin b
sin (a-b) = sin a cos b - sin b cos a
tan (a+b) = tan a + tan b/1- tan a tan b
tan (a-b) = tan a - tan b/1+ tan a tan b
sin 2a = 2 sin a cos a
cos 2a = cos2 a - sin2 a
cos 2a = 2 cos2a - 1
cos 2a= 1-2 sin2 a
tan 2a = 2 tan a/1 - tan2 a
sin (- a) = - sin a
cos (- a) = cos a
tan (- a) = - tan a
sin (p - a) = sin a
cos (p - a) = -cos a
tan (p - a) = -tan a
sin (p + a) = -sin a
cos (p + a) = -cos a
tan (p + a) = tan a
sin (p/2 - a) = cos a
cos (p/2 - a) = sin a
sin (p/2 + a) = cos a
cos (p/2 + a) = sin a
Dans un triangle, régle de cosinus (Al Kashi, pythagore vient de cela) :
a2 = b2 + c2 - 2bc cos A
b2 = a2 + c2 - 2ac cos B
c2 = a2 + b2 - 2bc cos C
Je sais pas si cela te servira, mais sait on jamais ....
a+
13 mai 2004 à 18:09
Sinon, pour répondre au question de bouv, mettre une fonction Multiplication ne sert en effet à rien mais j'avais envie de taper du code lol. Et puis j'aurais surtout besoin d'aide pour calculer des puisances( j'ai beaucoup réfléchi et j'ai pas trouver, sa doit être un truc tout con comme d'habitudes). Et j'ai surtout besoin d'aide pour les autre fonction de trygo. Je suis en 4eme et j'ai appris que le cosinus ...
13 mai 2004 à 11:49
Evite d'utiliser le type Variant. C'est un fourre tout qui doit être évité au maximum.
Il est d'ailleurs déconseillé dans les 300 et quelques recommandations Microsoft.
Pour exemple :
Public Function Division(W As Double, X As Double) As Double
If (X = 0) Then
MsgBox "Erreur : Division par 0"
Division = 0
Else
Division = W / X
End if
End Function
Mais ne décourageons pas les néophites dont je fait également partis. Ma première source était un lecteur multimedia utilisant l'OCX WMP. Je croyais avoir fait un découverte énorme.
Le seul truc c'est que je ne vois pas pourquoi je ferai
Resultat = Multiplication X, Y
Au lieu de
Resultat = X * Y
C'est bcp plus long. De plus faire appel à un module est plus long que de mettre le code directement dans ta fonction. (euh je parle français là !). Surtout pour si peu.
Si tu veux continuer sur ce chemin, je pense qu'il faut que tu apporte un petit plus, sinon je ne vois pas vraiment d'intérêt car tu n'utilise que des fonctions natives de VB.
Voila, je noterai qd ce sera terminé
++
12 mai 2004 à 22:58
Pythagore =sqr( (Oppose * Oppose) + (Adjacent * Adjacent))
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.