CheckBox y OptionButton

11A
Fecha: Mayo 19 de 2014

Asignatura: Tecnología e Informática.

Formación en Valor:Amor a la Virgen María.

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.

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

11A
Fecha: Mayo 19 de 2014

Asignatura: Tecnología e Informática.

Formación en Valor:Amor a la Virgen María.
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

Lostfocus y Gotfocus.

Curso: 11A
Fecha: Mayo 12 de 2014

Curso: 11B y 11C
Fecha: Mayo 16 de 2014

Asignatura: Tecnología e Informática.
Formación en Valor: Amor a la Virgen María.
Núcleo Integrador: Eventos Lostfocus y Gotfocus.
Objetivo: Programar la ubicación del Mouse.

Evento Lostfocus
Este evento ocurre cuando el cursor sale de un objeto(Cuadro de Texto, Botón de comando, etc.)


Evento Gotfocus
Este evento ocurre cuando el cursor Entra o Cae en un objeto(Cuadro de Texto, Botón de comando, etc.)

Diseñe la siguiente pantalla:

Copie este código en la ventana de código del programa y ejecute el programa con F5

Private Sub Command1_Click()

  If Val(Text2) <= 1200000 Then

    Text3 = 70000

  Else

    Text3 = 0

  End If

  Text4 = Val(Text2) + Val(Text3)

  Command2.SetFocus

End Sub

Private Sub Command1_GotFocus()

  

  If Text3 <> "" Then

    MsgBox "No debe escribir el transporte este se calcula"

    Text3 = ""

  End If

  If Text4 <> "" Then

    MsgBox "No debe escribir El Total a Pagar este se calcula"

    Text4 = ""

  End If

  If Text2 = "" Then

    MsgBox "Debe escribir el Salario"

    Text2.SetFocus

  End If

  

End Sub

Private Sub Command2_Click()

  Text1 = ""

  Text2 = ""

  Text3 = ""

  Text4 = ""

  Text1.SetFocus

End Sub

Private Sub Text2_GotFocus()

  If Text1 = "" Then

    MsgBox "Debe escribir el nombre"

    Text1.SetFocus

  End If

End Sub

Private Sub Text3_GotFocus()

  If Text2 = "" Then

    MsgBox "Debe escribir el Salario"

    Text2.SetFocus

  End If

End Sub

Taller:

Teniendo en cuenta el programa anterior, Aplique lo aprendido al proyecto de matemáticas, utilice el evento Gotfocus.

Ejemplo Taller Matemáticas
Desarrollo: Desarrolle un programa que permita que estudiantes de primaria identifiquen el numero con la cantidad y su escritura.

Diseñe el siguiente formulario en Visual Basic 6.0.

NOTA: GRABAR EL PROYECTO Y LAS IMAGENES EN LA MISMA CARPETA, PARA QUE PUEDA FUNCIONAR EL PROYECTO.

Para lo anterior debe adicionar los siguientes objetos:
Objeto a utilizar:

Objeto Image, debe cambiarle la propiedad Stretch al valor TRUE.

Objeto LABEL, colocarlos del tamaño de los números y cambiarle la propiedad 

Backstyle  =  0-Transparet

Nota: el LABEL  debe estar acorde con el numero, ejemplo:

Dibuja el LABEL1, debe ser sobre el numero Uno.

Dibuja el LABEL2, debe ser sobre el numero Dos.

Etc.

A el objeto Image1, asignale en su propiedad Picture la siguiente image(Debes descargarla)

No le cambies el nombre.

Descarga las siguientes imágenes:

OJO AQUÍ HAY UNA IMAGEN EN BLANCO

IMAGEN OSO1

IMAGEN OSO2

IMAGEN OSO3

IMAGEN OSO4

IMAGEN OSO5

IMAGEN OSO6

IMAGEN OSO7

IMAGEN OSO8

IMAGEN OSO9

IMAGEN OSO1 GRANDE

Copie el siguiente código y pegarlo en la ventana de código de Visual Basic.

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

  Image2.Picture = LoadPicture(App.Path + "\" + "osito0.jpg")

  Label10 = "CERO"

End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

  Image2.Picture = LoadPicture(App.Path + "\" + "osito1.jpg")

  Label10 = "UNO"

End Sub

Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Image2.Picture = LoadPicture(App.Path + "\" + "osito2.jpg")

Label10 = "DOS"

End Sub

Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Image2.Picture = LoadPicture(App.Path + "\" + "osito3.jpg")

Label10 = "TRES"

End Sub

Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Image2.Picture = LoadPicture(App.Path + "\" + "osito4.jpg")

Label10 = "CUATRO"

End Sub

Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Image2.Picture = LoadPicture(App.Path + "\" + "osito5.jpg")

Label10 = "CINCO"

End Sub

Private Sub Label6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Image2.Picture = LoadPicture(App.Path + "\" + "osito6.jpg")

Label10 = "SEIS"

End Sub

Private Sub Label7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Image2.Picture = LoadPicture(App.Path + "\" + "osito7.jpg")

Label10 = "SIETE"

End Sub

Private Sub Label8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Image2.Picture = LoadPicture(App.Path + "\" + "osito8.jpg")

Label10 = "OCHO"

End Sub

Private Sub Label9_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Image2.Picture = LoadPicture(App.Path + "\" + "osito9.jpg")

Label10 = "NUEVE"

End Sub