Calculadora Sencilla

Bueno en esta ocasión les traigo una calculadora sencilla, espero sea de su agrado. Los pasos para hacer este proyecto son los siguientes:

1. creamos un proyecto nuevo en Visual Basic

2. Le ponemos por nombre Calculadora

3. En el Form1 colocamos lo siguiente:

• 1  GroupBox
• 4  Radio Button
• 3 Label
• 3 textBox
• 3 Button

A los controles se le cambian los nombres en la propiedad text así:

                                             Radio Button    

Name	Text
OpSuma	Suma
OpResta	Resta
OpMultiplicar	Multiplicar
OpDividir	División

                                                  Label

Name	Text
Label 1	Primer Numero
Label 2	Segundo Numero
Label 3	Tercer Numero

                                                     TextBox                                                                   

Name	Text
Text 1	Se deja en Blanco
Text 2	Se deja en Blanco
Text 3	Se deja en Blanco

                                         Button   

                      

Name	Text
Button 1	Calcular
Button 2	Limpiar
Button 3	Salir

Figura # 1

4. Comenzamos a codificar cada Button:

Button 1=  Calcular

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If opcsumar.Checked Then

            Txt3.Text = Val(Txt1.Text) + Val(Txt2.Text)

        ElseIf opcrestar.Checked Then

            Txt3.Text = Val(Txt1.Text) * Val(Txt2.Text)

        ElseIf opcmultiplicar.Checked Then

            Txt3.Text = Val(Txt1.Text) - Val(Txt2.Text)

        ElseIf opcdividir.CheckAlign Then

            Txt3.Text = Val(Txt1.Text) / Val(Txt2.Text)

        End If

    End Sub

Button 2 = Limpiar

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Txt1.Text = " "

        Txt2.Text = " "

        Txt3.Text = " "

    End Sub

Button 3 = Salir

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        End

    End Sub

End Class

Figura # 2

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If opcsumar.Checked Then

            Txt3.Text = Val(Txt1.Text) + Val(Txt2.Text)

        ElseIf opcrestar.Checked Then

            Txt3.Text = Val(Txt1.Text) * Val(Txt2.Text)

        ElseIf opcmultiplicar.Checked Then

            Txt3.Text = Val(Txt1.Text) - Val(Txt2.Text)

        ElseIf opcdividir.CheckAlign Then

            Txt3.Text = Val(Txt1.Text) / Val(Txt2.Text)

        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Txt1.Text = " "

        Txt2.Text = " "

        Txt3.Text = " "

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        End

    End Sub

End Class

5. Listo ejecutamos nuestro programa con F5, bueno eso es todo espero traerles muy pronto mi tercera entrada, cualquier duda  o comentario con mucho gusto les responderé muchas gracias.