Encore une source de maths ...

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 091 fois - Téléchargée 31 fois

Contenu du snippet

Bon, c'est une autre source mais cette fois pour calculer le cosinus le sinus et la tangente, oui, je sais ya des calculettes qui font ça très bien mais ça m'a permis d'apprendre à me servir des MsgBox et InputBox et des variables :p

Source / Exemple :


Private Sub sin_Click()
Dim oppose As String
oppose = InputBox("entrez le côté opposé à l'angle duquel vous voulez calculer le sinus", "opposé")
Dim hypotenuse  As String
hypotenuse = InputBox("entrez l'hypoténuse du triangle rectangle dont vous voulez calculer le sinus", "hypoténuse")
Dim opposedouble As Double
opposedouble = CDbl(oppose)
Dim hypotenusedouble As Double
hypotenusedouble = CDbl(hypotenuse)
Dim sinusDouble As Double
sinusDouble = opposedouble / hypotenusedouble
reponse = MsgBox("le sinus de cet angle est égal à " & sinusDouble, vbOKOnly, "Sinus")
End Sub

Private Sub cos_Click()
Dim adjacent As String
adjacent = InputBox("Entrez le côté adjacent au cosinus que vous voulez calculer", "adjacent")
Dim hypotenuse As String
hypotenuse = InputBox("Entrez l'hypotenuse de ce triangle", "hypotenuse")
Dim adjacentDouble As Double
adjacentDouble = CDbl(adjacent)
Dim hypotenusedouble As Double
hypotenusedouble = CDbl(hypotenuse)
Dim cosinusdouble As Double
cosinusdouble = adjacentDouble / hypotenusedouble
reponse = MsgBox("le cosinus de cet angle est de " & cosinusdouble, vbOKOnly, "Cosinus")
End Sub

Private Sub tan_Click()
Dim oppose As String
oppose = InputBox("Entrez le côté opposé à l'angle dont vous voulez calculer la tangente", "oppose")
Dim adjacent As String
adjacent = InputBox("Entrez le côté adjacent à l'angle que vous voulez calculer", "adjacent")
Dim opposedouble As Double
opposedouble = CDbl(oppose)
Dim adjacentDouble As Double
adjacentDouble = CDbl(adjacent)
Dim tangenteDouble As String
tangenteDouble = opposedouble / adjacentDouble
reponse = MsgBox("la tangente de cet angle est égale à " & tangenteDouble, vbOKOnly, "tangente")
End Sub

Conclusion :


Bah pour le faire marcher faite une form avec 3 bouttons : tan, sin et cos et pis normalement ça va tout seul . C'est encore une source en VB5

A voir également

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.