Involucrando los refinos arriba descritos, el diagrama de lógica para este proyecto quedaría así:

Diagrama de lógica refinado

Obviamente, la programación del procedimiento de lectura cambia. No se podrá activar la opción CALCULAR mientras los datos digitados sean no-numéricos, es decir persistan en su invalidez numérica. Una posble versión de dicho procedimiento se muestra a continuación:

         Private Sub Command1_Click()
		Dim Ctr_Data as Boolean, MM$, TT$
		Ctr_Data = IsNumeric(Text1) And IsNumeric(Text2) _
                       And IsNumeric(Text3)
		If(Not Ctr_Data)Then
			MM$ = "... DATOS LEÍDOS: " & Chr(13)
			MM$ = MM$ & "A = " & Text1.Text & Chr(13)
			MM$ = MM$ & "B = " & Text2.Text & Chr(13)
			MM$ = MM$ & "C = " & Text3.Text & Chr(13)
			MM$ = MM$ & "--------------------------------" & Chr(13)
			MM$ = MM$ & "***   DATOS NO VÁLIDOS   ***"
			TT$ = "** ERROR EN DATOS **"
			Msgbox MM$, 16, TT$
			Text1.Text = "" : Text2.Text = "" : Text3.Text = ""
			Text1.SetFocus
			EXIT SUB
		Else
			A = Val(Text1) : B = Val(Text2)
			C = Val(Text3)
			Command1.Enabled = False
			Command2.Enabled = True
			Command3.Enabled = True
			MM$ = "... DATOS LEÍDOS: " & Chr(13)
			MM$ = MM$ & "A = " & Str(A) & Chr(13)
			MM$ = MM$ & "B = " & Str(B) & Chr(13)
			MM$ = MM$ & "C = " & Str(C) & Chr(13)
			MM$ = MM$ & "--------------------------------" & Chr(13)
			MM$ = MM$ & "***   DATOS VÁLIDOS   ***"
			TT$ = "** LECTURA O.K. **"
			Msgbox MM$, 16, TT$
		End If
	   End Sub

La lógica del anterior procedimiento se basa en el contenido de la variable Ctr_Data y en el operador lógico Not para negar (véase sección 3.2); si la variable Ctr_Data es falsa, su negación es verdadera, significando esto que por lo menos uno de los controles TextBox (Text1, Text2 ó Text3) tiene datos no-numéricos.

Los objetos (controles) en Visal Basic 6.0 involucran programas pre-ensamblados denominados Métodos. El control TextBox tiene asignado el Método SetFocus cuyo funcionalismo consiste en establecer el enfoque, es decir, determinar el Objeto Activo; en este caso, se establece que el enfoque vaya a la CajaTexto Text1. La sintaxis genérica para invocar un método es: objeto.método.

La instrucción Exit Sub es una estructura automática de interrupción. Su efecto consiste en interrumpir el flujo lógico de ejecución de un procedimiento y retornar el control al sitio exacto desde el cual fue llamado el procedimiento; para este ejemplo, el control retorna a la interfaz, con el objeto activo Text1.

Obsérvese que la variable MM$, de contenido String (alfanumérico) se emplea para concatener una serie de textos, que conforman un mensaje multilínea. Se utiliza la función Chr(13), convenientemente situada, para lograr las líneas individuales del mensaje. La figura siguiente ilustra el caso de dicho mensaje cuando los datos son no válidos:

Mensaje para datos no válidos y B = 0.0

