ECUACION CUADRATICA

TALLER DE VISUAL BASIC Nº 5

 

TEMA: SOLUCION DE UNA ECUACION CUADRATICA

 

 

1. OBJETIVO: Crear un programa que calcule la solución de una ecuación de segundo grado. Usando visual Basic.

 

2. ACTIVIDAD: identificar los elementos del programa fuente suministrado, a saber:

 

2.1. Formularios

2.2. Funciones

2.3. Variables locales

2.4. Variables globales

2.5. Cuadros de texto.

2.6. Cuadros de imagen

 

 

3. TALLER: elaborar un archivo en formato  *.DOC  adicionando: Diagrama de flujo correspondiente el programa propuesto. Comentarios personales y aportes.

 

4. ENTREGA enviar el archivo al correo   [e-mail]   antes del  28 de abril de 2008,   la respectiva calificación le será enviada  la primera semana de mayo.

 

==================

5. CODIGO FUENTE:

 

Private Sub Command1_Click()

   

    Dim a, b, c, x1, x2, radical

   

    a = Text1.Text

    b = Text2.Text

    c = Text3.Text

    radical = 0

    

    If a = 0 Then

        Text6.Text = "PRIMER COEFICIENTE NO VALIDO "

    Else

        radical = (b * b) - (4 * a * c)

       

        If radical < 0 Then

            Text6.Text = "ERROR, RAIZ IMAGINARIA"

        Else

            x1 = ((-b) + Sqr(radical)) / (2 * a)

            x2 = ((-b) - Sqr(radical)) / (2 * a)

        End If

   

    End If

    Text4.Text = x1

    Text5.Text = x2

   

End Sub

 

Private Sub Command2_Click()

 

    Text1.Text = ""

    Text2.Text = ""

    Text3.Text = ""

    Text4.Text = ""

    Text5.Text = ""

    Text6.Text = ""

   

End Sub

 

Private Sub Command3_Click()

    Unload Form1

    End

   

End Sub

 

Private Sub Command4_Click()

    Picture1.Visible = False

End Sub

 

Private Sub Label7_Click()

    Picture1.Visible = False

End Sub

 

Private Sub Picture1_Click()

    Picture1.Visible = False

End Sub

 

Private Sub Frame3_Click()

    Frame3.Visible = False

End Sub

 

 

 

JUAN E. MARTINEZ UZETA

Ing. DE SISTEMAS.

TP. 25255097967CND.

CC. 19491491 .

CEL 314853357.