Menús

Asignatura: Tecnología e Informática.
Formación en Valor: Ternura.
Núcleo Integrador: Menús.
Objetivo: Crear menús para mostrar diferentes ventanas en un programa.


Editor de Menús

Permite crear un menú









Modelo de Menús

Taller: Consulte cómo crear Menús en Visual Basic 6.0 y cree un Menú que ejecute dos o más Form (Formularios). Con diferentes opciones y subOpciones.

















Asignatura: Tecnología e Informática.
Formación en Valor: Ternura
Núcleo Integrador: Analizar, comparar y buscar soluciones a problemas..
Objetivo: Identificar un problema y como se ha solucionado utilizando tecnología.

Taller: desarrolle un trabajo escrito utilizando diapositivas, que explique como se ha solucionado dos problemas utilizando tecnología,  ejemplo:

Problema: En tiempos anteriores, los docentes sufrían de problemas en la piel, pues la tiza que utilizaban le causaban daños en la piel, como salpullidos y otros.
Solución, se crea el marcador borrable y el tablero acrílico, explico sus beneficios.

Características:
1, Diapositiva, hoja de presentación.
2. Indicar el primer problema.
3. Indicar solución al primer problema.
4. Indicar el segundo problema.
5. Indicar solución al segundo problema.

Las diapositivas deben tener:

• Transiciones.
• Animaciones aplicadas a imágenes y texto.

Control Timer

Asignatura: Tecnología e Informática.
Formación en Valor: Ternura
Núcleo Integrador: Control Timer.
Objetivo: Desarrollar un  control de Tiempo


Control Timer
Este control se activa por intervalos de tiempo.

Sus propiedades son:
Interval: Especifica el intervalo de tiempo en que se activa el control.

Objetos que deben agregar al formulario:

Control Timer

Label

Image

Adicione:

2 Control Timer

1 Label

1 Image

Debe quedar el formulario Así:

Grabe el Formulario y el Proyecto en una carpeta y copie estas 8 imágenes a esa misma carpeta: Deben tener el Nombre:

Caballo1.jpg, Caballo2.jpg, Caballo3.jpg, Caballo4.jpg, Caballo5.jpg, Caballo6.jpg, Caballo7.jpg, Caballo8.jpg, 

Luego copie el código y ejecute el programa.

Private Sub Form_Load()
  'Indica el intervalo de tiempo, 100 milésimas de segundo
  Timer1.Interval = 100
  
  Timer2.Interval = 100
  
  'Ancho y alto del formulario
  Me.Width = 16000
  Me.Height = 1000

 'ubica el formulario arriba
  Me.Top = 0
  
  'Cambia el tipo de letra, su tamaño
  Label1.Font.Name = "Magneto"
  Label1.Font.Size = 100

  'Auto ajusta el Label al tamaño de la letra
  Label1.AutoSize = True
  
End Sub

Private Sub Timer1_Timer()
  'Muestra la hora en el Label
  Label1 = Time
End Sub

Private Sub Timer2_Timer()
  'Se declara la Variable entera y Static es para que conserve el valor.
  Static Numero As Integer

  'Aumenta el valor de 1 en 1
  Numero = Numero + 1

  'Muestra la imagen 
  Image1.Picture = LoadPicture(App.Path + "\caballo" + Trim(Str(Numero)) + ".jpg")
  If Numero = 8 Then
    Numero = 0
  End If
End Sub

NOTA: Presione F5 y vea el resultado.

TALLER: Teniendo en cuenta el Taller anterior, descargue, imágenes que tengan una secuencia.
Nota1: Cambie la linea:
Image1.Picture = LoadPicture(App.Path + "\caballo" + Trim(Str(Numero)) + ".jpg")

Adaptando al nombre del archivo que acabas de descargar.

Nota2:
Tenga el cuenta la siguiente línea:
 If Numero = 8 Then
Cambie el numero 8, por el número de imágenes que tiene tu programa.

Nota3:
Tenga en cuenta la linea:
  Timer2.Interval = 100
El número 100: indica las milésimas de segundo que permiten mostrar la otra imagen, un numero menor, la imagen se mueve mas rápido, un numero mayor se mueve más lento.