درخواست راهنمایی برای خرید اموزش b4a ( برنامه انلاین)

[vistamobile 1,700]

سلام. من یه اپ ساده میخوام بزنم دقیقا هشتمین روزه که درگیرم. شهرمون کوچیکه منم یه سفارش گرفتم واسه بنگاه معاملاتی . خرید و فروش و اجاره. هیچ چیز خاصی هم نداره. حتی عکس هم قرار نیس بگیرم. فقط دوتا دیتا بیس انلاین میخوام که یکی کاربر مطلب ارسال کنه و اگر مورد قبلول ادمین بود کپی کنه به دیتا بیس دوم و رو آپ نشون داده بشه. پس شد ارسال و دریافت و کپی و اشتراک گذاری.

ولی واسه همین کار ساده چند روزه که الافم   الان نمیدونم کدوم محصول رو بخرم که کارم راه بیافته. در ضمن بلد نیستم با php کار کنم . کدوم محصول فروشگاه رو پیشنهاد میدین. تشکر تشکر 

[نورنما 613]

سلام 

همون یک دیتابیس آنلاین کفایت میکنه ! دوتا وکپی واینا نیاز نیست ، فقط یک فیلد مثل فیلد علاقه مندی در دیتابیستون قرار میدین که اگر مدیر تایید نکنه همیشه عددش برابر صفر باشه وباتاییدمدیر عددش یک بشه وقابل نمایش برای کاربر (نرم افزار مخصوص ادمین صرفا علاوه برلود ونمایش باهمین فیلد صفرویک کارداره وبس ).

پیشنهاد من برای اینکار ونمایش ، این کتابخونه  PersianRecyclerView هست ، البته آقای شاهپیری دستش درد نکنه !یک سورس کد شبیه صفحه اول کافه بازار که آنلاینه باهمین کتابخونه درست کرده وارائه کرده اندکه توی لینک زیر هست  که تقریبا سورس تقریبا کاملی برای اینکار شما هست البته باکمی تغییرات واضافات یعنی اضافه کردن بخش ارسال (که فایل Php دریافت و لود هم همراهشه).

 

البته اگر واسه همین کتابخونه  PersianRecyclerView  سراغ کار ساده دریافت اطلاعات دیتابیس بهمراه php هستید  براتون این پایین ارسالش میکنم .

php مخصوص ارسال اطلاعات روهم بخواین براتون ارسال میکنم که خودتون به این سورس اضافه کنید . به نظرم کارچندان سختی نیست ، البته اگر صاحب کارتان ازتان قسمت یوزر و پسور کاربران رو که خیلی مهمه رو نخواهد، کارش زیاد نخواد بود.  

 

Sub Process_Globals
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
#AdditionalRes: ..\\res
#AdditionalJar: com.android.support:recyclerview-v7
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub Globals
	Dim ht As HttpJob
	Type mydata (id As String ,name As String,family As String ,images As String ,images2 As String )
	''''''''''''''''''''''
	Dim pradapt As PRVFastIndictAdapter
	Private lis As List
	Dim prutil As PRViewUtils
	Type items (name As String,id As Int)
	Private PerFastScrollIndicator1 As PersianFastScrollIndicator
	Dim getmydata As mydata	
End Sub
Sub Activity_Create(FirstTime As Boolean)
	'''''''''''''''''''''''''''''''recycler
	Activity.Color=Colors.Transparent
	lis.Initialize
''''''''''''''''''''''	
	ht.Initialize("ht",Me)
	
	ht.PostString("Http://www....../mem.php","")
	PerFastScrollIndicator1.initialize("pr","recycler")
	Activity.AddView(PerFastScrollIndicator1.View,0,0,100%x,100%y)
	pradapt.initialize("pr")
	
	
End Sub

