Material bibliográfico para ampliar conocimientos en Visual Basic 2008

https://docs.google.com/file/d/0Bxq7aoY4YhLJcEZ5d0E4cURoWUk/edit

Ejercicios para desarrollar en Visual Basic 2008 Express Edition

1. Diseñar un formulario que permita calcular la edad de una persona, usando los siguientes controles:

Un (1) Label para Titulo: Calcular Edad
Un (1) Label para Año Actual
Un (1) Label Año de Nacimiento
Un (1) textbox para entrada de Año actual
Un (1) textbox para entrada de Año Nacimiento
Un (1) textbox para visualizar la edad
Un (1) Button Calcular la edad
Un (1) Button para limpiar los textbox 1,2 y 3.
Un (1) Button para Salir de la aplicación

El formulario debe quedar de la siguiente forma:

El código para el botón Nuevo se debe programar de la siguiente forma:

Me.TextBox1.Text =""
Me.TextBox2.Text = ""
Me.TextBox3.Text = ""
With Me.TextBox1.Focus()
End With

Botón Salir:

End

2. Diseñar y programar el siguiente formulario para calcular el área de un circulo, el área de un triangulo, área de un cuadradro y finalmente la conversión de Dólares a pesos (Para la conversión se debe tener en cuenta el ingreso de datos como la cantidad y el valor del dólar actual)

3. Se desea realizar un programa para un supermercado que permita calcular valor y porcentaje de descuento sobre una compra, de acuerdo al número de la balota escogida por el cliente; las cuales debe cumplir con la siguiente condición:

 

Si el número de la balota escogida está entre el 1 y 7, se calculará el valor del descuento sobre la compra en un 10%, y entre el 8 y el 9, se calculará el 30% y finalmente se generará un mensaje de Felicitaciones al cliente.

 

El formulario deberá quedar con los siguientes controles:

 

 

4. Se desea realizar un programa para un supermercado que permita facturar la (n) cantidad artículos con su respectivo nombre, precio, cantidad y finalmente me lo imprima en un control ListBox y nos informe la cantidad de artículos comprados y el valor total a pagar.

 

 

 

Así es como debe ver la ejecución del programa

 

 

 

 

Ejercicios para realizar en PSEINT

Ejercicios para realizar en clase 15 de septiembre de 2012, utilizando el programa PSEINT:

Hallar la edad de una persona
 
Proceso EdadDeUnaPersona
 definir aac, an, edad como entero;
 Escribir "Dijite ano actual";
 Leer aac;
 Escribir "Dijite año de nacimiento";
 Leer an;
 edad <- aac - an;
 Escribir "La edad es",edad;
FinProceso

Hallar el área del circulo

Proceso AreaCirculo
 definir radio, area como real;
 Escribir "Dijite el Radio del Circulo";
 Leer radio;
 area <- 3.1416 * (radio * radio);
 Escribir "El Area de un circulo es",area;
FinProceso

Hallar el área del cuadrado

Proceso AreaCuadrado
 definir area, lado como entero;
 Escribir "Dijite el lado del Cuadrado";
 Leer lado;
 area <- (lado * lado);
 Escribir "El Area del cuadrado es",area;
FinProceso

Hallar el área del triangulo

roceso AreaTriangulo
 definir base, altura, area como entero;
 Escribir "Dijite la base del triangulo";
 Leer base;
 Escribir "Dijite la altura del triangulo";
 leer altura;
 area <- (base * altura)/2;
 Escribir "El area del Triangulo es",area;
FinProceso

Realizar un programa que permita saber si un estudiante pasó o perdío una materia

Proceso NotaDefinitiva
 definir nota como real;
 Escribir "Dijite la nota definitiva";
 Leer nota;
 Si nota > = 3 Entonces
  Escribir "El estudiante Paso";
 Sino
  Escribir "El estudiante Perdio";
 FinSi
 FinProceso

Liquidar las horas extras de un empleado

Proceso LiquidarHorasExtras
 Definir SB, NH, VHE, TH como real;
 Escribir "Dijite sueldo basico";
 Leer SB;
 Escribir "Dijite numero de horas";
 Leer NH;
 VHE <- (SB * 1.25)/240;
 TH <- VHE * NH;
 Escribir "El valor de las horas extras:",VHE;
FinProceso

Compra de llantas según la cantidad

Proceso CompraLlantera
 definir cantidad, total como entero;
 Escribir "Dijite la cantidad de llantas";
 Leer cantidad;
 Si cantidad < 5 Entonces
  total <- cantidad * 800;
 Sino
  total <- cantidad * 700;
 FinSi
 Escribir "El total a pagar es",total;
