Segundo Semestre Visual Basic Apunte 2


COLEGIO CALASANZ
DEPTO. DE ARTES Y TECNOLOGÍA
COMPUTACIÓN SEGUNDO MEDIO

Introducción a la Programación con Visual Basic
Segunda Parte

Capítulo III
Entrada y Salida de Datos

En este capítulo se van a describir formas de introducir información en el programa, así como de obtener resultados. Se va a presentar una nueva forma interactiva de comunicarse con el usuario, como son las cajas dediálogo MsgBox e InputBox.

Particular interés tiene la lectura y escritura de datos en el disco, lo cual es necesario tanto cuando el volumen de información es muy importante (la memoria RAM está siempre más limitada que el espacio en disco), como cuando se desea que los datos no desaparezcan al terminar la ejecución del programa. Los ficheros en disco resuelven ambos problemas.

1.1. Cajas deDiálogo MsgBox

Estas cajas de diálogo son similares a las que utilizan muchas aplicaciones de Windows. La caja de mensajes o MsgBox abre una ventana a través de la cual se envía un mensaje al usuario y se le pide una respuesta, por ejemplo, en forma de hacer click en un botón. Este tipo de mensajes son muy utilizados para confirmar acciones y para decisiones sencillas. La caja de diálogo InputBoxpide al usuario que teclee una frase, por ejemplo, su nombre, un título, etc.

El formato general de la función MsgBox es la siguiente:

Respuesta = MsgBox(“Texto para el usuario”, Tipos de Botones, “Titulo”)

Respuesta es la variable donde se almacena el valor de retorno, que es un número indicativo del botón presionado por el usuario, de acuerdo con los valores de la Tabla 1.1. Tipos de Botoneses un entero que indica la combinación de botones deseada por el usuario; sus posibles valores se muestran en la Tabla 1.2. Título contiene un texto que aparece como título de la ventana; si se omite, muestra el nombre de la aplicación.


Valor de Retorno Constante Simbólica

1 VBOk
2 VBCancel
3 VBAbort
4 VBRetry
5 VBIgnore
6 VBYes
7 VBNo
Valor TiposBotones Constante

0 VBOkOnly
1 VBOkCancel
2VBAbortRetryIgnore
3 VBYesNoCancel
4 VBYesNo
5 VBRetryCancel



Veamos el siguiente ejemplo:


Vamos a dibujar un formulario para un eventual acceso de usuarios a un sistema en red y vamos a utilizar MsgBox para enviar mensajes al usuario y a evaluar los botones que éste ha pulsado.

En esta prueba, si usted presiona Aceptar y no ha introducido ningún dato, el sistema inmediatamente le envía unmensaje relativo a la acción que está realizando.

Pues bien, la pulsación de Aceptar sin datos hace que el sistema genere un MsgBox con las opciones que en el dibujo aparecen y que el usuario debe seleccionar según sea la acción.



Luego de presionar cualquier botón, se evalúa la respuesta y el sistema genera otra acción. En el caso de este ejemplo, al pulsar el botón “Anular” aparece otroMsgBox que indica qué opción se presionó.

Finalmente, el código asociado al botón Aceptar de nuestro Ingreso de Password es el siguiente:

Private Sub Command1_Click()

respuesta = 0

If Text1.Text = "" Then
respuesta = MsgBox("Debe escribir un dato válido", vbAbortRetryIgnore, "Acceso Denegado")
End If

If respuesta = 3 Then
MsgBox ("El usuario presionó Anular")End If

If respuesta = 4 Then
MsgBox ("El usuario presionó Reintentar")
End If

If respuesta = 5 Then
MsgBox ("El usuario presionó Ignorar")
End If

End Sub

En el ejemplo anterior se ha usado la instrucción IF cuya sintaxis es: IF (condición) THEN (Acción por verdadero) ELSE (Acción por falso) ENDIF. La condición será una comparación matemática utilizandopara ello los signos de comparación conocidos.

1.2. Cajas de Diálogo InputBox

La caja de diálogo InputBox pide al usuario que teclee una frase, por ejemplo, su nombre, un título o cualquier dato el que se asigna a una variable y este valor después puede ser comprobado o evaluado con otras sentencias.

La forma general de la función InputBox es la siguiente:

Texto = InputBox(“texto para el...