رفتن به مطلب
برای استفاده از انجمن و عضـویت کلیک کنید.

AnswerCenter

مرکز پاسخگویی به سوالات برنامه نویسی

  • مرجع پاسخگویی
  • تولید آموزش
  • سفارش پروژه

درخواست سفارش پروژه

اطلاعیه

کاربر گرامی

به انجمن برنامه نویسی AnswerCenter.ir خوش آمدید

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


بایگانی شده

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

  • 0
cloner01001

چک کردن لحظه ای دیتابیس

سوال

cloner01001    38

کاربر عادی

سلام خسته نباشید

با استفاده از کد زیر اومدم و متن رو در label نشون دادم، حالا میخوام نرم افزار هر ثانیه چک کنه به محض اینکه متن mb تو دیتابیس تغییر کرد ، متن mb  تو نرم افزار که همون label هست هم عوض بشه


Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("end1")
	downloader1.Initialize("dl1",Me)
	downloader1.Download("http://www.xxxx.ir/xxx/show.php")

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub JobDone(job1 As HttpJob)
	If job1.Success Then
		If job1.JobName = "dl1" Then
			Dim parser As JSONParser
			parser.Initialize(job1.GetString)
			Dim lst As List
			lst.Initialize
			lst = parser.NextArray
			For Each m As Map In lst
				Dim p As Panel
				p.Initialize("p")
				p.Tag = m.Get("text")
				mb.Text= m.Get("mb")

				


			Next
		
		End If
		
	End If
End Sub

 

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


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

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

پست های پیشنهاد شده

mohammad3250    185

کاربر رو به رشد

در 27 دقیقه قبل، cloner01001 گفته است :

ممنون از شما ، با کدی که من نوشتن برای گرفتن اطلاعات ، حالا چطور میشه روش تایمر قرار داد؟ چندتا کدنوشتم ولی فقط یک بار اجرا شدن و بعد غیرفعال میشن...

برنامت سنگین میشه :/
تو ساب timer دوباره اطلاعات بفرست سمت سرور و دوباره timer.enable=true کن

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


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

کاربر رو به رشد

راحل اصولی این نوع برنامه ها استفاده nodejs هست و سرور اختصاصی رو هاست های اشتراکی نمیشه
حالا یه راه حل ساده استفاده از تایمر هست هر 1 ثانیه یه req بفرستی و دیتابیس چک کنی

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


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

کاربر رو به رشد

سلام تایمر برنامه را کُند میکنه بهتره از سرویس Services استفاده بشه و با تِرد Thread هم اطلاعاتو بگیرید تا سرعت برنامه پایین نیاد و حتی درصورت بسته شدن برنامه ارتباط برقرار باشه.

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


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

کاربر عادی

در 11 ساعت قبل، mohammad3250 گفته است :

راحل اصولی این نوع برنامه ها استفاده nodejs هست و سرور اختصاصی رو هاست های اشتراکی نمیشه
حالا یه راه حل ساده استفاده از تایمر هست هر 1 ثانیه یه req بفرستی و دیتابیس چک کنی

ممنون از شما ، با کدی که من نوشتن برای گرفتن اطلاعات ، حالا چطور میشه روش تایمر قرار داد؟ چندتا کدنوشتم ولی فقط یک بار اجرا شدن و بعد غیرفعال میشن...

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


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

کاربر نیمه فعال

در در 1397/11/20, 00:25:47، cloner01001 گفته است :

سلام خسته نباشید

با استفاده از کد زیر اومدم و متن رو در label نشون دادم، حالا میخوام نرم افزار هر ثانیه چک کنه به محض اینکه متن mb تو دیتابیس تغییر کرد ، متن mb  تو نرم افزار که همون label هست هم عوض بشه



Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("end1")
	downloader1.Initialize("dl1",Me)
	downloader1.Download("http://www.xxxx.ir/xxx/show.php")

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub JobDone(job1 As HttpJob)
	If job1.Success Then
		If job1.JobName = "dl1" Then
			Dim parser As JSONParser
			parser.Initialize(job1.GetString)
			Dim lst As List
			lst.Initialize
			lst = parser.NextArray
			For Each m As Map In lst
				Dim p As Panel
				p.Initialize("p")
				p.Tag = m.Get("text")
				mb.Text= m.Get("mb")

				


			Next
		
		End If
		
	End If
End Sub

 

سلام / طبق نظر دوستمون میتونی از نود جی اس استفاده کنید 

یا اینکه از فایربیس استفاده کنید . سرعت تقریبا عالی .

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


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

×
×
  • جدید...