Dit si un triangle est rectangle ou pas

Commenter

Contenu du snippet

Voila c'est mon tout premier code source (ca se fete non ?)^^
Je n'ai que 15 ans et je suis super debutant en VB. Vous le verrez d'ailleurs par mon code qui n'est surement pas terrible, en effet il y a plein d'exeptions que le programme ne gere pas, la plus grosse est que l'on ne peut pas rentrer une valeur decimale pour les cotés du triangle, je ne connais pas le code pour. Et quelques expetions sont très mal gérées.
Merci d'avance pour votre aide, j'ai quelques problèmes dont le plus gros (et de taille) est celui énoncé plus haut.
A+ et merci !

PS : Jene sais pas si j'ai le droit de poster la source comme le programme comporte quelques defaults

Source / Exemple : 


Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Hypothènuse As Long
        Dim Angle1 As Long
        Dim Angle2 As Long
        Dim Total As Double
        Dim Total2 As Double
        Dim InputResult As String

        InputResult = InputBox("Donnez la valeur de l'hypotènuse")
        If Not IsNumeric(InputResult) Then MsgBox("Valeur Invalide !")
        Hypothènuse = CLng(InputResult)

        InputResult = InputBox("Donnez une valeur a un des petits cotés du triangle !")
        If Not IsNumeric(InputResult) Then MsgBox("Valeur invalide !")
        Angle1 = CLng(InputResult)

        InputResult = InputBox("Donnez une valeur a l'autre petit coté du triangle !")
        If Not IsNumeric(InputResult) Then MsgBox("Valeur invalide !")
        Angle2 = CLng(InputResult)

        Total = Hypothènuse * Hypothènuse

        Total2 = Angle1 * Angle1 + Angle2 * Angle2

        MsgBox("Le carré de l'hypothènuse est de : " & Total)

        MsgBox("La somme des 2 cotés est de : " & Total2)

        If Total < Total2 Then MsgBox("Impossible")

        If Total = Total2 Then
            MsgBox("Le triangle est rectangle !")
        Else
            MsgBox("Le triangle n'est pas rectangle ")
        End If
    End Sub
End Class

A voir également

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_RobX)