PDA

View Full Version : سنجش یک رویداد در یک بازه زمانی



code_project
سه شنبه 23 آبان 1391, 11:27 صبح
سلام دوستان
من توی برنامه م یه سیستم هشداردهنده میخوام که این سیستم تعداد رکوردهای درج شده توی یه جدول را هر 5 دقیقه یکبار چک کنه و اگه تعداد این سطرها بیشتر از صفر بود یه پیام هشدار بده. این کار باید تا زمانیکه برنامه در حال اجراستٰ هر 5 دقیقه انجام بشه. حالا چکار کنم؟!!

Hossis
سه شنبه 23 آبان 1391, 12:06 عصر
از تایمر همراه یک متغیر عمومی یا استاتیک استفاده کنید
sub timer1_elapsed()
static T as short
t+=1
if t=5 then
'Check Table
t=0
end if
end sub
البته باید اینتروال تایمر رو برابر شصت هزار (یک دقیقه)قرار بدید.

code_project
سه شنبه 23 آبان 1391, 12:18 عصر
میشه دوستان یه مثال بزنن.

code_project
چهارشنبه 24 آبان 1391, 10:23 صبح
دوستان کسی نیست جواب منو بده؟؟

Hossis
چهارشنبه 24 آبان 1391, 12:36 عصر
میشه دوستان یه مثال بزنن.


دوستان کسی نیست جواب منو بده؟؟
همین چند خط کدی که بالا نوشتم, یک مثال بود.
شما یک تایمر روی فرم بگذارید و مقدارش اینتروالش رو 60000 قرار بدید و Enable کنید بعد توی رویداد این تایمر کد بالا رو بنویسید و در خطی که نوشتم check Table کد مورد نظر برای بررسی تعداد رکوردها رو درج کنید
برای تشخیص تعداد رکوردها هم می تونید بادستور Select اونها رو به دیتاگرید وارد کنید بعد تعداد row ها رو بشمرید به این صورت:
If DG.Rows.count then msgbox ("")
هر کجاش که مشکل بود بگید توضیح بیشتر بدم؟؟

code_project
چهارشنبه 24 آبان 1391, 13:42 عصر
ممنون از راهنماییتون.
یه مشکل دارم. اونم اینه که من با یه notify icon برنامه را با کلیک یه دکمه می برم توی نوار وظایف و به عبارت بهتر فرم برنامه را hide میکنم. تا وقتی که برم hide نشده باشه دستورات شما مشکل من را حل میکنه ولی اگه برنامه را hide کنم و اون را به system tray ببرمٰ دیگه اصلا رویداد tick تایمرم کار نمیکنه. پاک گیج شدم!!!