CALCUL DE L'HYPOTHÉNUSE, D'UN COTÉ A PARTIRE DE L'HYPOTHÉNUSE ET VERIFICATION SI
cs_schtroumf
Messages postés
59
Date d'inscription
mercredi 8 octobre 2003
Statut
Membre
Dernière intervention
22 juillet 2008
-
2 déc. 2006 à 15:02
tecjas Messages postés 5 Date d'inscription mercredi 24 mai 2006 Statut Membre Dernière intervention 6 décembre 2006 - 6 déc. 2006 à 12:51
tecjas Messages postés 5 Date d'inscription mercredi 24 mai 2006 Statut Membre Dernière intervention 6 décembre 2006 - 6 déc. 2006 à 12:51
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/40547-calcul-de-l-hypothenuse-d-un-cote-a-partire-de-l-hypothenuse-et-verification-si-un-triangle-est-rectangle
https://codes-sources.commentcamarche.net/source/40547-calcul-de-l-hypothenuse-d-un-cote-a-partire-de-l-hypothenuse-et-verification-si-un-triangle-est-rectangle
6 déc. 2006 à 12:51
4 déc. 2006 à 14:38
(pour "tirielle", je pense que tu auras voulu dire "kyrielle".
Ah dur dur le français...
3 déc. 2006 à 19:34
Pour ce qui est du français, essais quand même de faire un petit effort (pas de sms) et de te relire.
3 déc. 2006 à 18:27
pr les else il y avait avant mais il fesait tout planté donc j'ai mis des if
3 déc. 2006 à 18:02
Je ne met pas de note pour l'instant mais éssai de le corriger .
@+,
COrentin
3 déc. 2006 à 16:41
En toute sympathie et gentillesse, il faut que tu demandes à ton professeur de français de t'aider ;o)))
Il y a vraiment beaucoup de fautes.
Très amicalement,
Patrice
2 déc. 2006 à 15:02
Il y a en effet pas mal d'améliorations à faire et de bugs à corriger dans ta source...
Tout d'abord ta fonction choix. Cette grande tirielle de if ne sert à rien et ne couvre pas tous les cas. Si l'utilisateur tape "ab" par exemple ça ne rentre dans aucun de tes if. if faut soit remettre la même chose que tu as fait mais avec un else
Sub choix()
Dim inputresult As String
inputresult = InputBox("calcul de l'hypothenuse: tapez h" & vbCrLf & "calcul d'un coté:tapez c" & vbCrLf & "verification si un triangle est rectangle tapez r", "choisissez une fonction")
If StrConv(inputresult, vbUpperCase) = "H" Then hypo
ElseIf StrConv(inputresult, vbUpperCase) = "C" Then coté
ElseIf StrConv(inputresult, vbUpperCase) = "R" Then rectangle
else MsgBox ("valeur invalide!")
end sub
Soit tu fais plus propre avec des case:
Sub choix()
Dim inputresult As String
inputresult = InputBox("calcul de l'hypothenuse: tapez h" & vbCrLf & "calcul d'un coté:tapez c" & vbCrLf & "verification si un triangle est rectangle tapez r", "choisissez une fonction")
Select Case StrConv(inputresult, vbUpperCase)
Case "H": hypo
Case "C": coté
Case "R": rectangle
Case Else: MsgBox ("valeur invalide!")
End Select
------------------------
fonction hypo:
resultat = MsgBox("l'hypothenuse mesure" & total & " mm") renvoit une chaine sans espace
il faudrait mettre: resultat = MsgBox("l'hypothenuse mesure " & total & " mm")
------------------------
Pour la fonction coté: évite tout d'abord de mettre des accents dans les noms de fonctions.
Il y a un bug dedans:
total = CLng(Sqr(valA ^ 2 - valB ^ 2)) <= retourne une erreur si valB est plus grande que valA
il faut donc mettre: total = CLng(Sqr(Abs(valA ^ 2 - valB ^ 2)))
Pour le résultat: resultat = MsgBox("l'hypothenuse mesure" & total & " mm") <= ho le vilain copié collé
------------------------
pour la fonction rectangle:
If valA = total Then MsgBox ("le triangle est rectangle")
If valA < total Then MsgBox ("le triangle n'est pas rectangle")
If valA > total Then MsgBox ("le triangle n'est pas rectangle")
revient à dire
If valA = total Then MsgBox ("le triangle est rectangle")
else msgbx("le triangle n'est pas rectangle")
De plus tu ne vérifie pas si l'utilisateur a bien entré les chiffres dans le bon ordre (plus grand côté et les autres)
Bonne journée
Fabien