[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 .
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]
