به دیزاینر رفته و دوتا EditText و دوتا Label و یک Button ایجاد کنید.
#ApplicationLabel: B4A_register
#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 Globals
Private text_pass As EditText
Private text_user As EditText
Private btn_register As Button
Dim ht As HttpJob
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("lmain")
ht.Initialize("register",Me)
End Sub
Sub Jobdone (job As HttpJob)
If job.Success = True Then
Msgbox(job.GetString,"Success")
Else
ToastMessageShow("خطا در برقراری اتصال" , False)
End If
End Sub
Sub btn_register_Click
Dim send As String
send = "username="&text_user.Text&"&password="&text_pass.Text
ht.PostString("https://beporsam.ir/register.php",send)
End Sub
در قسمت Sub btn_register_Click
در خط ۲ یک متغیر به نام send از نوع رشته برای ارسال مقادیر تعریف کردیم.
در خط ۳ مقدار text_user را برابر username و مقدار text_password را برابر password قرار دادیم.
در خط ۴ هم چون مقادیر ارسالی از نوع متنی هست یک ht.PostString تعریف و آدرس فایل Register.php و متغیر send را بهش دادیم.
*********************************************
متن لیبل بر اساس یکی از فیلدهای دیتابیس باشه(بدین معنی که متن لیبل از دیتابیس فراخونی بشه)
در اکتویتی اول دکمه ای قراردهید که با کلیک روی دکمه به اکتویتی دوم بریم.
و کدهای بیسک در اکت جدید
Sub Process_Globals
Dim ht2 As HttpJob
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("lr")
ht2.Initialize("read",Me)
ht2.PostString("https://beporsam.ir/b4a/readdata.php","")
End Sub
Sub JobDone (job As HttpJob)
If job.Success=True Then
If job.JobName="read" Then
ProgressDialogHide
Label1.Text=ht2.GetString
End If
Else
ToastMessageShow("خطا در برقرای اتصال",False)
End If
End Sub
سوال
sedat 11
سلام من در سایت بپرسم آموزش ارتباط با سرور آنلاین در b4a دیدم واجرا کردم اماخطا میده
آموزش و عکس خطا رو میزارم
دوستان کمک کنید
لطفا کمک کنید
**********************************************************
آموزش:
جدولی با فیلدهای id,username,password می سازیم، که فیلد id از نوع INT و فیلدهای username و password از نوع Text هستند.
شما هم جدول خود را طبق تصویر بالا با فیلدها و تیک های زده شده بسازید.
کدهای php برای انجام عملیات ثبت نام(موضوع برنامه ثبت نام است)
********************************************
در b4a
#ApplicationLabel: B4A_register #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 Globals Private text_pass As EditText Private text_user As EditText Private btn_register As Button Dim ht As HttpJob End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("lmain") ht.Initialize("register",Me) End Sub Sub Jobdone (job As HttpJob) If job.Success = True Then Msgbox(job.GetString,"Success") Else ToastMessageShow("خطا در برقراری اتصال" , False) End If End Sub Sub btn_register_Click Dim send As String send = "username="&text_user.Text&"&password="&text_pass.Text ht.PostString("https://beporsam.ir/register.php",send) End Sub
در خط ۲ یک متغیر به نام send از نوع رشته برای ارسال مقادیر تعریف کردیم.
در خط ۳ مقدار text_user را برابر username و مقدار text_password را برابر password قرار دادیم.
در خط ۴ هم چون مقادیر ارسالی از نوع متنی هست یک ht.PostString تعریف و آدرس فایل Register.php و متغیر send را بهش دادیم.
*********************************************
متن لیبل بر اساس یکی از فیلدهای دیتابیس باشه(بدین معنی که متن لیبل از دیتابیس فراخونی بشه)
در اکتویتی اول دکمه ای قراردهید که با کلیک روی دکمه به اکتویتی دوم بریم.
و کدهای بیسک در اکت جدید
Sub Process_Globals Dim ht2 As HttpJob End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("lr") ht2.Initialize("read",Me) ht2.PostString("https://beporsam.ir/b4a/readdata.php","") End Sub Sub JobDone (job As HttpJob) If job.Success=True Then If job.JobName="read" Then ProgressDialogHide Label1.Text=ht2.GetString End If Else ToastMessageShow("خطا در برقرای اتصال",False) End If End Sub
کدهای PHP برای فراخوانی اطلاعات از دیتابیس:
لینک ارسال
به اشتراک گذاری در سایت های دیگر
19 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.