VB.NET 4 - Condicionales SI (IF)

[postlink]http://tutorialeshispanos.blogspot.com/2012/06/vbnet-4-condicionales-si-if.html[/postlink]http://www.youtube.com/watch?v=3flOy8FLMagendofvid
[starttext]
En este video tutorial veremos el uso de el condicional si (if) , es uno de los condicionales mas basicos y nos ayudara a lo largo de nuestros tutoriales .

• Qué aprendo ?
• Resumen de el video
• Codigo Fuente

Aprenderás a :

• Usar el condicional IF (si)
• Hacer funcionar los botones suma , resta , multiplicacion , division .

Terminaremos con la parte logica de el programa que nos faltaba en este caso los botones de : suma , resta , division y multiplicacion .

Para lograr esto utilizaremos los condicionales . Y para este caso vamos a usar el condicional IF (si) .

Boton Igual

Private Sub btnigual_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnigual.Click


'IF - SI
'si ejecutamos algo debe realizar una accion
'IF then(entonces ) realiza una accion

If lbloperador.Text = "suma" Then
txtinfo.Text = Val(lblprimernumero.Text) + Val(txtinfo.Text)
End If

If lbloperador.Text = "resta" Then
txtinfo.Text = Val(lblprimernumero.Text) + Val(txtinfo.Text)
End If

If lbloperador.Text = "multiplicacion" Then
txtinfo.Text = Val(lblprimernumero.Text) + Val(txtinfo.Text)
End If

If lbloperador.Text = "division" Then
txtinfo.Text = Val(lblprimernumero.Text) + Val(txtinfo.Text)
End If




End Sub

Boton Resta

Private Sub btnresta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnresta.Click

lblprimernumero.Text = txtinfo.Text

txtinfo.Text = ""

lbloperador.Text = "resta"


End Sub

Boton Suma

Private Sub btnsuma_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsuma.Click


'cuando demos click en este boton queeremos que se elimine el valor de la caja de texto y que se almacene en el programa .

lblprimernumero.Text = txtinfo.Text

txtinfo.Text = ""

lbloperador.Text = "suma"


End Sub

Boton Multiplicacion

Private Sub btnmultiplicacion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmultiplicacion.Click

lblprimernumero.Text = txtinfo.Text

txtinfo.Text = ""

lbloperador.Text = "multiplicacion"



End Sub

Boton Division

Private Sub btndivision_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndivision.Click


lblprimernumero.Text = txtinfo.Text

txtinfo.Text = ""

lbloperador.Text = "division"



End Sub

[endtext]