با سلام و سپاس
در این آموش میپردازیم به ساختن یک لایسنس ( license ) ساده با php در بیسیک فور اندروید .
که کاملا ساده و پرکاربرد می باشد . شده حتما تا حالا برا مشتری پروژه ای درست کنید و نمونه تستی بدید همون کار مشتری رو راه بندازه و مشتری دیگه ………………..
شما با این کار میتونید برنامتون رو کاملا تحت اختیار داشته باشید.
ببینید ما در این آموزش اومدیم گفتیم اگر در هاستمون در فایل php نوشته بود Connected شما بیا یه توست بده :
ToastMessageShow("با موفقیت اتصال برقرار شد.", True)
و اگر داخل فایل php نوشته بود مثلا error یه توست بده :
ToastMessageShow("با موفقیت انجام نشد و برنامه بسته شد", True)
که با توست اولی برنامه اجرا و شروع به کار میکند ولی در توست دوم ما اومدیم تو if اون قسمت در Else گفتم اگر ناموفق بود یعنی تو هاست داخل php نوشته بود error بیا برنامه رو ببند :
ToastMessageShow("با موفقیت انجام نشد و برنامه بسته شد", True)
ExitApplication
حالا ما اومدیم اینجا دستور بسته شدن رو دادیم شما میتونید با این روش خیلی کار ها کنید :
مثلا :
- ۵ تا اس ام اس آخر
- ارسال اس ام اس از گوشی طرف
- گرفتن مشخصات گوشی
- وغیره
که باید کد نویسی اون ها رو در الس اون قسمت برا فراخوانی ، فراخوانی کنید .
قسمت B4A
#Region Project Attributes
#ApplicationLabel: B4A Example
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("dada")
TestConnection
End Sub
Sub TestConnection
Dim Connect As HttpJob
Connect.Initialize("Connect", Me)
Connect.Download("http://****/Connect.php")
ProgressDialogShow("در حال چک کردن لایسنس")
End Sub
Sub JobDone (Job As HttpJob)
ProgressDialogHide
If Job.Success = True Then
If Job.JobName = "Connect" Then
If Job.getstring.Contains("Connected") = True Then
ToastMessageShow("با موفقیت اتصال برقرار شد.", True)
Else
ToastMessageShow("با موفقیت انجام نشد و برنامه بسته شد", True)
ExitApplication
End If
End If
End If
Job.Release
End Sub
قسمت PHP
<?php
print json_encode ("Connected");
?>
بدیهی هست که تکه کد بالا رو یک فایل مثلا به نام Connect.php در هاستتون بسازید و داخل آن پست یا بنویسید و فایل رو سیو وآدرس اون رو در پروژه اتون اعمال کنید .
امید وارم مورد قبول واقع بشه .
اگر اشتباه تایپی بود ببخشید .
گرداورنده : سید اسماعیل
