DISEÑO MODULAR
Los módulos son la base de la programación modular. Consiste este diseño en la división de un programa en módulos basándose en la técnica del refinamiento sucesivo. Estos subprogramas o módulos son independientes y necesitan de un modulo que relacione y controle a los demás.

MODULO BASE

PROGAMA PRINCIPAL

PROGRAMA CONDUCTOR

VENTAJAS DEL USO DE UN DISEÑO MODULAR:
v Se depuran y prueban con mayor facilidad.
v Mantenimiento fácil y fácil modificación.
v Depuración independiente.
v Subprogramas que pueden ser usados por otros por otros programas especialmente si se tratan de rutinas comunes como busque u ordenación
v Posibilidad de los módulos de solucionar tareas repetitivas que no tienen que ser escritas en todos los módulos y que precisan la referencia a esa tarea ejemplo


ALGORIDMO:
1. Leer y verificar las notas.
2. Hacer eco en la impresora.
3. Ordenar las notas en orden decreciente.
4. Asignar calificaciones adecuadas.
5. Visualizar resultados.

Un modulo puede ser por tanto:

1. Un programa principal.
2. Un procedimiento.
3. Una función.
Una subrutina

ALBUM FOTOGRAFICO

Para realizar este formulario primero que todo debemos seleccionar las fotos o imagenes que deseemos mostrar en el album y guardarlas en mis imagenes; después insertar un control de image y uno de timer en el formulario de visual basic el cual llevara el nombre con que se guardó la imagen y se registrara un código específico.
En el cntrol timer se debe indicar en nterval aproximadamente 50-100 dependiendo de la cantidad de fotos.
Por último se recorta la imagen se pega en paint se guarda.
El siguiente código es el necesario para poder realizar en el ejercicio el cual se guarda en el control TIMER:
Static a As Integer
a = a + 1
If a = 5
Then Image1.Picture = LoadPicture("C:\Documents and Settings\sistemas\Mis documentos\Mis imágenes\matrix.jpg")
End If If a = 25
Then Image1.Picture = LoadPicture("C:\Documents and Settings\sistemas\Mis documentos\Mis imágenes\matrx3.jpg")
End If If a = 35
Then Image1.Picture = LoadPicture("C:\Documents and Settings\sistemas\Mis documentos\Mis imágenes\matrix1.jpg")
End If If a = 45
Then Image1.Picture = LoadPicture("C:\Documents and Settings\sistemas\Mis documentos\Mis imágenes\matrix5.jpg")
End If If a = 55
Then a = 0
End If
End Sub

La vida es una obra de teatro que no permite ensayos...
Por eso, canta, ríe, baila, llora
y vive intensamente cada momento de tu vida...
...antes que el telón baje
y la obra termine sin aplausos.

¡Hey, hey, sonríe!
más no te escondas detrás de esa sonrisa...
Muestra aquello que eres, sin miedo.
Existen personas que sueñan
con tu sonrisa, así como yo.

¡Vive! ¡Intenta!
La vida no pasa de una tentativa.

¡Ama!
Ama por encima de todo,
ama a todo y a todos.
No cierres los ojos a la suciedad del mundo,
no ignores el hambre!
Olvida la bomba,
pero antes haz algo para combatirla,
aunque no te sientas capaz.

¡Busca!
Busca lo que hay de bueno en todo y todos.
No hagas de los defectos una distancia,
y si, una aproximación.

¡Acepta!
La vida, las personas,
haz de ellas tu razón de vivir.

¡Entiende!
Entiende a las personas que piensan diferente a ti,
no las repruebes.

¡Eh! Mira...
Mira a tu espalda, cuantos amigos...
¿Ya hiciste a alguien feliz hoy?
¿O hiciste sufrir a alguien con tu egoísmo?

¡Eh! No corras...
¿Para que tanta prisa?
Corre apenas dentro tuyo.

¡Sueña!
Pero no perjudiques a nadie y
no transformes tu sueño en fuga.

¡Cree! ¡Espera!
Siempre habrá una salida,
siempre brillará una estrella.

¡Llora! ¡Lucha!
Haz aquello que te gusta,
siente lo que hay dentro de ti.

Oye...
Escucha lo que las otras personas
tienen que decir, es importante.

Sube...
Haz de los obstáculos escalones
para aquello que quieres alcanzar.
Mas no te olvides de aquellos
que no consiguieron subir
en la escalera de la vida.

¡Descubre!
Descubre aquello que es bueno dentro tuyo.
Procura por encima de todo ser gente,
yo también voy a intentar.
¡Hey! Tú...
ahora ve en paz.
Yo preciso decirte que... TE ADORO,
simplemente porque existes.

Charles Chaplin
sacado de: www.literato.es/mensajes_de_vida/