| Más

Últimos miembros

DilanLonAndresNICOLASRolando RuizMARTIN PERALES SOCOLAJuan

CALCULADORA EN CAPAS ECHO EN VISUAL ESTUDIO 2008

El ejecicio de hoy lo haremos en capas cliente-servidor
 creamos un nuevo proyecto de nombre calculadora

luego en el menu archivo o file hacen clic en agregar nuevo proyecto, eligen BIBLIOTECA DE CLASES y le damos el nombre de Prj_Capa_Entidad..

ahora una vez creados las capas. en la capa prj_Capa_entidad en la clase1, cambiamos el nombre a EN_calculadora
 y le damos doble clic:

y pegamos el siguiente codigo:

 Private _n1 As Double
    Private _n2 As Double
    Private _resultado As Double
    Private _operador As Char
    Public Property n1 As Double
        Get
            Return _n1
        End Get
        Set(ByVal value As Double)
            _n1 = value
        End Set
    End Property
 
    Public Property n2 As Double
        Get
            Return _n2
        End Get
        Set(ByVal value As Double)
            _n2 = value
        End Set
    End Property
    Public ReadOnly Property resultado As Double
        Get
            Return _resultado
        End Get
 
    End Property
    Public Property operador As Char
        Get
            Return _operador
        End Get
        Set(ByVal value As Char)
            _operador = value
        End Set
    End Property
 
    Public Function sumar(ByVal xn1 As Double, ByVal xn2 As Double) As Double
        _resultado = xn1 + xn2
        Return _resultado
 
    End Function
 
    Public Function restar (ByVal xn1 As Double, ByVal xn2 As Double) As Double
        _resultado = xn1 - xn2
        Return _resultado
 
    End Function
    Public Function multiplicar(ByVal xn1 As Double, ByVal xn2 As Double) As Double
        _resultado = xn1 * xn2
        Return _resultado
 
    End Function
    Public Function Dividir (ByVal xn1 As Double, ByVal xn2 As Double) As Double
        _resultado = xn1 / xn2
        Return _resultado
 
    End Function

_______""""""""""""""""""""""________________________"""""""""""""""""""""""""____________________"

ahora en la capa cliente osea en el formulario,  agregamos los controles asi como en la imagen 
y al textbox3 en su propiedad readonly= true

Ahora damos doble clic al boton sumar:
 y pegamos el siguiente codigo:


  Dim xcal As New EN_calculadora
        xcal.n1 = Val (Txt_n1.Text)
        xcal.n2 = Val (Txt_n2.Text)
 
        Xcal. Operador = "+"
        Lbl_resultado.Text = xcal. Sumar (xcal.n1, xcal.n2)
______________________________________________________________________________-

Ahora damos doble clic al boton restar:
 y pegamos el siguiente codigo:


  Dim xcal As New EN_calculadora
        xcal.n1 = Val (Txt_n1.Text)
        xcal.n2 = Val (Txt_n2.Text)
 
        Xcal. Operador = "-"
        Lbl_resultado.Text = xcal. restar (xcal.n1, xcal.n2)
______________________________________________________________________________________

y hacen lo mismo para el resto de los botones. solo cambian el operador y el nombre de la funcion:
y le dan F5 y a sumar lo que quiera:


 

calculadora en visual.net





 




 



 


 

© 2020 Multiservicios Erwin