VB.NET 1 - Uso de botones y Caja de texto

[postlink]http://tutorialeshispanos.blogspot.com/2012/06/vbnet-1-uso-de-botones-y-caja-de-texto.html[/postlink]http://www.youtube.com/watch?v=qLcCtAQ-qUIendofvid
[starttext]
En este nuevo video tutorial veremos el uso de los botones y la caja de texto y crearemos nuestro primer programa en este caso una calculadora basica veremos paso a paso la creacion de la forma y la parte logica de esta .

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

Aprenderás a :

• Acostumbrarte a la interfaz de visual studio
• Crear tu primer programa
• Usar botones .
• Usar caja de texto .

El primer paso que debemos hacer es abrir visual studio y colocarle un nombre a nuestro proyecto . Para nuestro caso le colocaremos calculadora .



Bien ahora aprendamos un poco las propiedades basicas de visual studio :
Lo que esta en la parte izquierda son lo controles (caja de herramientas - Toolbox ) en la parte media es el formulario y en la parte derecha las propiedades de el formulario .

La parte izquierda :



Casi en el centro :



Y en la parte derecha tenemos los controles de el formulario :



Para comenzar con la creacion de nuestra calculadora vamos a ir hacia la parte izquierda y vamos a seleccionar los botones luego sencillamente arrastramos hacia nuestro formulario :



Renombramos nuestras botones y creamos una caja de texto, luego lo dejamos tal y como se ve en la figura :



Despues ya vendria la parte logica en la que comenzaremos a escribir nuestras primeras lineas de codigo en visual studio .

Boton 1

Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click

'una vez que demos click en el boton este deve aparecer en la caja de texto
'caja de texto = boton que hemos presionado
'caja de texto = 1

'caja de texto = valor que estuvo en la caja de texto juntado con el valor que acabo de presionar
'caja de texto =caja de texto adiconamos 1

txtinfo.Text = txtinfo.Text & 1

End Sub

Los demas botones

Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
txtinfo.Text = txtinfo.Text & 2
End Sub

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
txtinfo.Text = txtinfo.Text & 3
End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
txtinfo.Text = txtinfo.Text & 4
End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
txtinfo.Text = txtinfo.Text & 5
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
txtinfo.Text = txtinfo.Text & 6
End Sub

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

txtinfo.Text = txtinfo.Text & 7
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
txtinfo.Text = txtinfo.Text & 8
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
txtinfo.Text = txtinfo.Text & 9
End Sub

Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
txtinfo.Text = txtinfo.Text & 0
End Sub

[endtext]