با سلام و سپاس

 

در این آموش میپردازیم به ساختن یک لایسنس ( 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 در هاستتون بسازید و داخل آن پست یا بنویسید و فایل رو سیو وآدرس اون رو در پروژه اتون اعمال کنید .

 

امید وارم مورد قبول واقع بشه .

 

اگر اشتباه تایپی بود ببخشید .

 

گرداورنده : سید اسماعیل