Aprende Visual Basic Parte 4: Ejemplos de proyectos Sencillos

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

  1. Pot

    Poto
    Expand Collapse
    Coronel
    Usuario destacado

    Mensajes:
    3.356
    Me Gusta recibidos:
    435
    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 esta página