Descargar como pdf o txt
Descargar como pdf o txt
Está en la página 1de 8

Prácticas Profesionales II Departamento de Computación

Práctica 01 – Visual Basic.Net UNAN - León.

Crear una aplicación sencilla


Crear el proyecto
1. Iniciar un proyecto en Visual Basic.
Damos clic en Nuevo proyecto…

2. Seleccionamos Aplicación de Windows Forms y le asignamos un nombre

ENTORNO DE DESARROLLO
Prácticas Profesionales II Departamento de Computación
Práctica 01 – Visual Basic.Net UNAN - León.

Menú y barras de herramientas


Prácticas Profesionales II Departamento de Computación
Práctica 01 – Visual Basic.Net UNAN - León.

Cuadro de controles

Diseñador de Windows Forms


Prácticas Profesionales II Departamento de Computación
Práctica 01 – Visual Basic.Net UNAN - León.

Editor de código

Ventana de Propiedades
Prácticas Profesionales II Departamento de Computación
Práctica 01 – Visual Basic.Net UNAN - León.

Como crear la interfaz de usuario

Como
establecer

propiedades de los controles


Prácticas Profesionales II Departamento de Computación
Práctica 01 – Visual Basic.Net UNAN - León.

Ejercicio 1. MiniCalculadora

En este ejemplo se muestra una calculadora elemental que permite hacer las cuatro operaciones
aritméticas.

CONTROL PROPIEDAD VALOR


Form Name frmMinicalc
Caption Minicalculadora
textbox Name txtOper1
Text
textbox Name txtOper2
Text
textbox Name txtResult
Text
label Name lblOp
Text
label Name lblEqual
Text =
CommandButton Name cmdSuma
Text +
CommandButton Name cmdResta
Text -
CommandButton Name cmdMulti
Text *
CommandButton Name cmdDiv
Text /

Y a continuacion se muestra el codigo correspondiente a los procedimientos

Private Sub cmdDiv_Click()


txtResult.Text = val(txtOper1.Text) / val(txtOper2.text)
lblOp.Caption = “/”
End Sub

Private Sub cmdProd_Click()


txtResult.Text = val(txtOper1.Text) * val(txtOper2.text)
lblOp.Caption = “*”
End Sub

Private Sub cmdDiv_Click()


txtResult.Text = val(txtOper1.Text) / val(txtOper2.text)
lblOp.Caption = “/”
End Sub
Prácticas Profesionales II Departamento de Computación
Práctica 01 – Visual Basic.Net UNAN - León.

Private Sub cmdResta_Click()


txtResult.Text = val(txtOper1.Text) - val(txtOper2.text)
lblOp.Caption = “-”
End Sub

Private Sub cmdSuma_Click()


txtResult.Text = val(txtOper1.Text) + val(txtOper2.text)
lblOp.Caption = “+”
End Sub

2 Operaciones Básicas txtOperandoA btopSumar


txtOperandoB
btopRestar
txtOperandoC
btopMultiplicar

txtResultado
Prácticas Profesionales II Departamento de Computación
Práctica 01 – Visual Basic.Net UNAN - León.

codigo

Private Sub btopSumar_CheckedChanged(sender As System.Object, e As


System.EventArgs) Handles btopSumar.CheckedChanged

Me.txtResultado.Text = Convert.ToDouble(Me.txtOperandoA.Text) +
Convert.ToDouble(txtOperandoB.Text) + Convert.ToDouble(txtOperandoC.Text)
End Sub

Private Sub btopRestar_CheckedChanged(sender As System.Object, e As


System.EventArgs) Handles btopRestar.CheckedChanged
Me.txtResultado.Text = Convert.ToDouble(Me.txtOperandoA.Text) -
Convert.ToDouble(txtOperandoB.Text) - Convert.ToDouble(txtOperandoC.Text)
End Sub

Private Sub btopMultiplicar_CheckedChanged(sender As System.Object, e As


System.EventArgs) Handles btopMultiplicar.CheckedChanged
Me.txtResultado.Text = Convert.ToDouble(Me.txtOperandoA.Text) *
Convert.ToDouble(txtOperandoB.Text) * Convert.ToDouble(txtOperandoC.Text)
End Sub

También podría gustarte