FinProceso

Repetir texto con la función Mientras

Proceso Repeticiones_texto
 definir a como entero;
 a<-1;
 Mientras a <=100 hacer
 Escribir "Estamos viendo Lenguajes de programación";
 a<- a+1;
 Finmientras
FinProceso

Realizar un programa que genere números pares a partir del número 10 hasta el 40.
 
Proceso NumerosPares
 //La instrucción Para ejecuta una secuencia de instrucciones un número determinado de veces.
 definir a como entero;
 Escribir "Números pares de 10 a 40:";
 Para a<-10 Hasta 40 Con Paso 2 Hacer
  Escribir a;
 FinPara
FinProceso


Realizar un programa de conversión de dólares a pesos colombianos

Proceso ConversionDinero
 definir nd, ta, pc como real;
 Escribir "Dijite el numero de dolares";
 Leer nd;
 Escribir "Dijite la tasa actual";
 leer ta;
 pc <- nd * ta;
 Escribir "Los pesos colombianos son:",pc;
FinProceso

Realizar un programa que acumule y sume los números que sean ingresados hasta indicarle su terminación

Proceso RepetirHastaQue
 //La instrucción Repetir-Hasta Que ejecuta una secuencia de instrucciones hasta que la condición sea verdadera definir total, a como entero;
 total <- 0;
 a <- 0;
  Repetir
  Total <- Total + a;
  Escribir "Ingrese un número (0 para salir)";
  Leer a;
 Hasta Que a=0;
 Escribir "Valor acumulado es:",Total;
FinProceso

Realizar un programa que permita promediar 3 notas

Proceso PromedioDeNotas
 definir notas, suma, promedio, conta Como Real;
 definir nombre Como Caracter;
 notas <- 0;
 suma <- 0;
 promedio <- 0;
 conta <- 1;
 Escribir "Ingrese su nombre";
 Leer nombre;
 Mientras conta <=3 hacer
  Escribir "Ingrese la nota", conta;
  leer notas;
  suma <- suma+ notas;
  conta<-conta+1;
 Finmientras
 promedio<- (suma)/3;
 Escribir nombre;
 Escribir "Su promedio es:";
 Escribir promedio;
FinProceso  

Realizar un programa que permita liquidar una factura por ventas de pinturas y finalmente nos muestre valores bruto, IVA y total a pagar.

Proceso Factura_Pinturas
 Definir cantidad, precio, impuesto, total_bruto, valor_impuesto, total_pagar como entero;
 Escribir "Dijite la cantidad de pinturas";
 Leer cantidad;
 Escribir "Dijite el precio de la pintura";
 leer precio;
 Escribir "Dijite el impuesto";
 leer impuesto;
 total_bruto <- (cantidad * precio);
 valor_impuesto <- (total_bruto * (impuesto/100));
 total_pagar <- (total_bruto + (valor_impuesto));
 Escribir "Total Bruto",total_bruto;
 Escribir "valor_impuesto",valor_impuesto;
 Escribir "Total a pagar es:",total_pagar;
FinProceso

Realizar un programa que permita facturar dos productos de supermercado.

Proceso FacturaProductos
 definir suma_cantidad, vlr_precio, cantidad, vlr_total, acum_vlr_total, conta Como Real;
 definir nombre_producto, suma_producto Como Caracter;
 suma_cantidad <- 0;
 conta <- 1;
 vlr_precio  <- 0;
 cantidad  <- 0;
 vlr_total  <- 0;
 acum_vlr_total <-0;
 Mientras conta <=2 hacer
  Escribir "Ingrese el nombre del producto", conta;
  Leer nombre_producto;
  Escribir "Ingrese el precio del producto", conta;
  Leer vlr_precio;
  Escribir "Ingresa la cantidad", conta;
  Leer cantidad;
  vlr_total <- vlr_precio * cantidad;
  acum_vlr_total <- acum_vlr_total + vlr_total;
  suma_cantidad <- suma_cantidad + cantidad; //SUMA LA CANTIDAD
  conta<-conta+1;
  Escribir "Nombre del producto:",nombre_producto;
  Escribir "Valor precio:",vlr_precio;
  Escribir "Cantidad:",cantidad;
  Escribir "Valor total del artículo:",vlr_total;
 Finmientras
 Escribir "El número de artículos llevados son:",suma_cantidad;
 Escribir "Valor total a pagar es:",acum_vlr_total;
 Escribir "Gracias por sus compras...que vuelva";
FinProceso

Lenguajes de Programación

Ranking lenguajes programacion agosto-2012

La necesidad del Cliente