CALCULADORA EN VB.NET (CÓDIGOS)

Public Class CALCULARORAS

    Public NUMERO1 As String

    Public OPERADOR As String

    Public NUMERO2 As String

    Public RESULTADO As String

    Private Sub BUTTON1_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTPUNTO.CLICK

        PANTALLA.TEXT = PANTALLA.TEXT + "."

    End Sub

    Private Sub BTO1_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BTO1.CLICK

        PANTALLA.TEXT = PANTALLA.TEXT + "1"

    End Sub

    Private Sub BUT2_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUT2.CLICK

        PANTALLA.TEXT = PANTALLA.TEXT + "2"

    End Sub

    Private Sub BUT3_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUT3.CLICK

        PANTALLA.TEXT = PANTALLA.TEXT + "3"

    End Sub

    Private Sub BUT4_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUT4.CLICK

        PANTALLA.TEXT = PANTALLA.TEXT + "4"

    End Sub

    Private Sub BUT5_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUT5.CLICK

        PANTALLA.TEXT = PANTALLA.TEXT + "5"

    End Sub

    Private Sub BUT6_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUT6.CLICK

        PANTALLA.TEXT = PANTALLA.TEXT + "6"

    End Sub

    Private Sub BUT7_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUT7.CLICK

        PANTALLA.TEXT = PANTALLA.TEXT + "7"

    End Sub

    Private Sub BUT8_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUT8.CLICK

        PANTALLA.TEXT = PANTALLA.TEXT + "8"

    End Sub

    Private Sub BUT9_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUT9.CLICK

        PANTALLA.TEXT = PANTALLA.TEXT + "9"

    End Sub

    Private Sub BUTZERO_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTZERO.CLICK

        PANTALLA.TEXT = PANTALLA.TEXT + "0"

    End Sub

    Private Sub BUTCE_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTCE.CLICK

        PANTALLA.CLEAR()

    End Sub

    Private Sub BUTTON19_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTSUMAR.CLICK

        NUMERO1 = PANTALLA.TEXT

        PANTALLA.CLEAR()

        OPERADOR = "SUMA"

    End Sub

    Private Sub BUTSUMAR_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTRESULIGUAL.CLICK

        NUMERO2 = PANTALLA.TEXT

        PANTALLA.CLEAR()

        If OPERADOR = "SUMA" Then

            RESULTADO = Val(NUMERO1) + Val(NUMERO2)

            PANTALLA.TEXT = RESULTADO

        End If

        If OPERADOR = "RESTA" Then

            RESULTADO = Val(NUMERO1) - Val(NUMERO2)

            PANTALLA.TEXT = RESULTADO

        End If

        If OPERADOR = "MULTIPLICACION" Then

            RESULTADO = Val(NUMERO1) * Val(NUMERO2)

            PANTALLA.TEXT = RESULTADO

        End If

        If OPERADOR = "DIVISION" Then

            RESULTADO = Val(NUMERO1) / Val(NUMERO2)

            PANTALLA.TEXT = RESULTADO

        End If

    End Sub

    Private Sub BUTRESTAR_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTRESTAR.CLICK

        NUMERO1 = PANTALLA.TEXT

        PANTALLA.CLEAR()

        OPERADOR = "RESTA"

    End Sub

    Private Sub BUTMULTI_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTMULTI.CLICK

        NUMERO1 = PANTALLA.TEXT

        PANTALLA.CLEAR()

        OPERADOR = "MULTIPLICACION"

    End Sub

    Private Sub BUTDIVI_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTDIVI.CLICK

        NUMERO1 = PANTALLA.TEXT

        PANTALLA.CLEAR()

        OPERADOR = "DIVISION"

    End Sub

    Private Sub BUTRAIZQ_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTRAIZQ.CLICK

        PANTALLA.TEXT = Math.Sqrt(d:=Val(PANTALLA.TEXT))

    End Sub

---------------------------------------------------------------------------------------------------

/*--SQLQUERY_PROCEDIMIENTO ALMACENADO PARA CREAR UNA CALCULADORA*/

/*

PROCEDIMIENTO ALMACENADO PARA CREAR UNA CALCULADORA

*/

USE EJEMPLO

GO

CREATE PROCEDURE DBO.CALCULADORA

@PNUM1 SMALLINT,

@PNUM2 SMALLINT,

@PSUMA SMALLINT OUTPUT,

@PRESTA SMALLINT OUTPUT,

@PMULTI SMALLINT OUTPUT,

@PDIVIDE SMALLINT OUTPUT

AS

SET @PMULTI=@PNUM1*@PNUM2

SET @PSUMA=@PNUM1+@PNUM2

SET @PRESTA=@PNUM1-@PNUM2

SET @PDIVIDE=0

IF @PNUM2 <>0

BEGIN

SET @PDIVIDE=@PNUM1/@PNUM2

END

GO