Aprende Visual Basic Parte 4: Ejemplos de proyectos Sencillos

Tema en 'Guías y Tutoriales' iniciado por Poto, 15 Ene 2012.

  1. Bien, en la parte anterior, vimos como crear un programa sencillo. Hoy veremos como crear ese mismo programa, pero con un HScrollBar.

    Primero, abrimos un nuevo proyecto y añadimos un HScrollBar con un Label1.

    [​IMG]

    Ahora, renombramos todo.

    [​IMG]

    Pasemos al codigo, no añadiremos un boton, simplemente le damos doble click al HSCrollBar y alli, ira este codigo:
    Citar:
    Private Sub HScroll1_Change() ---> Indica que sucede cuando cambiamos el valor del HScroll1
    If HScroll1.Value Mod 2 = 0 Then ---> Si el valor del HScroll1 al dividirlo entre dos es igual a cero entonces
    Label1 = HScroll1.Value & " Es Par" ---> Cambiamos lo que dice el Label1 por el valor del HSCroll1 y algo que dice Es Par
    Else ---> Si No
    Label1 = HScroll1.Value & " Es Impar" ---> Cambiamos lo que dice el Label1 por el valor del HSCroll1 y algo que dice que es Impar
    End If ---> Finaliza la condicion
    End Sub ---> Finaliza lo que sucede cuando cambiemos el valor del HSCroll1
    El codigo es practicamente lo mismo, lo que cambia es que el procedimiento no sucede con un numero que introduzca y de donde toma los datos.

    [​IMG]

    Ahora, veamos otros ejemplos.

    Programa que pida Usuario y Contraseña para mostrar un mensaje.

    Ubicamos 2 TextBox y un Command, este es el resultado luego de haberlo colocado todo y haberlo renombrado.

    [​IMG]

    Aca, debemos modificar la opcion "PasswordChar" en el segundo textbox, y cambiarlo por un "*"

    [​IMG]

    Ahora, el codigo:
    Citar:
    Private Sub Command1_Click()
    If Text1.Text = "HunterxD007" Then ---> Si el valor del Text1 es igual a HunterxD007 entonces (Cambiar HunterxD007 por tu nick)
    If Text2.Text = "tutorialportalxd" Then ---> Si el valor del Text2 es igual a tutorialportalxd entonces (Cambiar tutorialportalxd por una contraseña aleatoria
    MsgBox "Felices Fiestas [​IMG]", vbInformation, "Felices Fiestas [​IMG]"
    Else ---> Si No
    MsgBox "Error", vbCritical, "Error"
    End If ---> Fin de la condicion de Si text2 es igual a tutorialportalxd
    Else ---> Si No del sI Text1 es igual a HunterxD007
    MsgBox "Error", vbCritical, "Error"
    End If ---> Fin de la condicion
    End Sub
    Aqui el resultado final:

    [​IMG]

    FIN DE LA PARTE 4

    FIN DE LOS 4 FUNDAMENTALES - A partir de ahora, ya tienes conocimientos BASICOS de lo que es programar con Visual Basic 6

    En la parte 5 y Los 6 Intermediarios: Poniendonos calientes, Variables y Constantes, Renombrar objetos en tiempo de ejecucion & Más...
     

Compartir