Un petit soft pour le theorème de pythagore

Contenu du snippet

bon, c'est ma première source alors soyez indulgent s'il vous plaît messieurs les pros du VB. J'ai commencé il y a seulement 3 jours alors c'est pas très evolué.
Comme c'est expliqué dans le titre, ça permet de calculer avec le théorème de pythagore soit un côté soit un hypoténuse

Source / Exemple :


Private Sub cote_Click()
Dim cote As String
cote = InputBox("entrez un côté du triangle", "coté")
Dim hyp As String
hyp = InputBox("entrez l'hypotenuse du triangle", "hypotenuse")
Dim coteDouble As Double
coteDouble = CDbl(cote)
Dim hypDouble As Double
hypDouble = CDbl(hyp)
Dim cote2 As Double
cote2 = (hypDouble * hypDouble) - (coteDouble * coteDouble)
cote3 = Sqr(cote2)
reponse = MsgBox("le 3° côté du triangle mesure " & cote3, vbOKOnly, "3°côté")
End Sub

Private Sub hypotenuse_Click()
Dim cote1 As String
cote1 = InputBox("Entrez un coté du triangle", "premier côté")
Dim cote2 As String
cote2 = InputBox("Entrez le deuxième coté du triangle", "deuxième côté")
Dim cote1Double As Double
cote1Double = CDbl(cote1)
Dim cote2Double As Double
cote2Double = CDbl(cote2)
Dim hypDouble As Double
hypDouble = (cote1Double * cote1Double) + (cote2Double * cote2Double)
hypfin = Sqr(hypDouble)
reponse = MsgBox("l'hypoténuse mesure " & hypfin, vbOKOnly, "hypotenuse")
End Sub

Conclusion :


Heu juste pour prévenir, parce que je ne sais pas si c'est compatible , ma source a été faite en VB5 donc voyez, je ne sais pa :p. Et puis pour le faire marcher, faîte une form avec 2 boutons : un cote et un hypotenuse voual, amusez vous bien :D

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.