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

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 پاسخ به این سوال تا کنون داده شده است

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

  • 0
mohammad3250    181

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

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

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

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

  • پسندیدن 1

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0
mohammad3250    181

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

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

  • پسندیدن 1

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


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

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

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

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


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

کاربر عادی

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

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

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

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0
میلاد    433

کاربر فعال

در در 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

 

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

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

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


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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

مهمان
پاسخ به این سوال ...

×   شما در حال چسباندن محتوایی با قالب بندی هستید.   حذف قالب بندی

  تنها استفاده از 75 اموجی مجاز می باشد.

×   لینک شما به صورت اتوماتیک جای گذاری شد.   نمایش به عنوان یک لینک به جای

×   محتوای قبلی شما بازگردانی شد.   پاک کردن محتوای ویرایشگر

×   شما مستقیما نمی توانید تصویر خود را قرار دهید. یا آن را اینجا بارگذاری کنید یا از یک URL قرار دهید.


×
×
  • جدید...