Un petit soft pour le theorème de pythagore
Soyez le premier à donner votre avis sur cette source.
Snippet vu 3 219 fois - Téléchargée 29 fois
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
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
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
- Un petit soft pour le theorème de pythagore
- Un petit prog qui utilise le theoreme de pythagore il y a juste a cliquer sur calculer ! - Codes sources - Visual Basic / VB.NET (Maths)
- Théoreme de pythagore - Codes sources - Visual Basic / VB.NET (Maths)
- Visual Basic / VB.NET : Reciproque du théorème de pythagore - CodeS SourceS - Guide
- Delphi / Pascal : Ascii-t : petit soft d'ascii art. - CodeS SourceS - Guide
- ASP / ASP.NET : Un petit soft pour lancer cassini avec les bon paramétres pour tester vos pa - Guide
Commentaires
C tu que sa existe "Dim a as double, b as double, c as string"
- Messages postés
-
6814
- Date d'inscription
- dimanche 15 décembre 2002
- Statut
- Modérateur
- Dernière intervention
- 13 octobre 2010
27@+
@++
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.