Clases y Formularios con Visual Basic.NET 2008

PROGRAMACIÓN ORIENTADA A OBJETOS (POO)
Creamos la siguiente clase denominada CLSPLANILLA (ClsPlanilla.vb)
Public Class ClsPlanilla
    Private nombres As String
    Private apellidos As String
    Private sueldo As Double
    Private aumento As Double
    Private descuento As Double
    Private sneto As Double
    Public Property pnombres() As String
        Get
            Return nombres
        End Get
        Set(ByVal value As String)
            nombres = value
        End Set
    End Property
    Public Property papellidos() As String
        Get
            Return apellidos
        End Get
        Set(ByVal value As String)
            apellidos = value
        End Set
    End Property
    Public Property psueldo() As Double
        Get
            Return sueldo
        End Get
        Set(ByVal value As Double)
            sueldo = value
        End Set
    End Property
    Public Property paumento() As Double
        Get
            Return aumento
        End Get
        Set(ByVal value As Double)
            aumento = value
        End Set
    End Property
    Public Property pdescuento() As Double
        Get
            Return descuento
        End Get
        Set(ByVal value As Double)
            descuento = value
        End Set
    End Property
    Public Property psneto() As Double
        Get
            Return sneto
        End Get
        Set(ByVal value As Double)
            sneto = value
        End Set
    End Property
End Class
Diseñamos el siguiente formulario:


Codificamos en el botón calcular (Instanciamos la clase CLSPLANILLA):
        Dim obje As New ClsPlanilla
        obje.pnombres = txtnom.Text
        obje.papellidos = txtape.Text
        obje.psueldo = txtsue.Text
        obje.paumento = Double.Parse(obje.psueldo) * 0.05
        obje.pdescuento = Double.Parse(obje.psueldo) * 0.09
        obje.psneto = Double.Parse(obje.psueldo) + Double.Parse(obje.paumento)
        MsgBox("Empleado: " & obje.pnombres & " " & obje.papellidos & Chr(13) & _
               "Sueldo: " & obje.psueldo & Chr(13) & _
               "Aumento 5%: " & obje.paumento & Chr(13) & _
               "Descuento 9%: " & obje.pdescuento & Chr(13) & _
               "Sueldo Neto: " & obje.psneto)

Guarde y ejecute la aplicación. Se mostrara el siguiente mensaje con las propiedades get y set de la clase CLSPLANILLA:

Espero te sirva...
Para mis seguidores de NICARAGUA
Prof. Jhonatan Abal Mejia

Comentarios

Publicar un comentario

Entradas populares

Ejercicios Consola Visual Basic.NET

Module Module1 Sub Bienvenida() 'Programa que muestra un MENSAJE, almacenado en una VARIABLE Dim MEN As String 'VARIABLE MEN = "Bienvenidos al Microsoft Visual Studio.net 2008" Console.Write(MEN) Console.Read() End Sub Sub Mensaje() 'Programa que muestra MENSAJE, almacenado en una VARIABLE Dim Mens As String 'VARIABLE Mens = "Desarrollando aplicaciones en consola.net" Console.WriteLine(Mens) Console.Read() End Sub Sub Mensaje_vertical() 'Programa que muestra MENSAJE en forma VERTICAL, almacenado en una VARIABLE Dim MV As String 'VARIABLE MV = "Desarrollando aplicaciones en MS Visual Basic.net" Console.WriteLine(MV) Console.WriteLine(MV) Console.WriteLine(MV) Console.Read() End Sub Sub Sumar() 'Programa que SUMA 2 numeros enteros, solo con variables Dim n1, n2, S As Integer 'VARIABLES REM LEER n1 = Console.ReadLine n2 = Console.ReadLine REM PROCESO S = n1 + n2 REM ESCRIBIR Console.WriteLine...
Leer más

Numero Capicua Visual Basic

Obtener Numero Capicua de 3 Cifras en VISUAL BASIC 2010         Dim num, uni, aux, dec, cen As Integer         Dim rpta As String         Console.Write("Ingrese Numero de 3 Cifras:")         num = Console.ReadLine         If num >= 100 And num <= 999 Then             cen = num \ 100             aux = num Mod 100             dec = aux \ 10             uni = aux Mod 10             If cen = uni Then                 rpta = "Numero es Capicua"             Else                 rpta = "Numero no es Capicua"             End If         Else         ...
Leer más

Procedimientos Almacenados ORACLE

EJEMPLOS DE INSERTAR CON PROCEDIMIENTOS ALMACENADOS ORACLE 11G /*creacion de la tabla*/ create table clientes( idcliente varchar2(5)primary key, nombres varchar2(55), apellidos varchar2(55), dni varchar2(8) ); /*creacion del procedimiento almacenado*/ CREATE OR REPLACE PROCEDURE pa_grabar(id IN varchar2, nom IN varchar2, ape IN varchar2, dni IN varchar2) AS BEGIN INSERT INTO clientes VALUES(id,nom,ape,dni); END; /*ejecutar el procedimiento almacenado*/ EXECUTE pa_grabar('C0010','Juan','Perez Rios', '12345678');
Leer más