EJEMPLOS PRÁCTICOS PARA REFORZAR LOS CONOCIMIENTOS APRENDIDOS 02

en proceso..........

EJEMPLOS PRÁCTICOS PARA REFORZAR LOS CONOCIMIENTOS APRENDIDOS 01

1).Implementaremos el siguiente ejercicio con POO:
.-Mostrar los N primeros términos de la serie: 7, 6, 8, 5, 9, 4, 10, 3,….
.-Mostrar los K primeros términos de la serie: 5, 7, 10, 14, 19,…

La serie de N primeros términos definimos según la imagen:

La serie de K primeros términos definimos según nos muestra la imagen:

En un nuevo proyecto: Creamos una clase con el nombre “ClsSeries.vb” dentro de una carpeta clases

También un formulario con el nombre:“Frmseries.vb” que tendrá en el diseño  2 label, 2 TextBox  con los nombre “txtN, txtK”, 2 ListBox con los nombres “lstN,lstK” y   1 Button con el nombre “btngenerar”. Como muestra la imagen:

Clase clsserie:

Public Class ClsSeries
    '‘entradas que uno coloca en la caja de texto

    Private n As Integer
    Private k As Integer

    'Almacenamos la serie en un arrays AK() AN()
    Private AK() As Integer
    Private AN() As Integer

    Public Property xn As Integer
        Get
            Return Me.n
        End Get
        Set(value As Integer)
            Me.n = value
        End Set
    End Property
    Public Property xk As Integer
        Get
            Return Me.k
        End Get
        Set(value As Integer)
            Me.k = value
        End Set
    End Property

    Public Function GenerarserieN() As Integer()
        Dim x As Integer = 0
        Dim condicion As Boolean 'Una variable boolean para jugar con la serie ya que salta un número
        Dim r As Integer
        Dim z As Integer = 1
        Me.AN = New Integer(Me.xn) {}

        For I = 0 To Me.AN.Length - 2
            If condicion = False Then
                r = 7 + x
                Me.AN(I) = r
                x = x + 1
                condicion = True
            Else
                r = r - z
                Me.AN(I) = r
                z = z + 2
                condicion = False
           End If
        Next
        Return Me.AN
    End Function
    Public Function generarseriek() As Integer()
        Me.AK = New Integer(Me.xk) {}
        Dim ini As Integer = 4
        Dim x As Integer = 1
        For i = 0 To Me.AK.Length - 2
            ini = ini + x
            Me.AK(i) = ini
            x = x + 1
        Next
       Return Me.AK
    End Function
End Class

Programamos en el Formulario:

 Public Class Frmseries
    Private oserie As ClsSeries 'Se llama a una clase
    Private N() As Integer
    Private k() As Integer
    Private Sub btngenerar_Click(sender As System.Object, e As System.EventArgs) Handles btngenerar.Click
        'preguntamos si los texto están vacios que muestre un mensaje
        ' si lo pones valores recién se ejecute le programa
        If txtK.Text = "" And txtN.Text = "" Then
  MessageBox.Show("ingrese valores a las cajas de texto ", "aviso", MessageBoxButtons.OK, MessageBoxIcon.Error)

        Else
            oserie = New ClsSeries 'Se está instanciando la clase
            oserie.xn = txtN.Text
            oserie.xk = txtK.Text
            'Asignamos una función de la clase clsseries a una variable arrays
            N = oserie.GenerarserieN
            k = oserie.generarseriek
            'Limpiamos los listbox
            lstN.Items.Clear()
            For i = 0 To N.Length - 2
                lstN.Items.Add(N(i))
            Next
            'Limpiamos los listbox
            lstK.Items.Clear()
            For j = 0 To k.Length - 2
                lstK.Items.Add(k(j))
            Next
            oserie = Nothing
        End If

    End Sub

' Validamos para que las cajas de texto solo ingresen números  en su evento KeyPress

