RED DE PROCESOS COGNITIVOS INTEGRADOS II PERIODO - INPUTBOX - Mensajes y Captura de datos

RED DE PROCESOS COGNITIVOS INTEGRADOS
Grado: 11°	Asignatura: Tecnología e Informática	Docente: Betsauro Palomino Díaz	Periodo:  II	Año: 2014
Componente	Ejes Curriculares	Núcleos Integradores	Estándares de Desempeño
Apropiación y uso de la Informática Apropiación y uso de la tecnología	Programación de los controles básicos Búsqueda y procesamiento de información.	INPUTBOX - Mensaje y Captura de datos. Programar con el condicional SELECT CASE. Eventos MouseMove y Change con el objeto Image. Evento Lostfocus y Gotfocus. ChecBox OptionButton. Herramientas para procesar y buscar información.	Manifiesto destreza en la elaboración de programas básicos utilizando diferentes eventos de programación el lenguaje de programación Visual Basic 6.0. Utilizo adecuadamente herramientas informáticas de uso común para la búsqueda y procesamiento de la información y la comunicación de ideas.

Asignatura: Tecnología e Informática.

Formación en Valor: Sentido de Pertenencia.

Núcleo Integrador: INPUTBOX - Mensajes y Captura de datos
Objetivo: Captura de datos por medio de mensajes.

INPUTBOX
Es una instrucción de Visual Basic, que permite capturar datos al momento que muestra un mensaje.

EJEMPLO:
DIM SALARIO AS CURRENCY

SALARIO = INPUTBOX("ESCRIBA SU SALARIO")

En la instrucción anterior se crea una variable de tipo CURRENCY, luego se le asigna el resultado que el usuario escriba al momento de mostrar el mensaje.

Otros ejemplos de INPUTBOX

Teniendo en cuanta los ejemplos anteriores desarrolle un programa que capture:
Nombre del Vendedor y Valor Venta.
el programa debe calcular la comisión así:
Si la venta es de 2.000.0000  o mayor se le da 200.000
Si es inferior reciben 100.000

Sistemas de control basados en la alimentación de artefacto

Asignatura: Tecnología e Informática.

Formación en Valor: Sentido de Pertenencia.

Núcleo Integrador: 

1. Sistemas de control basados en la alimentación de artefactos.
2. Funcionamiento y efectos de los artefactos.

Objetivo: Identificar como se controlan diferentes artefactos.

Taller:

Desarrollar un trabajo escrito en Word, que explique el Funcionamiento y efectos de los artefactos en la vida diaria de las personas.

Nota: El trabajo debe tener las siguientes características:

1. Hoja de presentación.

2. Indice.

3. Introducción.
4. Objetivo General y Objetivos Específicos 

5. Desarrollo, utilice imágenes y texto al explicar como mínimo 4 artefactos.

6. Conclusión.

7. Bibliográfica.

El trabajo debe tener el siguiente Nombre: 

Curso-Nombre Estudiante-Funcionamiento de Artefactos

Ejemplo:
11C-Jennifer Palomino-Funcionamiento de Artefactos

Enviar a betpadi@gmail.com

el día jueves hasta las 24 horas.

Eventos KeyPress, Evento Clic.

Asignatura: Tecnología e Informática.

Formación en Valor: Sentido de Pertenencia.

Núcleo Integrador: Eventos KeyPress, Evento Clic.
Objetivo: Programar el Mouse y el Teclado.

TALLER1:
Desarrolle un programa que capture Nombre y Salario de un empleado, utilizando cuadros de texto.
Diseñe el siguiente Formulario.

Tenga en cuenta: Programar los cuadros de textos TEXT1 Y TEXT2, el evento KEYPRESS.


Programar el Botón COMMAND1 el evento CLIC.

Tenga en cuenta que el Subsidio de Transporte solo se les da a los empleados que ganen 1200000 o menos, los que ganen más de 1200000 no tienen derecho a subsidio de transporte.







Para lo anterior se tiene el siguiente código como respuesta:
Private Sub Command1_Click()
  If Val(Text2) <= 1200000 Then
    Text3 = 70000
  Else
    Text3 = 0
  End If
  Text4 = Val(Text2) + Val(Text3)
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then
    Text2.SetFocus
  End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then
    Command1.SetFocus
  End If

End Sub


TALLER2:
Desarrolle un programa que calcule la COMISIÓN de un vendedor, tenga en cuenta que la comisión se da así:
Ventas menores o iguales a 5.000.000, reciben 600.000 de comisión.
Ventas mayores de 5.000.000, se les da 800.000 de comisión.
Tenga en cuenta el siguiente Formulario:

Copie el siguiente código y ejecute el programa con F5:
Private Sub Command1_Click()
  If Val(Text2) < 5000000 Then
    Text3 = 600000
  Else
    Text3 = 800000
  End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then
    Text2.SetFocus
  End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then
    Command1.SetFocus
  End If

End Sub