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

[ali-niri 10]

سلام

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

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

 

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

[{"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"}]

[8611670474 3]

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

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

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

 

ممنونم

[مهدی ایزدی 9,203]

درود

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

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

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

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 هم توی فروشگاه انجمن موجوده که استاد آرتا مدرس این دوره هستند

[ali-niri 10]

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

 

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

چ جوری مقدار 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 هم توی فروشگاه انجمن موجوده که استاد آرتا مدرس این دوره هستند