1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Un petit soft pour le theorème de pythagore

Un petit soft pour le theorème de pythagore

4/5 (12 avis)

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

Commenter

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

Ajouter un commentaire Commentaires
gabchampagne
Messages postés
216
Date d'inscription
mercredi 2 avril 2003
Statut
Membre
Dernière intervention
5 mai 2004
16 janv. 2004 à 03:15
LOL. C'est compliqué pour une si petite formule. J'ai un conseil pour toi :
C tu que sa existe "Dim a as double, b as double, c as string"
jesusonline
Messages postés
6814
Date d'inscription
dimanche 15 décembre 2002
Statut
Membre
Dernière intervention
13 octobre 2010
 29
29 déc. 2003 à 22:47
Je pense qu'il serait facile est plus interessant d'integrer le theoreme d'Al Kashi qui est en fait qu'une généralisation du théorème de pythagore, il permet de calculer n'importe quelle coté à partir des deux autres et d'un angle, je me rappelle plus des formules mais c'est facilement trouvable sur le net

@+
aqbcbm
Messages postés
1
Date d'inscription
mercredi 17 décembre 2003
Statut
Membre
Dernière intervention
18 décembre 2003
18 déc. 2003 à 03:30
Bon début
MouLeT
Messages postés
90
Date d'inscription
samedi 11 octobre 2003
Statut
Membre
Dernière intervention
27 juillet 2009
16 déc. 2003 à 13:35
Puis tu sais ya pas que des pros ,ya aussi des débutants comme toi ,moi j'ai commencer vb que depuis 2mois et demi...Pour moi je suistoujours un debutants =) mais je vois que t'apprend tres vite .Bon courage ^^

@++
cs_guis
Messages postés
7
Date d'inscription
jeudi 26 juin 2003
Statut
Membre
Dernière intervention
15 décembre 2003
15 déc. 2003 à 19:58
je v y songer :D
Afficher les 12 commentaires
S'inscrire maintenant

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.

Du même auteur (cs_guis)