Private Sub txtN_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtN.KeyPress

        If Char.IsDigit(e.KeyChar) Then
            e.Handled = False
        ElseIf Char.IsControl(e.KeyChar) Then
            e.Handled = False
        Else
            e.Handled = True
        End If
    End Sub

Private Sub txtK_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtK.KeyPress
        If Char.IsDigit(e.KeyChar) Then
            e.Handled = False
        ElseIf Char.IsControl(e.KeyChar) Then
            e.Handled = False
        Else
            e.Handled = True
        End If
    End Sub

End Class

Resultado:

2). Crear una Clase que permita ingresar un número para que muestre números aleatorios  y desarrollar dos métodos numeroMayor y numeroMenor que lo conforma.
.Creamos una clase con el nombre “ClsNumeroMayMe.vb” dentro de la  carpeta clases

Un formulario con el nombre:“FrmMayoryMenor.vb” que tendrá en el diseño: 4label dos de ellos con AutoSize "False",1 TextBox con el nombre "txtnumero", 1 ListBox con el nombre de "Lstlista" y un Button "btningresar" como muestra la imagen:

 

Clase ClsNumeroMayMe:

Public Class ClsNumeroMayMe
    Private n As Integer
    Private lista() As Integer
    Property xn As Integer
        Get
            Return Me.n
        End Get
        Set(value As Integer)
            Me.n = value
        End Set
    End Property
    'En este método generamos los números aleatorios que se
    'van a mostrar en la  lstlista
    Public Function asignacion() As Integer()
        lista = New Integer(Me.xn) {}
        For i = 0 To lista.Length - 2
            lista(i) = 1 + Rnd() * 50
        Next
        Return lista
    End Function
    'método del numero mayor
    Public Function numeroMayor() As Integer
        Dim ma As Integer = 0
          For i = 0 To lista.Length - 2
            'Preguntamos  si el valor de la lista actual es mayor que el valor de ma
            'Si es verdad lo remplazamos
            If Me.lista(i) >= ma Then
                ma = Me.lista(i)
            Else
                ' si no es el mismo valor
                ma = ma
            End If

        Next
        Return ma
    End Function
    'método del numero menor
    Public Function numeroMenor() As Integer
        Dim men As Integer = lista(1)
        For i = 0 To lista.Length - 2
            If lista(i) <= men Then
                men = lista(i)
            Else
                men = men
            End If
        Next
        Return men
    End Function
End Class

Programamos en el Formulario:

Public Class FrmMayoryMenor
    Private lista() As Integer
    Private onumero As ClsNumeroMayMe
    Private Sub btningresar_Click(sender As System.Object, e As System.EventArgs) Handles btningresar.Click
        onumero = New ClsNumeroMayMe
        onumero.xn = txtnumero.Text
        lista = onumero.asignacion
        Lstlista.Items.Clear()
        For i = 0 To lista.Length - 2
            Lstlista.Items.Add(lista(i))
        Next

      'los label
        lblmayor.Text = onumero.numeroMayor
        lblmenor.Text = onumero.numeroMenor
    End Sub
End Class

Resultado:

3).Implemente la clase Matematica con los siguientes Métodos:

    a. getNumeroPerfecto (se considera número perfecto cuando la suma de sus divisores  es igual al número. Por ejemplo 6 tiene como divisores 1, 2, 3 y la suma es 6, el 28 tiene como divisores 1, 2, 4, 7, 14 y la suma es 28).

     b. getCubosPerfectos: Son aquellos que sumados los cubos de sus dígitos nos dan el mismo número. Por ejemplo 153 es un cubo perfecto porque 1^3 + 5^3+ 3^3 = 153 
Creamos una clase con el nombre “ClsMatematica.vb” dentro de la  carpeta clases

Un formulario con el nombre:“FrmMatematicaCuPef.vb” . 

El diseño: 1 GroupBox dentro de este tendra -- 5 label dos de ellos con AutoSize "False", BorderStyle "Fixed3D"y en el name "lblnumero,lblcubo",1 TextBox con el nombre "txtnumero"  y un Button "btncalcular" , como muestra la imagen:

 Clase ClsMatematica:

Public Class ClsMatematica
    Private numero As Integer
    Public Property xnumero As Integer
        Get
            Return Me.numero
        End Get
        Set(value As Integer)
            Me.numero = value
        End Set
    End Property
'en esta function se calcula  si el numero es prefecto o no es perfecto
    Public Function getNumeroPerfecto() As String
        Dim numper As String = ""
        Dim r As Integer = 0
        Dim i As Integer
 'recorremos desde 1 antes del numero ingresado en el texto
        For i = 1 To Me.xnumero - 1
 'preguntamos si el numero ingresado tiene como divisores al I si es así sumamos
            If Me.xnumero Mod i = 0 Then
                r = r + i
            End If
        Next
 'si la suma es igual al número es perfecto de lo contrario imperfecto
        If Me.xnumero = r Then
            numper = "PERFECTO"
        Else
            numper = "IMPERFECTO"
        End If
 ' retorna la variable numper
        Return numper
    End Function
 

'en esta function se calcula  si el cubo es prefecto o no es perfecto
    Public Function getCuboPerfecto() As String
        Dim cubper As String = ""
        Dim I As Integer
        Dim t As Integer
        Dim sum As Integer = 0 

'recorremos desde 1 hasta el tamaño  de la variable  numero ingresado por el texto
        For I = 1 To Me.xnumero.ToString.Length 

'Devuelve una cadena que contiene un número especificado de caracteres de una cadena por ejemplo si NUMERO ES IGUAL ="1234", t = Mid(numero, p, n) Toma los n caracteres indicados a partir de la posición p como así t = Mid(numero, 1, 1) entonces t TENDRÍA EL VALOR = 1, otro ejemplo: t = Mid(numero, 2, 1) t TOMARÍA EL VALOR = 2 y así sucesivamente
            t = Mid(Me.xnumero, I, 1)
'una ves obtenido el valor lo elevamos a 3 y sumamos sucesivamente
            sum = sum + (t ^ 3)
        Next

'si la suma es igual al número es un cubo perfecto de lo contrario imperfecto
        If Me.xnumero = sum Then
            cubper = "PERFECTO"
        Else
            cubper = "IMPERFECTO"
        End If
        Return cubper
    End Function
End Class

Programamos en el Formulario:
Public Class FrmMatematicaCuPef
    Private omatematica As ClsMatematica
    Private Sub btncalcular_Click(sender As System.Object, e As System.EventArgs) Handles btncalcular.Click
        omatematica = New ClsMatematica
        omatematica.xnumero = txtnumero.Text
        lblcubo.Text = omatematica.getCuboPerfecto
        lblnumero.Text = omatematica.getNumeroPerfecto
        omatematica.xnumero = Nothing
    End Sub
End Class
Resultado:

4). El gobierno ha implementado como parte de su programa social, un subsidio familiar bajo la siguiente reglamentación:

• Las familias que tienen hasta 2 hijos reciben S/. 70.00, las que tienen entre 3 y 5 hijos  reciben S/. 90.00 y las que tienen 6 hijos o más reciben S/.120.00 mensual.

• Si la madre de familia fuera viuda, la familia recibe S/. 20.00 adicionales o si fuera divorciada recibe S/. 10.00 adicionales .

Determinar el monto mensual que recibirá una familia de acuerdo a su propia realidad familiar.Creamos una clase con el nombre “Clsfamilia.vb” dentro de la  carpeta clases

Un formulario con el nombre:“FrmProgramaFamiliar.vb”

El diseño : 1 GroupBox dentro de este tendra -- 2 label, 1 TextBox con el nombre "txthijos", 1 ComboBox con el nombre de "cbestado" y un Button "btncalcular" , como muestra la imagen:

