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
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.