ComboBox

Asignatura: Tecnología e Informática.
Formación en Valor: Lealtad
Núcleo Integrador: ComboBox
Objetivo: Programar las listas desplegables.

COMBOBOX
Permite crear listas desplegables.

Agregue 2 comboBox al Formulario
y escriba el siguiente código

Private Sub Combo1_Click()
  Combo2.Clear
  Select Case Combo1.ListIndex
    Case 0
      Combo2.AddItem "CARTAGENA"
      Combo2.AddItem "TURBACO"
    Case 1
      Combo2.AddItem "BARRANQUILLA"
      Combo2.AddItem "BARANOA"
    Case 2
      Combo2.AddItem "SANTA MARTA"
      Combo2.AddItem "CIENAGA"
  End Select
End Sub

Private Sub Form_Load()
  Combo1.Clear
  Combo2.Clear
  Combo1.AddItem "BOLIVAR"
  Combo1.AddItem "ATLANTICO"
  Combo1.AddItem "MAGDALENA"
End Sub

Presione F5 y pruebe el programa.
Analice el funcionamiento del programa y teniendo en cuenta su análisis, Desarrolle:

TALLER.
Desarrolle un programa donde aplique lo aprendido con 2 COMBOBOX

Manejo de Unidades de disco, carpetas y archivos.

Grado: 11
Fecha:  Julio 26 de 2013
Asignatura: Tecnología e Informática.
Formación en Valor: Lealtad.
Núcleo Integrador: 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.

OptionButton

Fecha: Julio 19 de 2013

Asignatura: Tecnología e Informática.

Formación en Valor: Lealtad.

Núcleo Integrador: OptionButton

Objetivo: Programar los Botones de Opciones.

Los OptionButton

Son botones de opciones , las cuales se utilizan para trabajar listas de opciones, de las cuales se puede seleccionar una sola opción.

Se controla con la propiedad Value, la cual indica si esta o no seleccionado el OPTIONBUTTON.
Tiene dos posibles valores:
TRUE No esta seleccionado.
FALSE Esta Seleccionado.

DESARROLLE: El siguiente diseño de formulario:

RECUERDE:

Pegue el siguiente código en la ventana de código de Visual Basic:

'Este programa Calcula la Bonificación y el Neto a Pagar de un empleado

'La Bonificación se distribuye así_:

'Si el empleado es Nuevo, la Bonificación es del 10% del salario

'Si el empleado es Antiguo se le da el 15% del salario.

'Neto a Pagar es la Suma del Salario Más la Bonificación.

Private Sub Command1_Click()

  If Option1.Value = True Then

    Text3 = Val(Text2) * 10 / 100

  ElseIf Option2.Value = True Then

    Text3 = Val(Text2) * 20 / 100

  Else

    MsgBox "Debe seleccionar el Tipo de empleado (Nuevo o Antiguo)"

    Exit Sub

  End If

  Text4 = Val(Text2) + Val(Text3)

End Sub

' Este Botón Blanquea los cuadros de texto, los OptionButton y el CheckBox.

' Pasa el cursor al primer cuadro de texto

Private Sub Command2_Click()

  Text1 = ""

  Text2 = ""

  Text3 = ""

  Text4 = ""

  Option1.Value = False

  Option2.Value = False

  Text1.SetFocus

End Sub

TALLER:
Desarrolle un programa utilizando Botones de Opciones. Tenga en cuenta el ejemplo Anterior.
El programa debe Capturar:
Nombre  Articulo.
Valor Articulo.

DEBE CALCULAR:

Descuento: el cual depende si el articulo es GRANDE o PEQUEÑO, Así: Grande 10% del Valor Articulo, Pequeño 5% del Valor Articulo.

Neto a Pagar: Restar al Valor Articulo.el Valor Descuento.

Plan de Gestión III Periodo

11 Grado - III Periodo  Tecnología e Informática
Componente	Apropiación y uso de la tecnología.
Ejes Curriculares	Programación de los controles básicos Y desarrollo de Software didáctico.
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.
Núcleos Integradores III Periodo
·                     Manejo de Unidades de disco, carpetas y archivos. ·                     ComboBox. ·                     ListBox. ·                     Control Timer. ·                     Menús.

=================================================================

Núcleo: CheckBox y OptionButton

Fecha: Julio 15 de 2013

Asignatura: Tecnología e Informática.

Formación en Valor: Lealtad.

Núcleo Integrador: CheckBox y OptionButton

Objetivo: Programar las Casillas de Verificación y los Botones de Opciones.

CheckBox: también conocidas como Casillas de Verificación, nos permite establecer una lista de opciones, de las cuales podemos seleccionar ninguna, una, algunas o todas.

