[VB] Calculadora básica

[MATAzer0]

Bueno mi 1º programa ojo que no es un hello world jejeje , bueno es una sencilla calculadora que cree mas que todo para ver como servia todo eso del IF, bueno aquí esta el code:

Código:

Public Class Form1

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

    End Sub

 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If CheckBox1.Checked = True Then
            TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
        End If
        If CheckBox2.Checked = True Then
            TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
        End If

        If CheckBox3.Checked = True Then
            TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
        End If

        If CheckBox4.Checked = True Then
            TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text)
        End If







    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        If CheckBox1.Checked = True Then CheckBox1.Checked = False
        If CheckBox2.Checked = True Then CheckBox2.Checked = False
        If CheckBox3.Checked = True Then CheckBox3.Checked = False
        If CheckBox4.Checked = True Then CheckBox4.Checked = False







    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox2.Checked = True Then CheckBox1.Checked = False

        If CheckBox3.Checked = True Then CheckBox1.Checked = False

        If CheckBox4.Checked = True Then CheckBox1.Checked = False

        MsgBox("solo puedes seleccionar una opcion por vez")

    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        If CheckBox1.Checked = True Then CheckBox1.Checked = False

        If CheckBox3.Checked = True Then CheckBox1.Checked = False

        If CheckBox4.Checked = True Then CheckBox1.Checked = False

        MsgBox("solo puedes seleccionar una opcion por vez")
    End Sub

    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
        If CheckBox1.Checked = True Then CheckBox1.Checked = False

        If CheckBox2.Checked = True Then CheckBox1.Checked = False

        If CheckBox4.Checked = True Then CheckBox1.Checked = False

        MsgBox("solo puedes seleccionar una opcion por vez")
    End Sub

    Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
        If CheckBox1.Checked = True Then CheckBox1.Checked = False

        If CheckBox2.Checked = True Then CheckBox1.Checked = False

        If CheckBox3.Checked = True Then CheckBox1.Checked = False

        MsgBox("solo puedes seleccionar una opcion por vez")
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        MsgBox("creado por MATAzer0")
        End
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

Bastante simple  , ya estoy trabajando en un conversor de monedas para mi mamá 

[Rakzo-Fimbres]

Para tu comienzo men esta muy bien creeme! xD 

Y sigue asi poco a poco.. ya que incrementaras tu conocimiento a un bien  Supongo xD

Yo = asi comence men xD
Saludos

[MATAzer0]

jejejeje ya me imagino, ya le cree un programin a mi mama de conversion de monedas, es facil, solo multiplicar o dividir cantidades según sea el caso 

[ToXiTy]

muy lindo

[picihacker]

muy bien 
yo estoy creando un reproductor de musica si sabes algo me ayudas bueno
chao saludos y aniimo con la programacion
es el futuro de la imformatica