#Region Project Attributes
#ApplicationLabel: NZero
#VersionCode: 1
#VersionName:
#SupportedOrientations: portrait
#CanInstallToExternalStorage: True
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
Dim Temporizador As Timer
End Sub
Sub Globals
Private lblusuario As Label
Private lblclave As Label
Private txtusuario As EditText
Private txtcodigo As Label
Private txtclave As EditText
Private login As Button
Private salir As Button
Dim loguear As HttpJob
Dim res As String
Dim parseo As JSONParser
Dim forceClose As Boolean
forceClose = False
Dim Beep As Beeper
Dim BeepMal As Beeper
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("login")
loguear.Initialize("registro", Me)
Dim cs As CSBuilder
cs.Initialize.Size(20).Typeface(Typeface.SANS_SERIF)
cs.Image(LoadBitmap(File.DirAssets, "nzero_p.jpg"), 30dip, 30dip, False).Append(" NZero")
cs.BackgroundColor(Colors.Blue)
cs.PopAll
Temporizador.Initialize("Tiempo",2000)
Temporizador.Enabled = False
Activity.Title = cs
Beep.Initialize(300, 500) '300 milliseconds, 500 hz
BeepMal.Initialize(300, 800) '300 milliseconds, 500 hz
End Sub
Sub Tiempo_tick
txtcodigo.Text = ""
Temporizador.Enabled = False
End Sub
Sub Activity_Resume
If forceClose Then ExitApplication
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub login_Click
loguear.Download2("http://xxxx.xxxx/xxxx/aaaa.php", Array As String("username", txtusuario.Text, "password", txtclave.Text))
End Sub
Sub salir_Click
forceClose = True
Activity.Finish
End Sub
Sub JobDone (Job As HttpJob)
If Job.Success Then
res = Job.GetString
parseo.Initialize(res)
Select res
Case "3"
txtcodigo.Text = "Usuario no verificado"
BeepMal.Beep
Case "2"
txtcodigo.Text = "Usuario desactivado"
BeepMal.Beep
Case "1"
txtcodigo.Text = "Usuario Admitido"
Beep.Beep
StartActivity("Escaneo")
Case "0"
txtcodigo.Text = "Usuario o clave erronea"
BeepMal.Beep
End Select
Temporizador.Enabled = True
End If
End Sub