Son opcionales.

Se controla con la propiedad Value, la cual indica si esta o no seleccionado el CHECKBOX.
Tiene dos posibles valores:
0 No esta seleccionado.
1 Esta Seleccionado.

Los OptionButton

Son botones de opciones , las cuales se utilizan para trabajar listas de opciones, de las cuales se puede seleccionar una sola opción.

Se controla con la propiedad Value, la cual indica si esta o no seleccionado el OPTIONBUTTON.
Tiene dos posibles valores:
TRUE No esta seleccionado.
FALSE Esta Seleccionado.

DESARROLLE: El siguiente diseño de formulario:

RECUERDE:

Pegue el siguiente código en la ventana de código de Visual Basic:

'Este programa Calcula la Bonificación y el Neto a Pagar de un empleado

'Si Tiene Bonificación y es Nuevo se les da el 10% del salario.

'Si Tiene Bonificación, y es Antiguo se les da el 15% del salario.

'Si Bonificación NO esta Activo, NO tiene Bonificación, es cero

Private Sub Command1_Click()

  If Check1.Value = 1 Then

    If Option1.Value = True Then

      Text3 = Val(Text2) * 10 / 100

    ElseIf Option2.Value = True Then

      Text3 = Val(Text2) * 20 / 100

    Else

      MsgBox "Debe seleccionar el Tipo de empleado (Nuevo o Antiguo)"

    End If

  ElseIf Check1.Value = 0 Then

    Text3 = 0

  End If

  Text4 = Val(Text2) + Val(Text3)

End Sub

' Este Botón Blanquea los cuadros de texto, los OptionButton y el CheckBox. 

' Pasa el cursor al primer cuadro de texto

Private Sub Command2_Click()

  Text1 = ""

  Text2 = ""

  Text3 = ""

  Text4 = ""

  Option1.Value = False

  Option2.Value = False

  Check1.Value = 0

  Text1.SetFocus

End Sub

TALLER:
Desarrolle un programa utilizando Botones de Opciones y Casillas de Verificación. Tenga en cuenta el ejemplo Anterior.

CheckBox

Fecha: Julio 12 de 2013

Asignatura: Tecnología e Informática.

Formación en Valor: Lealtad.

Núcleo Integrador: CheckBox

Objetivo: Programar las Casillas de Verificación.

CheckBox: también conocidas como Casillas de Verificación, nos permite establecer una lista de opciones, de las cuales podemos seleccionar ninguna, una, algunas o todas.

Son opcionales.

Estos objetos trabajan con la propiedad Value:

Si tiene el valor de 1 indica que fue seleccionada.

Si tiene el valor de 0 indica que No se ha seleccionado.

Ejemplo:

Adicione un CHECKBOX  al formulario.

Cámbiele la propiedad  Caption por: “Esta Inactivo “

Doble clic sobre el CheckBox

Escriba el siguiente código sobre el evento Clic

Private Sub Check1_Click()

  If Check1.Value = 0 Then

     Check1.Caption = "Esta Inactivo"

  ElseIf Check1.Value = 1 Then

     Check1.Caption = "Esta Activo"

  End If

End Sub

Ejecute el programa presionando F5

Taller:

Desarrolle un ejercicio que aplique lo aprendido, de la siguiente forma:

Incorpore un  CheckBox al Formulario que tenga en la propiedad Caption IVA, al Activarlo que Sume el IVA y que al Desactivarlo lo Reste.

Nota: utilice dos cuadro de texto que tenga el Valor Venta y otro el Valor IVA.

Recuerde que el IVA es el 16% de la Venta.

1. DISEÑO DEL FORMULARIO, DEBE TENER LAS SIGUIENTES CARACTERÍSTICAS:

Para obtener el anterior diseño tenga en cuenta:
a. Los LABEL se les cambia la propiedad CAPTION..
b. Los TEXT se les debe borrar la propiedad TEXT, para que no muestren texto.
c. Los CHECKBOX se les cambia la propiedad CAPTION.
d. Los COMMANDBUTTON se les cambia la propiedad CAPTION.

2. Programar el botón CALCULAR.
  a. Doble Clic sobre el botón CALCULAR  y escribir el siguiente código:
Private Sub Command1_Click()
  If Check1.Value = 1 Then
    Text2 = Val(Text1) * 16 / 100
  Else
    Text2 = 0
  End If
  Text3 = Val(Text1) + Val(Text2)
End Sub

EJECUTE EL PROGRAMA CON F5

El usuario debe escribir el valor venta.
Si la venta tiene IVA, activar la casilla.
Clic en el botón CALCULAR.