Clase Clsfamilia:
Public Class Clsfamilia
    Private nhijos As Integer
    Private estado As String
    Public Property xnhijos As Integer
        Get
            Return Me.nhijos
        End Get
        Set(value As Integer)
            Me.nhijos = value
        End Set
    End Property
    Public Property xestado As String
        Get
            Return Me.estado
        End Get
        Set(value As String)
            Me.estado = value
        End Set
    End Property
' en esta funcion se calcula el sub total de su sueldo
    Public Function sueldomensual() As Integer
        Dim suel As Integer
        If Me.nhijos > 0 And Me.nhijos <= 2 Then
            suel = 70
        ElseIf Me.nhijos > 2 And Me.nhijos <= 5 Then
            suel = 90
        ElseIf Me.nhijos > 5 Then
            suel = 120
        End If
        Return suel
    End Function 
' en esta funcion se calcula el sueldo total
    Public Function totalsueldomensual() As Integer
        Dim totalsuel As Integer
        If Me.estado = "Viuda" Then
            totalsuel = Me.sueldomensual + 20
        ElseIf Me.estado = "Divorciada" Then
            totalsuel = Me.sueldomensual + 10
        Else
            totalsuel = Me.sueldomensual
        End If
        Return totalsuel
    End Function
End Class

Programamos en el Formulario:
Public Class FrmProgramaFamiliar
    Private ofamilia As Clsfamilia
     Private Sub FrmProgramaFamiliar_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load 
'cargamos los ítems que va tener  el estado(combobox)
        cbestado.Text = "Viuda"
        cbestado.Items.Add("Viuda")
        cbestado.Items.Add("Soltera")
        cbestado.Items.Add("Divorciada")
    End Sub
    Private Sub btncalcular_Click(sender As System.Object, e As System.EventArgs) Handles btncalcular.Click
        ofamilia = New Clsfamilia
        ofamilia.xestado = cbestado.Text
        ofamilia.xnhijos = txthijos.Text
        MessageBox.Show("monto mensuales de :  S/." & ofamilia.totalsueldomensual & " nuevo soles mensuales ", "Programa Social")
    End Sub
End Class
Resultado:

 5). Implementar el siguiente ejercicio con POO, Determinar la cantidad de dígitos que tiene un número entero y además mostrar la suma de los dígitos pares e impares. Considerar al cero como dígito par.Creamos una clase con el nombre “ClsDigitos.vb” dentro de la  carpeta clases

En el diseño del  formulario con el nombre:“FrmProgramaFamiliar.vb”

Tenemos los siguientes cuadros de herramientas : 7 label y 3 de ellos con el nombre "lblcandidad, lblimpar ,lblpar " con su respectivas propiedades antes enseñadas , 1 TextBox con el nombre "txtnumero" y un Button "btncalcular" , como muestra la imagen:

Clase ClsDigitos:
Public Class ClsDigitos
    Private numero As Integer
    Public Property xnumero As Integer
        Get
            Return Me.numero
        End Get
        Set(value As Integer)
            Me.numero = value
        End Set
    End Property

    Public Function cantidad_digitos() As Integer
        Dim cantida As Integer
'con esta función calculamos el tamaño de caracteres de un valor con  ToString.Length por ejemplo V=128 el tamaño seria = 3 ................
        cantida = Me.xnumero.ToString.Length
        Return cantida
    End Function

    Public Function sumarimpar() As Integer
        Dim r As Integer
        Dim resuim As Integer = 0
'recorremos hasta el tamaño del valor
        For i = 1 To Me.cantidad_digitos
'con mid damos un rango para recorrer los caracteres de una variable por ejemplo V= 12345 colocamos de  Mid(Me.xnumero, 1, 1) obtendremos 1 o Mid(Me.xnumero, 3, 1) obtendríamos   el 3 ...
            r = Mid(Me.xnumero, i, 1)
