Clases Y Funciones vb.net

Hoy vamos a mostrar la forma de crear clases en vb.net  utilizando funciones, la idea es crear una clase llamada Nomina, la cual va a contener funciones para Calcular en base al sueldo bruto del empleado,  el Ahorro de fondo de pensiones (afp), Sfs (seguro Familiar de salud (sfs), Total de descuento ( afp +  sfs) y por último sueldo neto (sualdo bruto  menos el descuento).

Lo primero que tenemos que hacer es crear la clase, para ello  en el Solution Explorer pulsamos clic derecho y nos ubicamos en la opción Add, luego seleccionamos la opción que dice Class .

1)

2)

y se mostrara un código como el siguiente:

Public Class Class1

End Class

Sustituimos Class1 por el nombre que le vamos a asignar en nuestro caso la llamaremos Nomina.

Public Class Nomina

End Class

Luego procedemos a crear las funciones que mencionamos anteriormente, recordando que una función desde el punto de vista de programación, se define como un proceso que recibe valores de entrada (llamados argumentos) y retornan un resultado.

Dentro de la clase vamos a definir las funciones que necesitamos, iniciamos con la de afp, el orden no es necesario para estos fines.

Public Class nomina

   

     Public Shared Function afp(ByVal sb As Double) As Double

        afp = sb * 0.03

     End Function

   

   

   Public Shared Function sfs(ByVal sb As Double) As Double

        sfs = sb * 0.02

    End Function

  Public Shared Function descuento(ByVal des_afp As Double, ByVal des_sfs As Double) As Double

        descuento = des_afp + des_sfs

    End Function

Public Shared Function sueldo_neto(ByVal sb As Double, ByVal totdes As Double) As Double

        sueldo_neto = sb - totdes

    End Function

End Class

Después de crear la clase, podemos proceder a llamarla desde cualquier formulario de nuestro proyecto.

Ejemplo.

txtafp.Text = nomina.afp(txtsueldo.Text)

txtsfs.Text = nomina.sfs(txtsueldo.Text)

txtdescuento.Text = nomina.descuento(txtafp.Text, txtsfs.Text)

TXTSUELDONET.Text = nomina.sueldo_neto(txtsueldo.Text, txtdescuento.Text)

Como ustedes comprederan la programación utilizandos clase nos proporciona una mejor reutilización de nuestro código y nos facilita el mantenimiento de nuestras aplicaciones.

En la próxima entrega estaremos viendo como hacer esto en c#, muy parecido les adelanto.

Att. Diógenes Amaury MS