Un programa correspondiente al algoritmo mostrado en la figura anterior es el siguiente:

         Private Sub Command1_Click()
		Dim Ctr_Data as Boolean, MM$, TT$
		Ctr_Data = IsNumeric(Text1) And IsNumeric(Text2) _
                       And IsNumeric(Text3)
		If(Not Ctr_Data)Then
			MM$ = "... DATOS LEÍDOS: " & Chr(13)
			MM$ = MM$ & "A = " & Text1.Text & Chr(13)
			MM$ = MM$ & "B = " & Text2.Text & Chr(13)
			MM$ = MM$ & "C = " & Text3.Text & Chr(13)
			MM$ = MM$ & "--------------------------------" & Chr(13)
			MM$ = MM$ & "***   DATOS NO VÁLIDOS   ***"
			TT$ = "** ERROR EN DATOS **"
			Msgbox MM$, 16, TT$
			Text1.Text = "" : Text2.Text = "" : Text3.Text = ""
			Text1.SetFocus
			EXIT SUB
		Else
			A = Val(Text1) : B = Val(Text2)
			C = Val(Text3)
			Command1.Enabled = False
			Command2.Enabled = True
			Command3.Enabled = True
			MM$ = "... DATOS LEÍDOS: " & Chr(13)
			MM$ = MM$ & "A = " & Str(A) & Chr(13)
			MM$ = MM$ & "B = " & Str(B) & Chr(13)
			MM$ = MM$ & "C = " & Str(C) & Chr(13)
			MM$ = MM$ & "--------------------------------" & Chr(13)
			MM$ = MM$ & "***   DATOS VÁLIDOS   ***"
			TT$ = "** LECTURA O.K. **"
			Msgbox MM$, 16, TT$
                  If(A = 0.0 And B = 0.0)Then
                     MsgBox "NO HAY SOLUCIÓN"
                  ElseIf(A = 0.0 And B <> 0.0)Then
                     D = B^2 -4.0 * A * C
                     If(D < 0.0)Then
                        MsgBox "RAÍCES IMAGINARIAS"
                     Else
                        X1 = (-B + Sqr(D)) / (".0 * A)
                        X2 = (- B - Sqr(D) / (2.0 * A)
                        MM$ "X1 = " & X1 & Chr(13) & "X2 = " & X2
                        MM$ = MM$ & Chr(13) & "DOS RAÍCES REALES"
                        MsgBox MM$, 64, "**  RESULTADOS  **"
                     End If
                  End If
		End If
	   End Sub

OBSERVACIONES

Tomando como base este segundo ejemplo, se pretende ilustrar varios conceptos relacionados con los principios básicos de la Programación de Computadores:

• El concepto de Algoritmo y su Representación mediante un Diagrama Estructurado de Lógica.

• Utilización de las Estructuras Automáticas Básicas, mediante las cuales es posible expresar y representar una gama muy amplia de algoritmos. Dichas estructuras incluyen: la Secuencia, la Selección lógica, y la Iteración.

• Empleo de la Interfaz Gráfica de Usuario [GUI] para elaborar, a su vez, una interfaz gráfica de usuario (o solamente, Interfaz) que permite la solución del problema planteado y expresado lógicamente en el Diagrama de Lógica.

• Reconocer y aplicar los diferentes componentes del Escritorio Principal de Visual Basic: Barra de título y control ([design]/[run]), menú principal, barra de herramientas (íconos para grabar/abrir proyecto; íconos para visualizar ventana de propiedades, ventana exploradora de proyectos, caja de herramientas), formulario básico de diseño.

• El concepto de Proyecto en Visual Basic.

• Reconocer y manejar los diferentes tipos de objetos (controles) vistos en el proyecto: Form, Frame, Label, TextBox, CommandButton. Cómo se nombran dichos objetos (Form1; Frame1, Frame2,...; Label1, Label2,...; Text1, Text2,...; Command1, Command2,...).

• Cómo se cambian las propiedades de un objeto (control) a tiempo de diseño (mediante la ventana de propiedades) y a tiempo de ejecución (mediante la instrucción de Asignación, como en Command2.Enabled = False).

• Saber explicar la funcionalidad del objeto General.

• Categorías de programación que utiliza Visual Basic 6.0: Visual Interactiva, generando automáticamente código que se almacena en el archivo del formulario (*.FRM), lo que se conoce como Programación Automática; con Código Fuente, es decir, escribiendo instrucciones específicas en el lenguaje Visual Basic.

• Reconocer y aplicar el concepto de Procedimiento, que permite realizar una programación modularmente. Componentes de un procedimiento: nombre del procedimiento; plantilla estándar para el inicio y el fín del procedimiento; cuerpo del procedimiento.

• El concepto de Evento. Reconocer y aplicar los eventos: Load(), Click(). Significado y funcionalidad de cada uno.

• Explicar y aplicar correctamente las siguientes funciones de la Librería Estándar de Visual Basic 6.0: Val(), Str(), Sqr(), MsgBox(), IsNumeric().

• Saber reconocer el significado, funcionalidad y la aplicación de las siguientes instrucciones:

  • Command3.Enabled = True

  • Text1.Enabled = False

  • Dim A as Single, B as Single, SUMA as Single

  • A = Val(Text1) : B = Val(Text2)

  • MsgBox "DATOS LEÍDOS", 48, "*LECTURA*"

  • SUMA = A + B : MULT = A * B : DIV_REAL = A / B : DIV_ENT = A \ B

  • Text3.Text = Str(SUMA) : Text4.Text = Str(MULT)

  • Text1 = "" : Text2 = "" : Text3 = "". Cuál es el significado de ""?

  • Unload Form1

• Cómo se detiene el Tiempo de Ejecución cuando se presentan errores en la programación.

Tareas: (a) - Elaborar un algoritmo y un proyecto Visual Basic para involucrar los Refinos descritos, mostrando los mensajes pertinentes cuando haya lugar. valores numéricos (en general, N ternas), suendo cada terna los coeficientes A, B y C de una ecuación cuadrática. Considerar para cada ecuación las raíces imaginarias. Mostrar los resultados en forma tabular.

---