Manual Práctico de Programación en Visual Basic 6

Manual Prctico de Programacin en Visual Basic 6.
0
COMPUTACION I
Doc: Lic. Aidee Vargas C.
Aux: Luis A. Salvatierra Huanca
Este es un manual prctico de programacin en Visual Basic 6.0, aprenders a programar en 10

ejercicios, cada ejercicio es bsico para poder comprender el siguiente. Es recomendable seguir la
lnea de ejercicios desde el 1 a 10 ejercicio.
DIA 1:
OBJETIVO: Indicar las entradas y salidas bsicas. (Imprimir-Leer/MsgBox()-InputBox())
Disear un programa que pida el nombre del usuario y el programa muestre un saludo con el
nombre ingresado.
DISEO DEL FORMULARIO
FORM
name: frmVentana
Caption: Mi Primer
PrOgRaMa
COMMAND BUTTON
name: cmdInicio
Caption: INICIAR
LABEL
name: lbltitulo
Caption: Bienvenidos
a Visual Basic 6.0
Luego de disear el formulario, hacer doble click en el COMMAND BUTTON cmdInicio para
activar la ventana de cdigo y tambin el evento _Click que cada vez que se haga un click en ese
botn se ejecutara las instrucciones que estn en ese bloque.
Universidad Mayor de San Simn | Facultad de Ciencias y Tecnologa
Manual Prctico de Programacin en Visual Basic 6.0

COMPUTACION I
DIA2:
OBJETIVO: Comprender las ESTRUCTURAS SELECTIVAS ( If Then/ If- Then- Else)

Disear un programa en VB 6.0 que dado un numero entero positivo: verificar si es una nota, se
considera una nota si esta entre 0 y 100, sino fuse as mostrar el mensaje ERROR. Si la nota es
mayor o igual a 51 mostrar el mensaje APROBADO, caso contrario REPROBADO.
FORM
name: frmVentana
Caption:Notas
COMMAND BUTTON
name: cmdInicio
Caption: INICIO
LABEL
name: lbltitulo
Caption: Verificar
Nota

COMPUTACION I
DIA 3:
OBJETIVO: Comprende las ESTRUCTURAS REPETITIVAS ( Mientras-Para/While-For)

EJM1
Nmeros amigos: parejas de nmeros que cumplen que la suma de los divisores propios de cada
uno de ellos da como resultado el otro nmero. Por ejemplo, 220 y 284 son nmeros amigos.
COMMAND BUTTON
name: cmdVerificar
Caption: Verificar
COMMAND BUTTON
name: cmdSalir
Caption: Salir
FORM
name: frmVentana
Caption: Amigos
LABEL
name: lbltitulo
Caption: Verificar

COMPUTACION I
EJM2 : Mostrar los nmeros perfectos que hay entre 1 y 10000. Todo nmero natural que es
igual a la suma de sus divisores propios (es decir, todos sus divisores excepto el propio nmero).
Por ejemplo, 6 es un nmero perfecto ya que sus divisores propios son 1, 2, y 3 y se cumple que
1+2+3=6. Los nmeros 28, 496 y 8128 tambin son perfectos.
FORM
name: frmVentana
Caption: Perfectos
COMMAND BUTTON
name: cmdInicio
Caption: INICIO
LABEL
name: lbltitulo
Caption: Perfectos
LISTBOX
name: lstSalida

COMPUTACION I

COMPUTACION I
DIA 4:
OBJETIVOS: Aplicacin de Sub-Programas (Funciones-Procedimientos/Function-Sub)

Disear un programa en VB 6.0 que dado una lista de pares de notas, mostrar el promedio de la
lista. Se desconoce la cantidad de pares de notas que hay en la lista, pero la lista termina cuando
ambas notas son ceros.
FORM
name: frmVentana
Caption: Sub - programas
COMMAND BUTTON
name: cmdInicio
Caption: INICIO
LABEL
name: lbltitulo
Caption: PROMEDIO
DE NOTAS

COMPUTACION I

COMPUTACION I
DIA 5:
OBJETIVO: Operaciones con vectores (Unin-Interseccin-Ordenar)

Dado dos listas de nmeros A y B, mostrar los elementos comunes, la unin de ambas listas (sin
repetir elementos).
FORM
name: frmVentana
Caption: Vectores
LISTBOX
name: lstSalida1
LISTBOX
name: lstSalida2
LISTBOX
name: lstSalida4
LISTBOX
name: lstSalida3

COMPUTACION I

COMPUTACION I
10

COMPUTACION I
DIA 6:
OBJETIVO: Mostrar las aplicaciones de Funciones de Cadenas (InStr(),Left(),Right(), Mid(),Len())

