B4A Soy un reloj. Tiempo If Then Else

- Presentación.

- En esta ocasión, escribimos un número de segundos (entre 5 y 300) en el casillero.

- Pulsamos el botón "Pulsar para comenzar la cuenta de tiempo."

- Cuando creamos que hemos llegado al tiempo establecido, pulsamos el botón "Pulsa en el momento que creas que ha llegado al tiempo que has establecido."

- El programa nos indicará si hemos sobrepasado el tiempo, o no hemos llegado o hemos coincidido.

__________________
- Designer. Layout.

Designer - Layout

Creamos mediante el Designer un layout.
Le llamamos Layout.

Situamos un:

Label1 .... Text: Escribe un número en segundos entre 5 y 300
Label2 .... Text: ---
EditText1
Button1 .... Text: Pulsa para comenzar la cuenta de tiempo
Button2 .... Text: Pulsa en el momento que creas que ha llegado al tiempo que has establecido.

Al EditText1 le ponemos tamaño de texto 50 y Horizontal Alignement: RIGHT

__________________
- Código.

- Aquí está el código, una vez más indicar que es un código de aprendizaje, no está optimizado y se podría haber realizado de otra manera.
- He intentado crear un código que sea entendible por alguien que comienza en la programación.

Copia y pega este código en un nuevo proyecto

Sub Process_Globals
' Juan Antonio Villalpando
' juana1991@yahoo.com
End Sub

Sub Globals
    Dim Button1, Button2 As Button
    Dim Label1, Label2 As Label
    Dim EditText1 As EditText
    Dim comienzo, final, diferencia, tiempo As Long
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("Layout")
    Button2.Visible = False
    EditText1.RequestFocus
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
    tiempo = EditText1.Text
    If tiempo < 5 OR tiempo > 300 Then
    Msgbox("El tiempo no está en los márgenes establecidos.", "Error en el tiempo.")
    Else
    comienzo = DateTime.now
    Button1.Visible = False
    Button2.Visible = True
    Label2.Text = ""
    End If
End Sub

Sub Button2_Click
    final = DateTime.now
    diferencia = final - comienzo - (tiempo * 1000)
    
    If diferencia > 0 Then Label2.Text = "Has superado el tiempo en " & diferencia & " milésimas."
    If diferencia < 0 Then Label2.Text = "No has llegado al tiempo por " & Abs(diferencia) & " milésimas."
    If diferencia = 0 Then Label2.Text = "Increible, tiempo exacto."
    
    Button1.Visible = True
    Button2.Visible = False    
End Sub

________________________________