'preguntamos si el residuo es diferente de o suma impares
            If r Mod 2 <> 0 Then
                resuim = resuim + 1
            End If
        Next
        Return resuim
    End Function
    Public Function sumarpar() As Integer
        Dim rp As Integer
        Dim resulpar As Integer = 0
        For i = 1 To Me.cantidad_digitos
            rp = Mid(Me.xnumero, i, 1)
'preguntamos  igual 0 por que  lo tomamos como par
            If rp = 0 Then
                resulpar = resulpar + 1
            Else
                If rp Mod 2 = 0 Then
                    resulpar = resulpar + 1
                End If
            End If
        Next
        Return resulpar
    End Function
End Class

Programamos en el Formulario: 
Public Class FrmDigitoResul
    Private odigito As ClsDigitos
    Private Sub btncalcular_Click(sender As System.Object, e As System.EventArgs) Handles btncalcular.Click
        odigito = New ClsDigitos
        odigito.xnumero = txtnumero.Text
        lblcandidad.Text = odigito.cantidad_digitos
        lblimpar.Text = odigito.sumarimpar
        lblpar.Text = odigito.sumarpar
    End Sub
'todo esto debe estar en evento KeyPress
    Private Sub txtnumero_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtnumero.KeyPress
'primer if si es que esta vacío el txtnumero y si quieres ingresar un cero no puedas (el cero se ingresa después de cualquier numero ingresado)
        If Me.txtnumero.Text.Length = 0 And e.KeyChar = "0" Then
            e.Handled = True
            MessageBox.Show("no esta permitido ingresar el cero primero", "aviso", 0)
        Else
'Char.IsNumber(e.KeyChar) solo me ingrese numero nada de letras colocándolo  e.Handled = False para se active el requisito
            If Char.IsNumber(e.KeyChar) Then
                e.Handled = False
' Char.IsControl(e.KeyChar) permita tambien el ingreso de retroceso
            ElseIf Char.IsControl(e.KeyChar) Then
                e.Handled = False
            Else
' si no cumple  con las siguinte if que no me deje ingresar o digitar nada en el texto
                e.Handled = True
            End If
        End If
      End Sub
End Class 
Resultado: 

6).Implemente la clase Alumno con el atributo definidos en la clase (edad) 
Creamos una clase con el nombre “ClsAlumno.vb” dentro de la  carpeta clases.

En el diseño del  formulario con el nombre:“FrmAlumno.vb”

Tenemos los siguientes cuadros de herramientas : 8 label y 4 de ellos con el nombre "lblsuma, lblpromedio, lblmayor, lblmenor" con su respectivas propiedades antes enseñadas, 1 ListBox  con el nombre "lstlista" y 2 Button "btncalcular, btnasc" , como muestra la imagen:

Clase ClsAlumno:
 Public Class ClsAlumno
    Private edad() As Integer
    Public Function generaredades(ByVal n As Integer) As Integer()
        Dim i As Integer
        Me.edad = New Integer(n) {}
        For i = 0 To Me.edad.Length - 1
            Me.edad(i) = 1 + Rnd() * 100
        Next
        Return Me.edad
    End Function
    Public Function CalcularSuma() As Integer
        Dim t As Integer = 0
        Dim i As Integer
        For i = 0 To Me.edad.Length - 1
            t = t + Me.edad(i)
        Next
        Return t
    End Function
    Public Function CalcularPromedio() As Double
        Dim p As Double
        p = Me.CalcularSuma / (Me.edad.Length)
        Return p
    End Function
    Public Function CalcularMayor() As Integer
        Dim i As Integer
        Dim f As Integer = 0
        Dim mostrar As Integer
        For i = 0 To Me.edad.Length - 1
            If Me.edad(i) > f Then
                mostrar = Me.edad(i)
                f = edad(i)
            Else
                mostrar = f
            End If
        Next
        Return mostrar
    End Function
    Public Function CalcualrMenor() As Integer
        Dim i As Integer
        Dim f As Integer = Me.edad(1)
        Dim mostrarm As Integer
        For i = 0 To Me.edad.Length - 1
            If Me.edad(i) <= f Then
                mostrarm = Me.edad(i)
                f = edad(i)
            Else
                mostrarm = f
            End If
        Next
        Return mostrarm
    End Function
    Public Function asc() As Integer()
