Una vida simple: Padre, Esposo, Programador y Mormón.

La esencia de la programación orientada objetos son los métodos y variables con niveles de acceso públicos y privados para utilizarlos o no en otras clases, con esto reciclamos gran cantidad de código y nuestra aplicación se vuelve mas escalable.

Les dejo un ejemplo de como usar las variables y métodos de una clase a un formulario. El ejemplo es totalmente sencillo y fácil de comprender, toma un valor de una tabla de multiplicar y la aplicación la imprime la tabla completa.

Código:

 

Clase Tablas

Public Class Tablas
    Public NumTabla, indice As Integer ''declaracion de las variables publicas para su uso en la clase del formulario
    Public resultado As String ''en esta variable se almacenara la expresion de la tabla y su resultado
    ''este metodo se ejecuta 10 veces por medio del bucle for en el formulario para imprimir la cada tabla del 1 al 10
    Public Sub calcular()
        resultado = CStr(NumTabla) + " * " + CStr(indice) + " = " + CStr(NumTabla * indice)
    End Sub
End Class

 
Formulario

Public Class Form1
    Dim op As New Tablas ''instanciacion de la clase tablas en el objeto op
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        op.NumTabla = CInt(NumericUpDown1.Value) ''se envia el valor ingresado a la variable publica Numtabla de la clase Tablas

        ''se envia el valor a la variable publica indice de la clase Tablas
        For op.indice = 1 To 10
            op.calcular() ''ejecuto el metodo publico contenido en la clase Tablas
            ListBox1.Items.Add(op.resultado) ''asigno el valor de la variable publica resultado de la clase Tablas al listbox
        Next
        Button1.Enabled = False
        Button2.Enabled = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ListBox1.Items.Clear() ''se limpia el listbox
        Button1.Enabled = True
        Button2.Enabled = False
        NumericUpDown1.Focus()
    End Sub
End Class

Descarga el proyecto:

http://www.mediafire.com/?ucqmoth3177p4f1

About these ads

Comentarios en: "Tablas de multiplicar en Visual Basic (ejemplo variables publicas y clases)" (3)

  1. es de gran ayuda este ejemplo lo recomiendo mucho

  2. Muy bueno. Me servira de mucho. Gracias por compartir!!!

  3. Excelente post… usando clases

Deja un comentario

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

Seguir

Recibe cada nueva publicación en tu buzón de correo electrónico.

%d personas les gusta esto: