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