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