Menús

Fecha: Agosto 30 de 2013
Asignatura: Tecnología e Informática.
Formación en Valor: Solidaridad
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).

Control Timer

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


Control Timer
Este control de activa por intervalo 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 = 10000

  '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 y cambie la linea Image1.Picture = LoadPicture(App.Path + "\caballo" + Trim(Str(Numero)) + ".jpg")

Adaptando al nombre del archivo que acabas de descargar.

ListBox

Fecha: Agosto-5-2013
Asignatura: Tecnología e Informática.
Formación en Valor: Caridad
Núcleo Integrador: ListBox.
Objetivo: Utilizar listas de opciones en un programa.

ListBox:  Este objeto nos permite mostrar una lista de opciones 


Ejercicio Diseña el siguiente formulario:

Copia el siguiente código y muestra el resultado con F5.

Dim x As Integer
Private Sub Command1_Click()
 If List1.ListIndex = -1 Then
   MsgBox "Seleccione el elemento", vbInformation, "ListBox"
 Else
   List2.AddItem List1.Text
   List1.RemoveItem List1.ListIndex
 End If
End Sub

Private Sub Command2_Click()
 If List1.ListIndex = -1 Then
   MsgBox "Seleccione el elemento", vbInformation, "ListBox"
 Else
   For x = 0 To List1.ListCount
     List2.AddItem List1.List(x)
   Next x
   List1.Clear
 End If
End Sub

Private Sub Command3_Click()
If List2.ListIndex = -1 Then
   MsgBox "Seleccione el elemento", vbInformation, "ListBox"
 Else
   List1.AddItem List2.Text
   List2.RemoveItem List2.ListIndex
 End If
End Sub

Private Sub Command4_Click()
 If List2.ListIndex = -1 Then
   MsgBox "Seleccione el elemento", vbInformation, "ListBox"
 Else
   For x = 0 To List2.ListCount
     List1.AddItem List2.List(x)
   Next x
   List2.Clear
 End If
End Sub

Private Sub Form_Load()
  List1.AddItem "ELEMENTO 1"
  List1.AddItem "ELEMENTO 2"
  List1.AddItem "ELEMENTO 3"
  List1.AddItem "ELEMENTO 4"
End Sub

Taller: 
Teniendo en cuenta el ejercicio anterior, desarrolle un programa que permita realizar una venta de diferentes artículos.
Utilice el mismo código pero cambie los nombres de los artículos a vender (List1) y cuando de clic sobre la lista debe agregar este código

Private Sub List1_Click()

  Select Case List1.ListIndex
    Case 0
      Label1 = 100
    Case 1
      Label1 = 200
    Case 2
      Label1 = 150
    Case 3
      Label1 = 500
  End Select
End Sub

Al agregar un elemento adicione este código:
Label2 = Val(Label2) + Val(Label1)

NOTA: Note que debe adicionar dos Label (Label1 y Label2)