Sub JobDone (job As HttpJob)
	If job.Success Then
		Dim parser As JSONParser
		parser.Initialize(job.GetString)
		'Log(parser)
		Dim Members As List
		Members.Initialize
		Members = parser.NextArray 'returns a list with maps
	
		getmydata.Initialize
		
	
		For Each MapData As Map In Members

			getmydata.Id = MapData.Get("id")
			getmydata.name = MapData.Get("user_id")
			getmydata.family= MapData.Get("location")
			getmydata.images= MapData.Get("images_link")
		
			Log("getmydata.Id"&getmydata.Id)
			Log("getmydata.name"&getmydata.name)
			Log("getmydata.family"&getmydata.family)
			Log("getmydata.images"&getmydata.images)
			
		''''''''''''''''''''''''''''''''''''''''''''
				Dim itemw As items
				itemw.Initialize
				
				itemw.id=getmydata.Id
			    itemw.name=getmydata.name
			
				lis.Add(itemw)
		'''''''''''''''''''''''''''''''''''''''''''
			
		Next
		''''''''''''''''	
   Tanzimat_recycleview
	End If
End Sub

Sub Tanzimat_recycleview
		
	PerFastScrollIndicator1.HasFixedSize=True
	PerFastScrollIndicator1.setVerticallLinierLayoutManager
	PerFastScrollIndicator1.SnappingTop
	PerFastScrollIndicator1.PopupBgColor=Colors.Blue
	PerFastScrollIndicator1.PopupPosition=0  '0 for ADJACENT 1 for CENTER
	PerFastScrollIndicator1.PopupTextSize=20
	PerFastScrollIndicator1.PopupTextColor=Colors.White
	PerFastScrollIndicator1.IsThumbInactiveColorActive=True
	PerFastScrollIndicator1.ThumbActivateColor=Colors.Green
	PerFastScrollIndicator1.ThumbInactiveColor=Colors.Red
	PerFastScrollIndicator1.TrackColor=Colors.Gray
	PerFastScrollIndicator1.buildDefaultAdapter(pradapt.Adapter)
	
End Sub

Sub pr_getItemViewType(position As Int) As Int
	Return 0
End Sub
Sub pr_onCreateViewHolder(viewtype As Int) As String
	Return "item"
End Sub
Sub pr_getItemCount As Int
	Return lis.Size
End Sub

Sub pr_getSectionName(position As Int)  As String
	Dim ite As items=lis.Get(position)
	Return ite.name
End Sub
Sub Activity_Resume

End Sub

Sub pr_onBindViewHolder(view As Object,position As Int,viewtype As Int)
	prutil.init(view,"pr")
	Dim ite As items=lis.Get(position)
	prutil.setTextForTextview("songnamtxt",ite.name)
End Sub

و محتویات فایل php  لود اطلاعات :

 

$host = "";
$db = "";
$user = "";
$pw = "";

$con = new mysqli($host,$user,$pw) or die(mysqli_error());
mysqli_select_db($con,$db) or die(mysqli_error());
mysqli_query($con,"SET CHARACTER SET utf8");
mysqli_query($con,"SET NAMES 'utf8'");
/////////////////////////farsi saz
mysqli_query($con,"SET character_set_results=utf8,character_set_client=utf8,character_set_connection=utf8, character_set_database=utf8,character_set_server=utf8");
if(mysqli_connect_errno()){

    echo "Failed To Connect To MYSQL" . mysqli_connect_error();
}
////////////////////////



$sql = "SELECT * FROM tbl_member  ";

$res = mysqli_query($con ,$sql);

if (mysqli_errno($con)) {
    header("HTTP/1.1 500 Internal Server Error");
    // echo $query.'\n';
    echo $sql.'\n';
    echo mysqli_error();
}
else
{
    $rows = array();
    while($r = mysqli_fetch_assoc($res)) {
        $rows[] = $r;
    }
    print json_encode($rows);
}
mysqli_close($con);

 

[نورنما 613]

البته شما خودتون استادید ولی چون فرمودید که با فایل php نکرده اید مطالب زیر رو خدمت دوستان عرض میکنم:

1- یک فایل متنی در هاست ایجاد کنید و آدرس اونو به خط زیر در داخل بیسیک فور بدهید .که اینجا من نام فایل php ام mem.php هست .

ht.PostString("Http://www....../mem.php","")

* دقت کنید: به محتویات فایل php که در پست بالا براتون ارسال شد به اول وآخر مطالب داخل فایل این دو علامتو اضافه کنید :

<?php

.
.
.
.
.
.
.
.

?>

2- دیتابیسی که برای این  کدها برای من هست نام فیلدهایش به ترتیب زیر هست که شما هم باید همنام اونو در دیتابیستون واسه تست اینکار ایجادکنید،و نام تیبل در اینجا tbl_member هست که موقع ایجاد دیتابیس بایدبهش توجه بشه

id
user_id
location
images_link

3-یادتون نره  که  طبق سلیقه خودتان لیوت خودتان را طراحی و پوشه res  مخصوص کتابخانه را در کنار فایل اصلی برنامه کپی نمایید.

res

 

4-  درفایل php هم این چهارتا گزینه رو هم حتما باید کامل کنید .

$host = "نام هاست";
$db = "نام کامل دیتابیس";
$user = "نام کاربری که دیتابیس بهش متصل هست ";
$pw = "رمز کاربری که هنگام ایجاد حساب کاربری به هاست خودتون دادید";