Disear un programa que dado un correo electrnico, pueda verificar si es un correo electrnico
valido. Es valido si contiene un @ y un . despus del @. Adems mostrar cuantos caracteres
hay en todo el correo electrnico, mostrar el nombre de USUARIO y la empresa de correo
electrnico.
TEXTBOX
name: txtentrada
LISTBOX
name: lstSalida
11

COMPUTACION I
12

COMPUTACION I
DIA 7:
OBJETIVO: Mostrar las aplicaciones de archivos (Leer-Escribir-Sobrescribir/Input-OutputAppend)

Disear una agenda de telfonos, que permita registrar amigos (NOMBRE y TELEFONO). Se debe
de mostrar a los amigos registrados y agregar a nuevos amigos. Guardar la lista de amigos en la
Unidad C:\ con el nombre agenda.txt.
LISTBOX
name: lstSalida
13

COMPUTACION I
DIA 8:
OBJETIVO: Resolucin de una pregunta de examen, dado un archivo generar otro (Tipo segundo
parcial).
PROBLEMA: GENERAR IMPORTE DE ARTICULOS DE UNA LIBRERA.
Se tiene registrado en un archivo ventas.txt las ventas de los artculos de la librera, con los
siguientes datos: nombre del artculo, cantidad vendida y precio unitario. Se debe tomar en cuenta
que se vende un artculo ms de una vez. Disear un programa que dado el nombre de un artculo
muestre el importe total vendido en el da de un artculo determinado y adems guardar el
reporte de importes en un archivo importe.txt con los siguientes datos nombre del artculo y
importe total.
Ej.
ventas .txt
cuaderno 10 5
archivador 50 2
borrador 50 1
cuaderno 30 5
archivador 10 2
lapiz 15 3
borrador 20 1
cuaderno 20 5
lapiz 10 3
cartulina 5 2
Supongamos que el usuario quiere saber el importe total del

articulo cuaderno.
CantidadVendida=10+30+20=60
PrecioUnitario=5
importe.txt
Cuaderno 300
Importe= CantidadVendida* PrecioUnitario=300

Se debe guardar en el archivo lo siguiente
Crear en un bloc de notas las

siguientes lneas y guardarlas en el
Unidad C de la CPU con el nombre
ventas.txt, para poder leerlo.
LISTBOX
name: lstSalida1
LISTBOX
name: lstSalida2
14

COMPUTACION I
15

COMPUTACION I
16

COMPUTACION I
DIA 9:
OBJETIVO: Resolver una pregunta tipo examen, dado dos archivos generar un tercer archivo
(Tipo examen final).
Se mantiene registrado en el archivo artculos.txt, con todos los artculos que estn a la venta en
la librera el EL BARATITO, con los siguientes datos: cdigo del artculo, nombre del artculo y
precio Unitario.
Las ventas realizadas en el da se tiene registrado en el archivo ventas.txt, con los siguientes
datos: cdigo del artculo y cantidad vendida. Tomar en cuenta que un artculo se puede vender
ms de una vez en el da.
a). Disear el formulario necesario para resolver el problema
b). Mostrar los archivos en pantalla.
c). Mostrar en pantalla el reporte de ventas de cada artculo y guardar este reporte en un archivo
importe.txt, con los siguientes datos: cdigo de artculo, nombre de articulo y importe vendido.
d). Mostrar el importe total vendido en el da (suma de todos los importes).
artculos.txt
c1 cuaderno 5
a1 archivador 3
b1 borrador 1
t1 tajador 2
m1 marcador 3
h2 Hojas 5
p1 lpiz 2
c2 cartulina 5
ventas.txt
c1 20
a1 10
p1 15
c2 60
c1 30
h2 25
m1 15
t1 30
a1 28
LABEL
name: lblsalida
17

COMPUTACION I
18

COMPUTACION I
19

COMPUTACION I
DIA 10:
OBJETIVO: resolver una pregunta tipo examen.

Se tiene registrado a los estudiantes que cursan las materias de CALCULO y ALGEBRA en los
archivos calculo.txt y algebra.txt respectivamente. Los archivos contienen los datos:
nombre, apellido y nota. Resolver lo siguiente:
a). Mostrar en pantalla ambos archivos.
b). Mostrar en pantalla a los estudiantes que aprobaron ambas materias.
c). Guardar en un archivo aprobados.txt, a los estudiantes que aprobaron ambas materias.
calulo.txt
juan peres 40
maria siles 80
carlos lopes 40
ana rios 70
algebra.txt
marco borda 40
juan peres 70
ruben pardo 60
maria siles 100
carlos lopes 10
ana rios 0
20

