Undécimo Grado - 2014 - III Periodo - Plan de Gestón

Grado: Undécimo.
Asignatura: Tecnología e Informática 
Periodo: III.
Año: 2014.

Componentes: 

·         Apropiación y uso de la Informática

·         Solución de problemas con tecnología

Ejes Curriculares:

·         Programación de los controles básicos y desarrollo de Software didáctico.

·         Soluciones a problemas tecnológicos.

Estándares de Desempeño

Manifiesto destreza en la elaboración de programas básicos utilizando listas de opciones y manejo de archivos con el lenguaje de programación Visual Basic 6.0.

Propongo, analizo y comparo diferentes soluciones a un mismo problema, explicando su origen, ventajas y dificultades.

Núcleos Integradores

• Manejo de Unidades de disco, carpetas y archivos.
• ComboBox.
• ListBox.
• Control Timer.
• Menús

Fecha: Junio 9 de 2014.
Asignatura: Tecnología e Informática.
Formación en Valor: Manejo de Unidades de disco, carpetas y archivos.
Objetivo: Programar la exploración de unidades y carpetas.

Manejo de Unidades de disco, carpetas y archivos.

Visual Basic 6.0 le permite con una serie de objetos explorar las unidades de disco y mostrar los archivos que contengan las unidades de disco o carpetas.


Objetos a Utilizar:

 DriveListBox: Muestra una lista de las unidades de disco del computador como son: Discos duros, USB, CD, etc.


 DirListBox: Permite explorar las carpetas, mostrando las subcarpetas que estas contengan.


 FileListBox: Muestra los archivos contenidos en una unidad de disco o carpeta.


 Image: Muestra imágenes contenidas en el disco.


Taller:

Realice el siguiente diseño de formulario con los objetos anteriores:
Nota: al objeto Image debe cambiarle la propiedad Stretch a TRUE, para que se ajuste al tamaño del objeto cuando se muestra la imagen.

Debe copiar el siguiente código:

'La comilla sencilla al frente del código indica que es un comentario.

'Muestra los archivos al cambiar la carpeta.

Private Sub Dir1_Change()

  File1.Path = Dir1.Path

End Sub

'Al cambiar la unidad de disco muestra que carpetas contiene.

Private Sub Drive1_Change()

  Dir1.Path = Drive1.Drive

End Sub

'Muestra la imagen al dar un clic sobre el archivo de imagen.

Private Sub File1_Click()

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

End Sub

'Al momento de mostrar el formulario le indica al objeto FileListBox 

' que muestre solo los tipos de archivos jpg, bmp y gif 

Private Sub Form_Load()

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

End Sub

Ejecute el programa presionando la tecla F5 y explore el disco en busca de imágenes.