Práctica Sencilla de Visual Basic

Hola, ahora voy a presentar una practica de las mas sencillas para Visual Basic 6.0.

¿En qué consiste? La verdad es algo muy sencillo, es un programa que solicita al usuario un número del 1 al 7 y que será interpretado como un dia de la semana.

Aclaro que el usuario tendra chance oportunidad de elegir si la semana empieza el lunes o el domingo. Aquí está el video

Bueno lo primero que vamos a hacer es meternos a Visual Basic y como casi siempre pedimos un EXE Estándar.

En el formulario ponemos los siguientes controles:

  • 1 Textbox, le cambiamos la propiedad Maxlenght a 1 para que solo puedan escribir 1 numero; tambien puedes cambiarle el color de fondo la fuente etc. a como más te guste.
  • 1 Label con la propiedad Caption “Escriba el número de día de la semana”
  • 1 Frame con la propiedad Caption “Semana comienza el”
  • 1 Optionbutton llamado domingo y la propiedad Caption Domingo”
  • 1 optionbuton llamado lunes y la propiedad Caption “Lunes”
  • 1 commandButon con la propiedad Caption “Ver dia de la semana”
  •  label (label2) con la propiedad Caption vacia.

El proyecto hasta ahora se debe de ver asi:

Formulario terminado

Ahora vamos a ver los elementos que usa el proyecto:

El proyecto usa un arreglo donde contiene los días de la semana; un arreglo es una variable de memoria que en lugar de contener un valor contiene elementos, los cuales contienen valores.

Para entender lo anterior imagina una tabla, la tabla seria el arreglo, las celdas los elementos, y lo que está en las celdas serian los valores de los elementos.

Elemento 0 del arreglo Elemento 1 del arreglo Elemento 2 del arreglo Elemento 3 del arreglo

Como puedes observar los elementos comienzan a partir del 0, en el ejemplo, el arreglo tiene 4 elementos (que van del 0 al 3). Para referirnos al valor de cada uno de los elementos lo hacemos de la siguiente forma: (miArreglo es el nombre del arreglo).

miArreglo(x)

Donde X es el numero de elemento al que nos vamos a referir. Por ejemplo:

foo=miArreglo(2)

En este caso la variable foo seria igual a “elemento 2 del arreglo”, ya que ese es el valor que está en dicho elemento.

Para asignar un nuevo valor al arreglo, asemos la asignacion al reves. Ejemplo

  • miArreglo(0)=”Texto de ejemplo 1″
  • miArreglo(1)=”Prueba”
  • miArreglo(2)=”Mas pruebas”
  • miArreglo(3)=”Fin de la prueba”)

Con lo cual la tabla quedaria:

Texto de ejemplo 1 Prueba Mas Pruebas Fin de la prueba

Para declarar el arreglo, Visual Basic como es costumbre tiene varias formas de declararlo, voy a mostrar solo la que usa el proyecto.

Dim diaSem (1 to 7) as String

Notar que se declara igual que una variable excepto por que se le añadio (1 to 7), con lo cual estoy indicando que diaSem será un arreglo y no una variable, y ademas estoy indicando que sus elementos van a ir del 1 al 7. Por lo tanto si posteriormente intento algo como: diaSem(0)=”foo” obtendremos un error.

Una ultima nota acerca de los arreglos, hay arreglos unidimensionales (“tabla” de una fila, como la de nuestro ejemplo) y arreglos multidimensionales (“tabla” de varias filas), pero eso no es asunto que nos interese ahora.

Nuestro pequeño proyecto tambien usa los controles optionbuton, que sirven para elegir una sola opcion de entre un grupo de opciones (el grupo de opciones de “organiza” poniéndolo dentro de un control frame).

Las propiedades mas importantes del optionbutton son Caption, que ya todos sabemos para que sirve y la propiedad value que devuelve verdadero si el optionbutton está seleccionado. (Ver figura):

.

Para ver con código si un optionbuton está seleccionado o no, pues como es de esperarse lo hacemos con un IF

If optionbutton.value Then
bla bla bla
else
bla bla bla
End If

Código de la aplicacion.

Declaraciones: Vamos a usar una variable privada que se llame clicEnBoton, la cual se usara para determinar si se actualiza el resultado o no cuando el usuario de clic en los botones de opcion.

' Esta variable es para ver si actualiza el resultado, despues de
' hacer clic en el dia que comienza la semana, mantendra el valor de
' false para que no actualice, hasta que hayan hecho clic en el boton
Private clicEnBoton as Boolean

El principal código va en el boton de comando, y es el siguiente:

Private sub Command1_Clcick()
Dim dias(1 To 7) As String
dias(1) = "Lunes"
dias(2) = "Martes"
dias(3) = "Miercoles"
dias(4) = "Jueves"
dias(5) = "Viernes"
dias(6) = "Sabado"
dias(7) = "Domingo"
Label2.Caption = ""
' ver si hay un numero del 1 al 7 en el cuadro de texto
If Val(Text1.Text) <= 0 Or Val(Text1.Text) >= 8 Then
    MsgBox ("No es un numero de dia valido"), vbCritical, "Dias"
    clicEnBoton = False
    Exit Sub
End If
' iniciamos el calculo
If lunes Then
    ' ponemos a true el estado del boton, para que actualice si es que
    ' se selecciona lunes o domingo como dia de inicio de semana.
    clicEnBoton = True
    ' si la semana comienza el lunes, tan solo jalamos el valor
    ' del arreglo en el label2.
    Label2.Caption = dias(Val(Text1.Text))
ElseIf domingo Then
    ' pnemos a true el estado del boton, para que actualice si es que
    ' se selecciona lunes o domingo como dia de inicio de semana.
    clicEnBoton = True
    ' si la semana comienza el domingo tenemos que restar en uno
    ' los elementos del arreglo, siendo la excepcion el 1 ya que lo
    ' recorremos hasta el 7.
    Dim dia As Integer
    If Val(Text1.Text) = 1 Then
        dia = 7
  
    Else
        dia = Val(Text1.Text) - 1
    End If
    Label2.Caption = dias(dia)
End If
End Sub

Los botones de opcion solo van a verificar que ya haya sido calculado un resultado y en base a eso actualizar el resultado del día de la semana, haciendo automaticamente Clic en el boton de comando.

Private Sub domingo_Click()
If clicEnBoton Then
    Command1_Click
End If
End Sub

Private Sub lunes_Click()
If clicEnBoton Then
    Command1_Click
End If
End Sub

Eso es todo por ahora, próximamente pondre algunas cosas mas interesantes. Saludos y gracias por visitar mi espacio

Anuncios

2 comentarios en “Práctica Sencilla de Visual Basic

  1. abraham dijo:

    muy buen tutorial
    uff me hicieron el mega paro
    spero que hagan mas asi muy bueno
    pero mas de criterios de programasion en visual basic y practicas

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s