COMPUTACION I
21

COMPUTACION I
22

Manual Práctico de Programación en Visual Basic 6

Cargado por

Copyright:

Formatos disponibles

Manual Práctico de Programación en Visual Basic 6

Cargado por

Información del documento

Descripción original:

Derechos de autor

Formatos disponibles

Compartir este documento

Compartir o incrustar documentos

Opciones para compartir

¿Le pareció útil este documento?

¿Este contenido es inapropiado?

Copyright:

Formatos disponibles

Manual Práctico de Programación en Visual Basic 6

Cargado por

Copyright:

Formatos disponibles

Manual Prctico de Programacin en Visual Basic 6.

Aux: Luis A. Salvatierra Huanca

Este es un manual prctico de programacin en Visual Basic 6.0, aprenders a programar en 10

Universidad Mayor de San Simn | Facultad de Ciencias y Tecnologa

Manual Prctico de Programacin en Visual Basic 6.0

Aux: Luis A. Salvatierra Huanca

OBJETIVO: Comprender las ESTRUCTURAS SELECTIVAS ( If Then/ If- Then- Else)

Universidad Mayor de San Simn | Facultad de Ciencias y Tecnologa

Manual Prctico de Programacin en Visual Basic 6.0

Aux: Luis A. Salvatierra Huanca

OBJETIVO: Comprende las ESTRUCTURAS REPETITIVAS ( Mientras-Para/While-For)

Universidad Mayor de San Simn | Facultad de Ciencias y Tecnologa

Manual Prctico de Programacin en Visual Basic 6.0

Aux: Luis A. Salvatierra Huanca

Universidad Mayor de San Simn | Facultad de Ciencias y Tecnologa

Manual Prctico de Programacin en Visual Basic 6.0

Aux: Luis A. Salvatierra Huanca

Universidad Mayor de San Simn | Facultad de Ciencias y Tecnologa

Manual Prctico de Programacin en Visual Basic 6.0

Aux: Luis A. Salvatierra Huanca

OBJETIVOS: Aplicacin de Sub-Programas (Funciones-Procedimientos/Function-Sub)

Universidad Mayor de San Simn | Facultad de Ciencias y Tecnologa

Manual Prctico de Programacin en Visual Basic 6.0

Aux: Luis A. Salvatierra Huanca

Universidad Mayor de San Simn | Facultad de Ciencias y Tecnologa

Manual Prctico de Programacin en Visual Basic 6.0

Aux: Luis A. Salvatierra Huanca

OBJETIVO: Operaciones con vectores (Unin-Interseccin-Ordenar)

Universidad Mayor de San Simn | Facultad de Ciencias y Tecnologa

Manual Prctico de Programacin en Visual Basic 6.0

Aux: Luis A. Salvatierra Huanca

Universidad Mayor de San Simn | Facultad de Ciencias y Tecnologa

Manual Prctico de Programacin en Visual Basic 6.0

Aux: Luis A. Salvatierra Huanca

Universidad Mayor de San Simn | Facultad de Ciencias y Tecnologa

Manual Prctico de Programacin en Visual Basic 6.0

Aux: Luis A. Salvatierra Huanca

OBJETIVO: Mostrar las aplicaciones de Funciones de Cadenas (InStr(),Left(),Right(), Mid(),Len())

Universidad Mayor de San Simn | Facultad de Ciencias y Tecnologa

Manual Prctico de Programacin en Visual Basic 6.0

Aux: Luis A. Salvatierra Huanca

Universidad Mayor de San Simn | Facultad de Ciencias y Tecnologa

Manual Prctico de Programacin en Visual Basic 6.0

Aux: Luis A. Salvatierra Huanca

OBJETIVO: Mostrar las aplicaciones de archivos (Leer-Escribir-Sobrescribir/Input-OutputAppend)

Universidad Mayor de San Simn | Facultad de Ciencias y Tecnologa

Manual Prctico de Programacin en Visual Basic 6.0

Aux: Luis A. Salvatierra Huanca

Supongamos que el usuario quiere saber el importe total del

Importe= CantidadVendida* PrecioUnitario=300

Crear en un bloc de notas las

Universidad Mayor de San Simn | Facultad de Ciencias y Tecnologa

Manual Prctico de Programacin en Visual Basic 6.0

Aux: Luis A. Salvatierra Huanca

Universidad Mayor de San Simn | Facultad de Ciencias y Tecnologa

Manual Prctico de Programacin en Visual Basic 6.0

Aux: Luis A. Salvatierra Huanca

Universidad Mayor de San Simn | Facultad de Ciencias y Tecnologa

Manual Prctico de Programacin en Visual Basic 6.0