'con esta  Array.Sort(Of Integer)(edad) ponemos el array en froma Ascendente
        Array.Sort(Of Integer)(edad)
        Return Me.edad
    End Function
End Class

Programamos en el Formulario: 
Public Class FrmAlumno
    Private oalumno As ClsAlumno
    Private edad() As Integer
    Private Sub FrmAlumno_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
'botón  btnasc este desactivado al momento de cargar el formulario
        btnasc.Enabled = False
    End Sub
    Private Sub btncalcular_Click(sender As System.Object, e As System.EventArgs) Handles btncalcular.Click
        oalumno = New ClsAlumno
'generaredades(3)   hay em mostrara 4 edades por que  es 0.1.2.3     
     edad = oalumno.generaredades(3)
        lstlista.Items.Clear()
        For i = 0 To edad.Length - 1
            lstlista.Items.Add(edad(i))
        Next
        lblsuma.Text = oalumno.CalcularSuma
        lblpromedio.Text = oalumno.CalcularPromedio
        lblmayor.Text = oalumno.CalcularMayor
        lblmenor.Text = oalumno.CalcualrMenor
'boton  btnasc se active
        btnasc.Enabled = True
    End Sub
    Private Sub btnasc_Click(sender As System.Object, e As System.EventArgs) Handles btnasc.Click
        lstlista.Items.Clear()
        edad = oalumno.asc
        For i = 0 To edad.Length - 1
            lstlista.Items.Add(edad(i))
        Next
    End Sub
End Class 
Resultado:  

 

DESCARGAR: EJEMPLO

BIENVENIDOS A MI BLOG

   
Te doy la gran bienvenida a mi blog. Esta ventana de comunicación nace con el humilde propósito de poder compartir información, todo con respeto a lenguajes de programación, Base de datos, entre otros temas que los puedes ubicar en los menús.

Cada tema puede ser enriquecido por ustedes mismos, ya que este blog tiene el fin de compartir información y aprender de ello.

Sin duda que vuestros comentarios, críticas o sugerencias sobre el contenido de este blog es lo que hará más rico y atractivo este espacio, por el cual te invito desde este momento ser parte de él

APLICANDO ARREGLOS(ARRAYS)

Los Arrays o arreglos son conjuntos de Variables Agrupadas con un nombre, que se pueden manejar juntas o individualmente, en Visual Basic .Net se pueden tener arreglos desde una dimensión y hasta un máximo de 32 dimensiones. Puede ver mas en http://emilio.aesinformatica.com/2009/06/05/visual-basic-net-arrays-y-arrays-multidimensionales/.

Nota: Si declaramos a una matriz (6), tendríamos 7 elementos por que recorre desde cero ejemplo
          Private estudiante() As Integer
          estudiante = New Integer(6) {} , seria como muestran los elementos en la imagen:

. Ejemplo 01: mostra 6 edades aleatorias de una clase persona, también sacar su suma y su promedio de las edades .

 

.Agregamos una clase con el nombre"Persona.vb" dentro de una carpeta  llamado"clases", y tambien agregamos un formulario con el nombre "FrmPeredadsum.vb"

Diseño del fromulario: 1ListBox.1Button,4label como muestra la imagen:

Clase Persona:

