Aprende Visual Basic Parte 6: ¡Mi Segundo Proyecto!

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
    Hola, tras tomarme un largo descanso en este tutorial, porfin les traigo la parte 6:

    Aprende a programar Visual Basic Parte 6: ¡Mi segundo proyecto!

    En esta parte, aprenderemos a hacer una calculadora.

    Para ello, colocamos 3 TextBox (Txt1, Txt2 y Txt3) y 4 Command (Captions: Cmd1 = +, Cmd2 = -, Cmd3 = *, Cmd4 = /.)

    [​IMG]

    Luego, vamos con el procedimiento Dentro del Cmd1_Click
    Citar:
    txt3.Text = Val(txt1) + Val(txt2)
    Hacemos lo mismo dentro del Cmd2_Click, pero cambiando el "+" por un "-"
    Citar:
    txt3.Text = Val(txt1) - Val(txt2)
    Igual con Cmd3_Click y Cmd4_Click
    Citar:
    txt3.Text = Val(txt1) * Val(txt2)
    txt3.Text = Val(txt1) / Val(txt2)
    Ahora, revisamos nuestro proyecto:

    [​IMG]

    Vemos que si sirve?

    Ahora, veamos el mismo ejemplo, pero con variables (Aqui veremos solamente el codigo, ya que lo demas es lo mismo)
    Citar:
    Public n1, n2, n3 As Integer

    Private Sub cmd1_Click()
    n1 = Val(txt1)
    n2 = Val(txt2)
    n3 = n1 + n2
    txt3 = n3
    End Sub

    Private Sub cmd2_Click()
    n1 = Val(txt1)
    n2 = Val(txt2)
    n3 = n1 - n2
    txt3 = n3
    End Sub

    Private Sub cmd3_Click()
    n1 = Val(txt1)
    n2 = Val(txt2)
    n3 = n1 * n2
    txt3 = n3
    End Sub

    Private Sub cmd4_Click()
    n1 = Val(txt1)
    n2 = Val(txt2)
    n3 = n1 / n2
    txt3 = n3
    End Sub
    FIN PARTE 6

    En la parte 7: ¡Generemos un proyecto!
     

Compartir esta página