Sub Globals
Dim ht As HttpJob
Private btnSubmit As Button
Private shomare As EditText
Private vercode As EditText
Dim code As String = 0
Private sendsms As Button
Private codename As Label
Private pnlcode As Panel
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("lRegisteration")
shomare.Color = Colors.Transparent
vercode.Color = Colors.Transparent
ht.Initialize("register",Me)
End Sub
Sub jobdone (job As HttpJob)
If job.Success Then
Log(job.GetString)
code = job.GetString
codename.Visible = True
pnlcode.Visible= True
vercode.Visible= True
btnSubmit.Visible = True
Else
ToastMessageShow("Enternet Error",True)
End If
End Sub
Sub sendsms_Click
If shomare.Text.Length =11 Then
' ht.poststring(link,"num="&shomare.Text)
codename.Visible = True
pnlcode.Visible= True
vercode.Visible= True
btnSubmit.Visible = True
Else
Msgbox("The phone number must be 11 digits","Warning")
End If
End Sub
Sub btnSubmit_Click
If vercode.Text <> "" Then
If vercode.Text = code Then
ToastMessageShow("Success login!",True)
code = ""
StartActivity(addorder)
Activity.Finish
Else
ToastMessageShow("False code",True)
End If
Else
Msgbox("Enter Your Confirmation Code?","Warning")
End If
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub