'definir xuiviews
Dim input As B4XInputTemplate
input.Initialize
input.lblTitle.Text = "Insertar Valores:"
input.ConfigureForNumbers(True, True)
Wait For (dialog.ShowTemplate(input, "OK", "", "CANCEL")) Complete (Result As Int)
' If Result = xui.DialogResponse_Positive Then
' Dim res As Float = input.Text 'no need to check with IsNumber
' ' dialog.Show($"2 * $1.2{res} = $1.2{2 * res}"$, "OK", "", "") 'esto muestra una ventanita con el contenido.
' End If
If Result = xui.DialogResponse_Positive Then
dialog.Show($"You selected: ${input.Text}"$, "OK", "", "")
End If
' lblhorizontal.Text = res