طرز استفاده کد نویسی در بیسک فور اندروید چگونه است؟

[graphicomid 0]

لطفا طرز استفاده کد نویسی در بیسک فور اندروید اگر ممکنه سورسشو بذارید من تنها مشکلی که دارم تو سورس طرف بیسیک فور اندروید هست 

 

[DexterFstone 387]

در ۱۴۰۱/۵/۲۱ در 05:01، graphicomid گفته است:

لطفا طرز استفاده کد نویسی در بیسک فور اندروید اگر ممکنه سورسشو بذارید من تنها مشکلی که دارم تو سورس طرف بیسیک فور اندروید هست 

 

عزیز سوالتون خیلی نا مفهومه منظورتون بهتر بیان کنید که کدوم قسمت مشکل دارید

[graphicomid 0]

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

[امیرحسین قاسمی 606]

در ۱۴۰۱/۵/۲۱ در 18:05، graphicomid گفته است:

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

سلام

باید یک خروجی جیسون از داده هاتون با php تولید کنین. بعد با کتابخونه هایی مثل HttpUtils2 یا رتروفیت با وب سرور و اون فایل php ارتباط برقرار کنید که تا اینجا جیسون تولید و به کلاینت شما ارسال شده. حالا باید با کتابخونه ای مثل Json یا PersianJson بیاین و اون جیسون رو تجزیه کنید.

[graphicomid 0]

آقا امیر حسین سلام من دادهای php اوکیه تبدیل به جیسون هم کردم در برنامه خودم متاسفانه آخرین مقدار برای من میاره جمع اون ستون را به من نمیده 

تنها مشکل من جمع ستون هست که نمیدونم دستوراتم در جاب دان اشتباه است و یا از جای دیگه لطفا کمک کنید 

 

[امیرحسین قاسمی 606]

در ۱۴۰۱/۵/۲۱ در 18:49، graphicomid گفته است:

آقا امیر حسین سلام من دادهای php اوکیه تبدیل به جیسون هم کردم در برنامه خودم متاسفانه آخرین مقدار برای من میاره جمع اون ستون را به من نمیده 

تنها مشکل من جمع ستون هست که نمیدونم دستوراتم در جاب دان اشتباه است و یا از جای دیگه لطفا کمک کنید 

 

منظورتون از جمع ستون ها چی هست؟ لطفا در صورت امکان کدهای B4A خودتون رو قرار بدین.

[graphicomid 0]

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals

End Sub

Sub Globals
	
	Private Label1 As Label
	Dim dow As HttpJob
	Private Label2 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
	
	Activity.LoadLayout("Layout1")
	
	
	dow.Initialize("dl",Me)
	dow.Download("http://185.143.205.214:90/b/show.php")
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub JobDone(job As HttpJob)

ProgressDialogHide
If job.Success = True Then
	Dim res As String
	res = job.GetString

	Dim parser As JSONParser
	parser.Initialize(res)
	
	Dim DATA As List
	DATA = parser.NextArray

	For i = 0 To DATA.Size - 1
	Dim m As Map
	m.Initialize
	m = DATA.Get(i)
	Label1.Text= m.Get("litr")

	Next 
	End If
End Sub

 

[graphicomid 0]

اگر آدرس درون کد برنامه در مرورگر تان باز کنید مبینید یک ستون داردی تعداد عدد مختلف هست اوکی؟ حالا جمع آنها را میخوام تو برنامه دریافت کنم نمیدونم چکار کنم 

دانلود سورس

 

 

[امیرحسین قاسمی 606]

ابتدا توی سورس تون تابع JobDone رو حذف و تابع زیر رو جایگزینش کنید.

Sub JobDone(job As HttpJob)

	ProgressDialogHide
	If job.Success = True Then
		Dim res As String
		res = job.GetString

		Dim parser As JSONParser
		parser.Initialize(res)
		
		Dim DATA As List
		DATA = parser.NextArray
		
		Dim a As Int=0
		
		For i = 0 To DATA.Size - 1
			Dim m As Map
			m.Initialize
			m = DATA.Get(i)
			
			a = a+m.Get("litr")
		Next
		
		Label1.Text=a
		
	End If
End Sub

راستی برای بهینه تر شدن بهتره اون لیتر هارو توی همون سرور جمع کنید و فقط عدد به دست آورده شده رو echo کنید.

[graphicomid 0]

مرسی عزیز اگر لطف بفرمایید اینکار را بکنید ممنون میشم بزرگواری کنید سورس در دست شماست  اگر دستورات php برای من بنویسید ممنون میشم

در ۱۴۰۱/۵/۲۲ در 16:24، امیرحسین قاسمی گفته است:

ابتدا توی سورس تون تابع JobDone رو حذف و تابع زیر رو جایگزینش کنید.

Sub JobDone(job As HttpJob)

	ProgressDialogHide
	If job.Success = True Then
		Dim res As String
		res = job.GetString

		Dim parser As JSONParser
		parser.Initialize(res)
		
		Dim DATA As List
		DATA = parser.NextArray
		
		Dim a As Int=0
		
		For i = 0 To DATA.Size - 1
			Dim m As Map
			m.Initialize
			m = DATA.Get(i)
			
			a = a+m.Get("litr")
		Next
		
		Label1.Text=a
		
	End If
End Sub

راستی برای بهینه تر شدن بهتره اون لیتر هارو توی همون سرور جمع کنید و فقط عدد به دست آورده شده رو echo کنید.

 

[امیرحسین قاسمی 606]

در ۱۴۰۱/۵/۲۲ در 16:36، graphicomid گفته است:

مرسی عزیز اگر لطف بفرمایید اینکار را بکنید ممنون میشم بزرگواری کنید سورس در دست شماست  اگر دستورات php برای من بنویسید ممنون میشم

 

من سورس php رو ندارم اگه میتونید توی خصوصی بفرستید.

[graphicomid 0]

استاد عزیز اولا جا دارد از شما بابت شخصیت محترمتان که وقت گذاشتین تشکر کنم دوما مرسی بابت کدی که برای من زدین 

ولی من تعدادی واحد دارم در دیتابیسم که هر واحد یک خودرو دارد و هر هفته حواله بنزین دریافت میکند یعنی تمام واحد ها در یک دیتابیس ذخیره میشوند که ستون های مربوط به هر واحد جداگانه ثبت میشود در همان دیتابیس کدی که شما برای بنده ارسال فرمودید جمع تمام ستون ها را یک جا به من میده بر حسب واحد به واحد برای من محاسبه نمیکه  مثلا واحد 1 در هفته دوبار بنزین زده میخوام هر واحد بصورت جداگان محاسبه کند و به من نمایش بدهد. ممنون میشم اینبار هم کمک کنید ضمن اینکه 24 الی 25 واحد داریم که خودرو دارند که بعضا دو تا و یا سه تا خودرو دارند پیشنهاد شما برای هر واحد یک تبیل جداگانه برای خودرو درست کنم یا چیزی دیگه ای پیشنهاد میکند

 

لطفا سورس را نگاه کنید ممنون میشم