رفتن به مطلب
  • 0

گرفتن متن توسط جیسون از سرور و درج بر روی نمودار


ali-niri

سوال

سلام

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

کسی هست که بتونی راهنمایی کنه؟

 

متن خروجیم از سرور به فرمت زیر هست

[{"date":"2016-09-25 09:47:08","ps":"360"},{"date":"2016-09-25 09:46:06","ps":"100"},{"date":"2016-09-25 09:45:59","ps":"70"},{"date":"2016-09-25 09:45:53","ps":"10"},{"date":"2016-09-25 09:39:48","ps":"10"}]

لینک ارسال
به اشتراک گذاری در سایت های دیگر

3 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

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

json چگونه تلفظ می شود؟

با توجه به پاسخ گوگل، خود سازنده json  یعنی آقای داگلاس کراکفورد، json  بصورت "JAY-SUN" یا بعبارتی "جی سان" تلفظ میشود.

 

ممنونم

لینک ارسال
به اشتراک گذاری در سایت های دیگر

درود

الان شما با کدوم قسمت مشکل دارید؟

با دریافت اطلاعات ؟

این نمونه کد دریافت اطلاعات :

Sub JobDone(job1 As HttpJob)
 If job1.Success Then
   If job1.JobName = "Job" Then
	 Dim parser As JSONParser
	 parser.Initialize(job1.GetString)
	 Dim LstData As List
	 LstData.Initialize
	 LstData = parser.NextArray
	For Each MapData As Map In LstData
	 Dim p As Panel
	 p.Initialize("p")
	 sv.Panel.AddView(p,1%x,top,98%x,100%y)
	 top = top + 22%y
	 p.LoadLayout("frmdata")
	 idlbl.Text = MapData.Get("id")
	 namelbl.Text = MapData.Get("name")
	 familylbl.Text = MapData.Get("family")
	Next
	sv.Panel.Height = top
  End If
 End If
End Sub

 

آموزش تصویری کار با Json هم توی فروشگاه انجمن موجوده که استاد آرتا مدرس این دوره هستند

لینک ارسال
به اشتراک گذاری در سایت های دیگر

نه قسمت حیسون مشکلی نیست

 

مشکلم رو بخش تشکیل نمودار میله هست...

چ جوری مقدار ps رو به اندازه نمودار بدم و مقدار data رو به عنوام اون میله ...

اصن اینکه چطوری نمودار رو درست کنم

در ۱ ساعت قبل، مهدی ایزدی گفته است :

درود

الان شما با کدوم قسمت مشکل دارید؟

با دریافت اطلاعات ؟

این نمونه کد دریافت اطلاعات :

Sub JobDone(job1 As HttpJob)
 If job1.Success Then
   If job1.JobName = "Job" Then
	 Dim parser As JSONParser
	 parser.Initialize(job1.GetString)
	 Dim LstData As List
	 LstData.Initialize
	 LstData = parser.NextArray
	For Each MapData As Map In LstData
	 Dim p As Panel
	 p.Initialize("p")
	 sv.Panel.AddView(p,1%x,top,98%x,100%y)
	 top = top + 22%y
	 p.LoadLayout("frmdata")
	 idlbl.Text = MapData.Get("id")
	 namelbl.Text = MapData.Get("name")
	 familylbl.Text = MapData.Get("family")
	Next
	sv.Panel.Height = top
  End If
 End If
End Sub

 

آموزش تصویری کار با Json هم توی فروشگاه انجمن موجوده که استاد آرتا مدرس این دوره هستند

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...