Practica De Estructuras Basicas

UNTEK - IDAT

1

Ms Visual Basic NET

PRACTICA DE PROGRAMACIÓN VISUAL .NET I – ESTRUCTURAS BASICAS
OBJETIVOS: Manejo de diversos controles, sus propiedades, métodos y eventos 1.1 CREACIÓN DEL NUEVO PROYECTO: Para crear un Proyecto es necesario ir al Menú Archivo, luego en Nuevo, y finalmente en Proyecto, a continuación nos mostrará la siguiente ventana:

Considere lo siguiente: 1. Tipode Proyecto: Visual Basic. 2. Plantilla: Aplicación de Windows.
3. Luego escriba el nombre de la aplicación: PRACTICA2 4. Especifique la carpeta donde se guardará el proyecto (ésta deberá ser una carpeta creada por usted, use el botón Examinar para localizar su carpeta) 5. Hacer clic en el botón Aceptar para crear el proyecto. 1.2 CREAR UN FORMULARIO QUE CALCULE EL SALARIO NETO DE UN TRABAJADOR.Ingresar los datos de Nombre, Numero de Horas trabajadas, pago por hora, Descuento calcular el Sueldo o Salario neto del trabajador. a) Grabar con el Nombre: FrmSalario b) Luego este formulario lo podrá ver en el explorador de soluciones.

1.5. ASIGNAR LAS SIGUIENTES PROPIEDADES A LOS OBJETOS DEL FORMULARIO Control Text1 Text2 Text3 Text4 Text5 Button1 Button2 Button3 Propiedad Name Name NameName Name Name Name Name Valor Txtnombre Txthoras txtpago txtdescuento txtneto Btncalcular Btnnuevo Btnsalir

Agregar Codigo al Formulario FrmSalario Codigo Botón CmdSalir Private Sub Btnsalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsalir.Click Me.Close() End End Sub

1

UNTEK - IDAT

2

Ms Visual Basic NET

Private Sub Btncalcular_Click(ByVal senderAs System.Object, ByVal e As System.EventArgs) Handles Btncalcular.Click Dim a, b, c As Integer a = Val(txthoras.Text) b = Val(txtpago.Text) c = Val(txtdescuento.Text) txtneto.Text = Str((a * b) - c) End Sub Private Sub BtnNuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btncalcular.Click Txtnombre.text=”” Txthoras.text=”” Txtpago.text=”” Txtdescuento.text=””Txtneto.text=”” End Sub

1.3

CREACIÓN DEL FORMULARIO (FrmFactorial.vb) a) En el formulario inserte los controles necesarios desde el cuadro de Herramientas de Windows Form y establezca las propiedades necesarias para obtener la siguiente apariencia:==>

b) Ahora proceda a escribir el código correspondiente: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click Dim I, n As Integer Dim f, s As Double n = Val(Me.TextBox1.Text) ‘calcular factorial: utilizando for…next f=1 For i = 1 To n f=f*i Next Me.TextBox2.Text = Str(f) ‘ calcular la suma de n pares: utilizando do while…loop I=2 Do While I 10 then txtobservaciones.text = “Aprobado” else txtobservaciones.text = “Desaprobado” end if End Sub Codigo Botón Nuevo Private SubBtnnuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnnuevo.Click txtnombre.Text = "" txtnotateoria.Text = "" txtnotalaboratorio.Text = "" txtnotainformes.Text = "" txtpromedio.Text = "" txtnombre.Focus() End Sub TRABAJO DE CLASE Calcule si el promedio encontrado es Aprobado o Desaprobado. - Agregar el código necesario en el Botón Calcular - Y cuando el promedio sea desaprobadomostrar el resultado en rojo - Si es aprobado mostrar el resultado en Azul EJERCICIOS DE CLASE 1. Crear una aplicación en Visual NET. Con botones de comando que permita ir a otros formularios donde se calcule el Area del Cuadrado, Rectángulo, Circulo. 2. Crear un formulario que permita calcular el promedio de 3 números, que encuentre el número mayor y el número menor. 3. Se necesita un sistema para unSupermercado, en el cual si el monto de la compra del cliente es mayor a S/. 5000 se le hará un descuento del 30%, si es menor o igual a S/ 5000 pero mayor que S/ 3000 será del 20% si es menor de 3000 y mayor que 1000 la rebaja será del 10% y en caso no sobrepase los 1000 y sea menor no tendrá beneficio.

EJERCICIO 5 : FRMTRAGAMONEDAS Crear una Aplicación que permita ejecutar un juego de...