Post on 28-May-2015
Prof: Ricardo Viqueira
Clic en Archivo Clic en Nuevo Proyecto
Seleccionar “Aplicación para Windows”.
Nombre de la Aplicación.
Clic en Aceptar
PARA ABRIR EL CUADRO DE HERRAMIENTAS. CLIC EN EL ICONO
MENÚ DEL CUADRO DE HERRAMIENTAS
FORMULARIO
EXPLORADOR DE
SOLUCIONES
VENTANA PROPIEDADES
DE LOS OBJETOS
Prof: Ricardo Viqueira
SELECCIONAR EL MENÚ “CONTROLES COMUNES” DEL CUADRO DE HERRAMIENTAS
AGREGAR UN BOTÓN
DE COMANDO
Y UNA
CAJA DE TEXTO
Prof: Ricardo Viqueira
Modificar la propiedad Text del botón Button1 por Hola Mundo
Modificar la propiedad Text del botón Form1 por Primer Programa
Queremos que al hacer Clic en el Botón “Hola Mundo”, nos muestre en la Caja de Texto la palabra “Hola Mundo”
Prof: Ricardo Viqueira
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = "Hola Mundo“
End Sub
Prof: Ricardo Viqueira
PARA IMPEDIR QUE EL USUARIO MODIFIQUE LA INTERFAZ, MODIFICAR LA PROPIEDAD “FormBorderStyle” = FixedSingle
PARA QUE EL USUARIO NO PUEDA USAR EL ICONO MAXIMIZAR, MODIFICAR LA PROPIEDAD “MaximizeBox” a FALSE
CALCULADORA
INGRESAR 18 BOTONES DE COMANDOS Y 1 CAJA DE TEXTO COMO MUESTRA LA IMAGEN.
MODIFICAR LAS PROPIEDADES DE LOS BOTONES Y DEL FORMULARIO
PARA INGRESAR EL CÓDIGO HACER DOBLE CLIC EN EL BOTÓN DE COMANDO “1”
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox2.Text = 1
End Sub
EJECUTAR LA APLICACIÓN
Prof: Ricardo Viqueira
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
TextBox1.Text = TextBox1.Text & 1
End Sub
REALIZAR LO MISMO EN CADA BOTÓN Y AGREGAR EL NUMERO SEGÚN CORRESPONDA
AGREGAR UNA ETIQUETA LABEL
PARA ALMACENAR LA INFORMACIÓN DE LA CAJA 1
IR AL BOTÓN SUMA Y EN EL PROCEDIMIENTO AGREGAR EL SIGUIENTE CÓDIGO
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Label1.Text = TextBox1.Text TextBox1.Text = “”
End Sub
Prof: Ricardo Viqueira
SUMAR EL 1º NUMERO ALMACENADO CON EL 2º
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
TextBox1.Text = Label1.Text + TextBox1.Text
End Sub
SI EJECUTAMOS LA APLICACIÓN PODEMOS VER QUE LOS NÚMEROS SE JUNTAN Y NO SE SUMAN
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
TextBox1.Text = Val(Label1.Text )+ Val(TextBox1.Text)
End Sub
PARA PODER REALIZAR LA SUMA, AGREGAR LA FUNCIÓN VAL PARA QUE VISUAL TOME COMO NUMERO LO INGRESADO EN LA CAJA DE TEXTO
PARA PODER CODIFICAR EL RESTO DE LAS OPERACIONES, TENGO QUE SABER CUÁL ES LA QUE QUIERE UTILIZAR EL USUARIO.
AGREGAR UNA NUEVA ETIQUETA LABEL AL FOMR
ETIQUETA PARA GUARDAR LA OPERACIÓN DEL USUARIO
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Label2.Text = "suma" Label1.Text = TextBox1.Text TextBox1.Text = "“
End Sub
REALIZAR EL MISMO CÓDIGO PARA EL RESTO DE LOS OPERADORES
Prof: Ricardo Viqueira
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
If Label2.Text = "suma" Then TextBox1.Text = Val(Label1.Text) + Val(TextBox1.Text) ElseIf Label2.Text = "resta" Then TextBox1.Text = Val(Label1.Text) - Val(TextBox1.Text) ElseIf Label2.Text = "multiplicacion" Then TextBox1.Text = Val(Label1.Text) * Val(TextBox1.Text) Else TextBox1.Text = Val(Label1.Text) / Val(TextBox1.Text) End If
End Sub
Prof: Ricardo Viqueira
Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
TextBox1.Text = TextBox1.Text & Chr(46)
End Sub
PARA PODER TRABAJAR CON DECIMALES, AGREGAR UN BOTÓN PARA EL PUNTO Y AGREGAR EL SIGUIENTE CÓDIGO
Prof: Ricardo Viqueira
CALCULADORA FINAL
Prof: Ricardo Viqueira