viernes, 4 de noviembre de 2011

Para mis estudiantes

El Saco de Carbón

Un día, el niño entró a su casa dando patadas en el suelo y gritando muy molesto.
Su padre, lo llamó y él fue diciendo en forma irritada:
- Papá, ¡Te juro que tengo mucha rabia! Pedrito no debió hacer lo que hizo conmigo. Por eso, le deseo todo el mal del mundo, ¡Tengo ganas de matarlo! Su padre, un hombre lleno de sabiduría, escuchaba con calma al hijo quien continuaba diciendo: - Imagínate que el estúpido de Pedrito me humilló frente a mis amigos. ¡No acepto eso! Me gustaría que él se enfermara para que no pudiera ir más a la escuela.
El padre siguió escuchando y se dirigió hacia una esquina del garaje de la casa, de donde tomó un saco lleno de carbón el cual llevó hasta el final del jardín y le propuso:
- ¿Ves aquella camisa blanca que está en el tendedero? Hazte la idea de que es Pedrito y cada pedazo de carbón que hay en esta bolsa es un mal pensamiento que va dirigido a él. Tírale todo el carbón que hay en el saco, hasta el último pedazo. Después yo regreso para ver como quedó. El niño lo tomó como un juego y comenzó a lanzar los carbones pero como la tendedera estaba lejos, pocos de ellos acertaron la camisa por mucho esfuerzo que hiciera. Cuando, el padre regresó y le preguntó: - Hijo ¿Qué tal te sientes? - Cansado pero alegre. Acerté algunos pedazos de carbón a la camisa. El padre tomó al niño de la mano y le dijo: - Ven conmigo quiero mostrarte algo. Lo colocó frente a un espejo que le permite ver todo su cuerpo. ¡Qué susto! Estaba todo negro y sólo se le veían los dientes y los ojos. En ese momento el padre dijo: - Hijo, como pudiste observar la camisa quedó un poco sucia pero no es comparable a lo sucio que quedaste tú. El mal que deseamos a otros se nos devuelve y multiplica en nosotros. Por más que queremos o podamos perturbar la vida de alguien con nuestros pensamientos, los residuos y la suciedad siempre queda en nosotros mismos.
Ten mucho cuidado con tus pensamientos porque ellos se transforman en palabras.
Ten mucho cuidado con tus palabras porque ellas se transforman en acciones.
Ten mucho cuidado con tus acciones porque ellas se transforman en hábitos.
Ten mucho cuidado con tus hábitos porque ellos moldean tu carácter.
Y ten mucho cuidado con tu carácter porque de él dependerá tu destino.

Les deseo un feliz día...
Amplia tu mente...

jueves, 3 de noviembre de 2011

Crear Menús con Visual Basic

Para activar el editor de menús utilice el botón
y nos muestra la siguiente ventana:



En la opción Caption se debe escribir el texti que aparece en el menú u opción.



En la opción Name se debe el nombre del menú u opción que se esta creando.



Siga los siguientes pasos:



Caption: &Archivo


Name: mn_Archivo


BOTON SIGUIENTE


BOTON FLECHA A LA DERECHA, para crear una nueva opción.


Se crea el menú Archivo, para crear una opción utilice el botón Flecha a la derecha (Baja un nivel), para Aumentar un nivel (Menú o submenú), utilice el botón flecha a la izquierda.



Las opciones pueden tener un método abreviado para activarse con el teclado.



Shorcut : Asigna un método abreviado a su trabajo.



Continúe con las siguientes opciones, Presione el botón SIGUIENTE:



1. Abrir



-- Caption:&Abrir



- Name: opt_Abrir



- Shorcut: Ctrl + A









2. Guardar



Caption:&Guardar



Name: opt_Guardar



SShorcut: Ctrl + G







3. Salir



Caption:&Salir



Name: opt_Salir



Shorcut: Ctrl + S



Clic Aceptar







4. Edición, Como este es un menú se debe disminuir un nivel (Flecha a la Izquierda).



Caption:&Edición



Name: mn_Edicion

Tenga en cuenta que los menús no tienen método abreviado.




Continué hasta crear la anterior ventana y poder mostrar los menús de la siguiente forma:










Después de terminar los menús cree otra ventana para mostrar cuando de clic en el menú, así:



Utilice el botón




para crear un nuevo formulario.








De clic en el menú Abrir y se muestra la ventana de código y escriba lo siguiente:



Private Sub opt_Abrir_Click()



Form2.Show



End Sub





Para mostrar el formulario numero 2, ejemplo:








jueves, 27 de octubre de 2011

Taller Visor de Imagenes

Este programa nos permite buscar y mostrar imágenes en el Disco Duro, CD o USB.

Siga los siguientes pasos:

1. Entre a Visual Basic 6.0

2. Diseño de Pantalla:


Utilice los siguientes objetos:

Al Objeto Image debe cambiar la propiedad Stretch a True.

3. Debe escribir el siguiente código (Puede copiar y pegar) en la ventana de código:

Private Sub Dir1_Change()

File1.Path = Dir1.Path

End Sub

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub

Private Sub File1_Click()

Image1.Picture = LoadPicture(File1.Path + "\" + File1.FileName)

End Sub

Private Sub Form_Load()

File1.Pattern = "*.jpg; *.bmp; *.wmf; *.gif"

End Sub


4. Para mostrar resultados presione F5 y comience a utilizar el programa.

martes, 4 de octubre de 2011

Taller para 11° - Programación con Visual Basic



Crear un Programa que permita mostrar una imagen y un texto o explicación, con solo cruzar el puntero de Mouse sobre el un objeto
Tenga en cuenta lo siguiente:
Cree una SubCarpeta llamada Taller1 dentro de la carpeta 11(A-B) y busque, grabe imágenes.
Un Carro, un Avión y un Barco.

Adicione al formulario un objeto de tipo IMAGE


Cambie la propiedad Stretch a True
Esto permite que la imagen se muestre del tamaño del recuadro IMAGE.




Adicione un objeto de tipo LABEL, y cambie la propiedad Caption por Carro.

Adicione otro un objeto de tipo LABEL, y cambie la propiedad Caption por Avión.

Adicione otro un objeto de tipo LABEL, y cambie la propiedad Caption por Barco.

Debe grabar el proyecto y el formulario en el mismo sitio

de las imágenes.


Adicione otro LABEL, para mostrar la explicación cuando se pase el puntero del Mouse por el LABEL.

La apariencia del formulario debe ser similar al formulario que se muestra en la gráfica.









Debe escribir el siguiente código:
Tenga en cuenta que los objetos estan en la lista superior izquierda y los eventos del objeto estan en la lista superior derecha:



Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Picture = LoadPicture()
Label5 = ""
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Picture = LoadPicture(App.Path + "\carro.jpg")
Label5 = "Explicar medio de Transporte Carro"
End Sub

Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Picture = LoadPicture(App.Path + "\Avion.jpg")
Label5 = "Explicar medio de Transporte Avión"
End Sub

Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Picture = LoadPicture(App.Path + "\barco.jpg")
Label5 = "Explicar medio de Transporte Barco"
End Sub

Para ver el resultado presione F5 o clic en el botón Iniciar.

Explicación breve de algunos conceptos:

Image1.Picture: Muestra la imagen.
LoadPicture: Carga la imagen o la muestra en el objeto IMAGE.
App.Path: Devuelve o muestra la ruta o carpeta donde esta grabado el proyecto, por eso es importante grabar el proyecto y el formulario en el mismo sitio de las imágenes.