Public Class Persona
    Private edad() As Integer
    'desde este método devuelves un arreglo '
    'byval sirve para pasar  valores'
    Function generaredades(ByVal n As Integer) As Integer()
        Dim i As Integer
        'Al utilizar una cláusula New, ésta debe ir seguida de llaves ({}), incluso si están vacías
        Me.edad = New Integer(n) {}
        For i = 0 To edad.Length - 1
            Me.edad(i) = 1 + Rnd() * 100 'Generar valor aleatorio entre 1 y 100.
        Next
        Return Me.edad
    End Function

    Function suma() As Integer
        Dim i As Integer
        Dim SUM As Integer
        SUM = 0
        For i = 0 To edad.Length - 1
            SUM = SUM + edad(i)
        Next
        Return SUM
    End Function

    Function promedio() As Double
        Dim pro As Double
        pro = Me.suma / (edad.Length - 1)
        Return pro
    End Function
End Class

Programamos en el Formulario:

Public Class FrmPeredadsum
    Private opersona As Persona
    Private edad() As Integer
    Private Sub btncalcular_Click(sender As System.Object, e As System.EventArgs) Handles btncalcular.Click
        Dim i As Integer
        lstedadeslis.Items.Clear()
        opersona = New Persona
        edad = opersona.generaredades(5)

        For i = 0 To edad.Length - 1
            lstedadeslis.Items.Add(edad(i))
        Next
        lblpromedio.Text = opersona.promedio
        lblsuma.Text = opersona.suma
    End Sub
End Class

Resultado:

. Ejemplo 02: usamos la misma clase "Persona" del ejemplo anterior, agregamos un nuevo fromulario con el nombre de Frmedadcond.vb
. Diseño del formulario: 4 label,1 button, 1 ListView como muestra la imagen:

configuración del ListView con el nombre "lsvmostreo",sigamos las imágenes:
   -configurando las columnas  en las propiedades de ListView-

  

Clase Persona (la misma clase del ejercicio nterior solo agregamos lo siguiente):

Public Class Persona
     Function total_menor() As Integer
        Dim i As Integer
        Dim R As Integer
        For i = 0 To Me.edad.Length - 1
            If edad(i) < 18 Then
                R = R + 1
            End If
        Next
        Return R
    End Function
    Function total_mayorr() As Integer
        Dim i As Integer
        Dim R As Integer
        For i = 0 To Me.edad.Length - 1
            If edad(i) >= 18 Then
                R = R + 1
            End If
        Next
        Return R
    End Function
End Class

Programamos en el Formulario:

Public Class Frmedadcond
  'Creo una variable de tipo ListViewItem (ALMACEN) que sirve para ir agregando al ListView.
    Private ALMACEN As ListViewItem
    Private opersona As Persona
    Private edad() As Integer Private Sub BTNMOSTRAR_Click(sender As System.Object, e As System.EventArgs) Handles BTNMOSTRAR.Click
        Dim i As Integer
        opersona = New Persona
        edad = opersona.generaredades(5)
        lsvmostreo.Items.Clear()
 
        For i = 0 To edad.Length - 1
            'Creo una nueva instancia del ALMACEN
             ALMACEN = New ListViewItem
            'pasamos como dado principal
            ALMACEN.Text = edad(i)
            If edad(i) >= 18 Then
              'Agregamos  los demas datos a los SubItems
                ALMACEN.SubItems.Add("MAYOR DE EDAD")
            Else
                ALMACEN.SubItems.Add("MENOR DE EDAD")
            End If
            'Agrego el almacen  a la colección de listViewItem a  lsvmostreo.
            lsvmostreo.Items.Add(ALMACEN)
        Next
        lblmenores.Text = opersona.total_menor
        lblmayores.Text = opersona.total_mayorr
    End Sub
End Class


Resultado:

. Ejemplo 03: calcular la temperatura minima, maxima y su promedio en 16 dias que oscile ente 10 y 36.

.Crear una clase con el nombre "ClsTemperatura.vb" en una carpeta "clases", agregamos un nuevo formulario con el nombre "FrmTemperatura.vb"

. Diseño del fromulario: 1 button , 1 ListView nombre "Lvtabla" que tine 4 columnas, como muestra la imagen : 

