application vb.net triangle rectangle

Cette application vb.net permet de calculer les angles et le côté manquant d'un triangle rectangle.
Ce programme a été développé avec Visual Studio avec le langage Visual Basic.

• ouvrir visual basic
• nouveau projet
• visual basic
• application windows forms
• inscrire le nom de l'application
• dans form1.vb (design)
• créer label1, label2, label 3, label 4, label 5
• créer textbox1, textebox2, textbox3, textebox4, textbox5
• créer button1, button2, button3
• dans form1.vb
• inscrire le code suivant

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim x As Double
        Dim y As Double
        Dim z As Double
        Dim a As Double
        Dim b As Double
        Dim c As Double
        Dim d As Double
        Dim g As Double
        Dim f As Double
        Const pi As Double = 3.14159265358979
        If TextBox3.Text = "" Then
            x = Math.Sqrt(TextBox1.Text ^ 2 + TextBox2.Text ^ 2)
            TextBox3.Text = x
            c = TextBox2.Text / TextBox1.Text
            TextBox4.Text = Math.Atan(c) * 180 / pi
            g = TextBox1.Text / TextBox2.Text
            TextBox5.Text = Math.Atan(g) * 180 / pi
        End If
        If TextBox1.Text = "" Then
            y = Math.Sqrt(TextBox3.Text ^ 2 - TextBox2.Text ^ 2)
            TextBox1.Text = y
            b = TextBox2.Text / TextBox3.Text
            TextBox4.Text = Math.Asin(b) * 180 / pi
            d = TextBox2.Text / TextBox3.Text
            TextBox5.Text = Math.Acos(d) * 180 / pi
        End If
        If TextBox2.Text = "" Then
            z = Math.Sqrt(TextBox3.Text ^ 2 - TextBox1.Text ^ 2)
            TextBox2.Text = z
            a = TextBox1.Text / TextBox3.Text
            TextBox4.Text = Math.Acos(a) * 180 / pi
            f = TextBox1.Text / TextBox3.Text
            TextBox5.Text = Math.Asin(f) * 180 / pi
        End If
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        End
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox5.Clear()
    End Sub
End Class

• sauvegarder
• générer le projet

Pour créer une icône sur le bureau qui permet d'ouvrir l'application, il suffit de retrouver le fichier .exe dans documents/visual studio 2015/projects/nom du projet/bin/debug/nom du projet.exe.
Bouton droit sur le fichier et envoyer ver le bureau. Sur le raccourci créé, bouton droit sur propriétés puis changer d'icône.