7. TRINOMIO CUADRADO PERFECTO

En este programa lo que el profe nos pidió fue, el solo nos dio el código y nosotros debíamos decir que hacia el programa. Este programa soluciona el trinomio cuadrado perfecto.

A continuación se mostrara el código que se utilizó:

Public Class Form1

    REM Declaración de variables

    Dim aNumber, bNumber, cNumber, dNumber, eNumber As Single

    REM Contenido del formulario

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ButtonCalcular.Text = "Calcular x"

        LabelTítulo.Text = " a, b y c "

    End Sub

    REM Cálculo y muestra de resultados

    Private Sub ButtonHallar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonCalcular.Click

        LabelResultado.Font = New Font("Arial", 10, FontStyle.Bold)

        aNumber = Val(Texta.Text)

        bNumber = Val(Textb.Text)

        cNumber = Val(Textc.Text)

        dNumber = bNumber ^ 2 - 4 * aNumber * cNumber

        eNumber = 2 * aNumber

        If dNumber = 0 Then

            LabelResultado.Text = "x1 = x2 = " & -bNumber / eNumber

        Else

            If dNumber > 0 Then

                LabelResultado.Text = "x1 = " & (-bNumber + Math.Sqrt(dNumber)) / eNumber

                LabelResultado.Text = LabelResultado.Text & vbCrLf & "x2 = " & (-bNumber - Math.Sqrt(dNumber)) / eNumber

            Else

                LabelResultado.Text = "x1 = " & -bNumber / eNumber & " + " & Math.Sqrt(-dNumber) / eNumber & " * " & Math.Sqrt(-dNumber) / eNumber & " * i"

            End If

        End If

    End Sub

End Class

La parte gráfica de este programa se ve así:

TRINOMIO CUADRADO PERFECTO

EL ENLACE DONDE PUEDEN DESCARGAR ESTE PROGRAMA ES: 

https://www.dropbox.com/s/ttwqkp4qa4gf0zy/TRINOMIO%20CUADRADO%20PERFECTO.rar