.Clase ClsTemperatura:
Public Class ClsTemperatura
    ' matriz filas y columnas bidimensionales
    Private num(,) As Integer

    Public Sub simular()
        Me.num = New Integer(15, 2) {}
        Dim i As Integer
        For i = 0 To 15
            num(i, 0) = 10 + Rnd() * 13
            num(i, 1) = num(i, 0) + Rnd() * 13
            num(i, 2) = (num(i, 0) + num(i, 1)) / 2
        Next
    End Sub
    'retorno'
    Public Function mostraresiltado() As Integer(,)
        Return num
    End Function
End Class


Programamos en el Formulario:
Public Class FrmTemperatura
    Private otemperatura As ClsTemperatura
    Private tem(,) As Integer
    Private ingresar As ListViewItem
Private Sub BtnMostrar_Click(sender As System.Object, e As System.EventArgs) Handles BtnMostrar.Click
        otemperatura = New ClsTemperatura
        otemperatura.simular()
        tem = otemperatura.mostraresiltado
        lsvresul.Items.Clear()
        Dim i As Integer

        For i = 0 To 15
            ingresar = New ListViewItem
            ingresar.Text = i + 1
            ingresar.SubItems.Add(tem(i, 0))
            ingresar.SubItems.Add(tem(i, 1))
            ingresar.SubItems.Add(tem(i, 2))
            lsvresul.Items.Add(ingresar)
        Next
    End Sub
End Class

Resultado:

.Ejemplo04: en este ejemplo vamos hacer una tabla aritmética de suma, resta, multiplicación, división:

. Creamos una clase con el nombre "ClsTabla.vb" en  una carpeta llamada "clases", luego agregamos un formulario con el nombre "FrmTablaAritmetica.vb"
.Diseño del Formulario: 1 label, 1 TextBox en su propiedad name "txtvalor", 1 button en su propiedad name "Btnmostrar", 1 GroupBox, 4 RadioButton en su propiedad name colocamos "Rbsuma, RbResta, RbMultiplicar, RbDividir", 1 ListView en su propiedad name "lsvresul", vemos la imagen:

.Clase ClsTabla:

Public Class ClsTabla
    Private resul() As Double

    Public Function operacion(ByVal tipo As String, ByVal operador As Integer) As Double()
        Dim i As Integer

        resul = New Double(15) {}
        Select Case tipo
            Case "+"
                For i = 1 To 15
                    resul(i) = operador + i
                Next
            Case "-"
                For i = 1 To 15
                    resul(i) = operador - i
                Next
            Case "*"
                For i = 1 To 15
                    resul(i) = operador * i
                Next
            Case "/"
                For i = 1 To 15
                    resul(i) = operador / i
                Next
        End Select
        Return resul
    End Function
End Class 

Programamos en el Formulario:
Public Class FrmTablaAritmetica
    Private lista As ListViewItem
    Private resultado() As Double
    Private otablas As ClsTabla
    Private tipo As String
    Private valor As Integer
Private Sub Btnmostrar_Click(sender As System.Object, e As System.EventArgs) Handles Btnmostrar.Click
        If Rbsuma.Checked Then tipo = "+"
        If RbResta.Checked Then tipo = "-"
        If RbMultiplicar.Checked Then tipo = "*"
        If RbDividir.Checked Then tipo = "/"
        otablas = New ClsTabla
        valor = txtvalor.Text
        resultado = otablas.operacion(tipo, valor)
        Dim i As Integer
        lsvresul.Items.Clear()
        For i = 1 To 12
            lista = New ListViewItem
            lista.Text = valor
            lista.SubItems.Add(tipo)
            lista.SubItems.Add(i)
            lista.SubItems.Add(resultado(i))
            lsvresul.Items.Add(lista)
        Next
    End Sub
Private Sub FrmTablaAritmetica_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Rbsuma.Checked = True
    End Sub
End Class

Resultado:

Descargar los Ejemplos