Informe Laboratorio Practica 1_JUAN_CARLOS_SEPULVEDA_DAZA

UNIVERSIDAD NACIONAL ABIERTA Y A DISTANCIA

Laboratorio
Visual Basic Básico

Practica #1 (Sesión 1)

Presentado por:
JUAN CARLOS SEPULVEDA DAZA
Código: 7185224

Presentado a :
Tutor: Leonardo Bernal Zamora

Escuela De Ciencias Básicas e Ingeniería (Ingeniería en Sistemas)
CEAD Tunja
Octubre de 2015

Sesión 1.
Programa 1: Acceso Autorizado
Diseñar 5 programas en donde se apliquen manejo de lasherramientas básicas
de la caja o cuadro de herramientas y sus propiedades. En donde se usen listas,
matrices y arreglos y se apliquen condicionales, que se enlacen a un menú
Desarrollo.
Formulario Acceso Autorizado
La construcción de este formulario la hice por medio de 3 label 2 cajas de texto
2 botones ,1 groopbox .picture boox dentro del formulario llamado Acceso Autorizado
Dentro de la caja detexto correspondiente al Nombre de usuario le deje por
defecto el usuario : ADMINISTRADOR
Dentro de la caja de texto la única clave que va a aceptar es UNAD

Procedí a programar el botón INGRESAR con el siguiente código.
If TextBox1.Text = "ADMINISTRADOR" And TextBox2.Text = "UNAD" Then
MsgBox("La Contraseña es Valida", MsgBoxStyle.Information, "Valido")
Form7.Show()
Else
MsgBox("ContraseñaIncorrecta", MsgBoxStyle.Information, "Verifique
Datos")
End If

Al pulsar el botón ingresar con la contraseña correcta se abrirá MsgBox("La Contraseña
es

Válida", MsgBoxStyle.Information, "Valido")PRUEBA.Show()

Lo cual al estar logiados nos dara acceso al formulario principal el cual es el
llamado menú ya que por medio de este podremos ingresar a los demás programas
solicitados.

Programa 2:Utilización de Matrices
Este programa lo desarrolle utilizando matrices el cual permitirá llenar dentro de los
cuadros de texto las filas y columnas dependiendo su recorrido para mi caso utilice
el recorrido de 1 a 20
El diseño está compuesto por 3 label , 3 cajas de texto las cuales mostraran el
recorrido y su posición 2 botones que muestran el llenado y mostraran los valores de
la matriz y un picturebox para mejorar el diseño.

Condigo.
Declare una variable de tipo String llamada matriz
Private matriz(20, 20) As String
Utilice una

estructura

Utilice una estructura de repetición for…..next para repetir la instrucción
planteada el número de veces determinado en la matriz (1 a 20)
Esto lo hice dentro del botón Rellenar Matrices

Private Sub Button1_Click(sender As Object, e As EventArgs)Handles Button1.Click
Dim contador As Integer = 1
For fila As Integer = 1 To 20
For columnas As Integer = 1 To 20
matriz(fila, columnas) = "A" + contador.ToString
contador += 1
Next
Next
MsgBox("matriz
relenada")
End Sub
Dentro

del

botón

Dentro del botón mostrar valores programe el resultado y aplique una
excepción dentro del bloque utilizando try catch para los valores no validos
Private SubButton2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Try
TextBox3.Text = matriz(TextBox1.Text, TextBox2.Text)
Catch ex As Exception
MsgBox("Valor No Valido")
End Try
End Sub
End Class

Programa 3: Uso de Progress Bar y Timer
Este programa maneja una barra de progreso al realizar una actividad con el uso de un
timer.
El diseño de este ejercicio consta de 2 formularios el formulariollamado Uso de
Progress Bar y Timer esta conpuesto por un progressbar el cual nos mostrara el
avance de la función , un picture box para mejorar el diseño y un timer el cual
marcara el espacio de tiempo.

Codigo.
Para este

ejercicio declare una variable llamada contador dentro de la clase

Public contador As Integer

Procedi a programar el ProgressBar
Private Sub ProgressBar1_Click(sender As Object,e As EventArgs) Handles
ProgressBar1.Click
ProgressBar1.Value = 0.0
ProgressBar1.Maximum = 100
Timer1.Enabled = True
End Sub

Procedi a programar el Timer
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If contador < 100 Then
ProgressBar1.Value = contador
contador = contador + 1
Else
Timer1.Enabled = False
Me.Hide()
PruebaProgressBar_Timer.Show ()
End If
End Sub

Al...