Calculadora

Una calculadora es un dispositivo  que se utiliza para realizar calculos arimeticos.

 

Para nuestra calculadora en Visual Basic necesitaremos

Paso 1:

Agregar Formulario con las siguientes Herramientas:

Textbox:3

RadioButton:8

GroupBox:1

Button:2

 

Ejemplo:

 

 

Comenzamos a Programar dandole click al formulario 

Suma:

Public Sub suma()
        Dim variable As Integer

        variable = Convert.ToInt32(TextBox1.Text) + Convert.ToInt32(TextBox2.Text)

        TextBox3.Text = variable
    End Sub

 

Resta:

 Public Sub resta()

        TextBox3.Text = Convert.ToInt32(TextBox1.Text) - Convert.ToInt32(TextBox2.Text)

    End Sub

 

Division:

 

 Public Sub division()
        TextBox3.Text = Convert.ToInt32(TextBox1.Text) / Convert.ToInt32(TextBox2.Text)
    End Sub

 

Porcentaje:

Public Sub porcentaje()
        TextBox3.Text = Convert.ToInt32(TextBox1.Text) * Convert.ToInt32(TextBox2.Text) / 100
    End Sub

 

Multiplicacion:

Public Sub Multiplicacion()
        TextBox3.Text = Convert.ToInt32(TextBox1.Text) * Convert.ToInt32(TextBox2.Text)
    End Sub 

 

Luego Programamos los Radio Button

Suma

Private Sub RadioButton5_Click1(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton5.Click
        suma()

 

Resta

Private Sub RadioButton4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton4.Click
        resta()

 

 

Division:

Private Sub RadioButton6_Click1(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton6.Click
        division()

Porcentaje

 Private Sub RadioButton7_Click1(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton7.Click
        porcentaje()

Multiplicacion 

Private Sub RadioButton8_Click1(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton8.Click
        Multiplicacion()

 Luego nos vamos al groupbox

 Y programamos Hexadecimal

Private Sub RadioButton2_Click(ByVal sender As Object, ByVal e As System.EventArgs)



        TextBox3.Text = Hex((TextBox3.Text().ToString()))

    End Sub
Octal
   Private Sub RadioButton3_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged

    End Sub

    Private Sub RadioButton3_Click1(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton3.Click

        TextBox3.Text = Oct((TextBox3.Text().ToString()))

    End Sub


Button Salir
Me.close


Button Limpiar
textbox1.text=""
textbox2.text=""
textbox3.text=""