PDA

View Full Version : اجرای قطعه کد در ساعت معین



klinton
جمعه 16 فروردین 1392, 15:12 عصر
سلام من یه تابعی دارم که اس ام اس میفرسته حالا میخوام هرروز فقط ساعت 11 این اجرا بشه البته اگه برنامه run بود پیشنهادی دارین ؟ مرسی

SHD.NET
جمعه 16 فروردین 1392, 16:43 عصر
سلام. یه راه پیشنهادی:
یه تایمر با اینتروال کم بزار (بین 1 تا 30 ثانیه)، بعدش با یه دستور شرطی چک کنی ببینی اگه ساعت 11 بود، اس ام اس رو ارسال کنه.
مثال:

If TimeOfDay.Hour = "11" And TimeOfDay.Minute = "00" Then
'Code that must be executed to send a SMS.
End If


موفق باشید

barnamenevisjavan
جمعه 16 فروردین 1392, 18:04 عصر
از رویداده خوده فرم هم بشه استفاده کرد بک کنم؟؟؟؟؟
Form Activated

SHD.NET
جمعه 16 فروردین 1392, 18:38 عصر
از رویداده خوده فرم هم بشه استفاده کرد بک کنم؟؟؟؟؟
Form Activated

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

**موفق باشید**

amirsajjadi
جمعه 16 فروردین 1392, 22:34 عصر
میتونی از Thread یا BackgroundWorker یا Timer استفاده کنی.

farbod61
شنبه 17 فروردین 1392, 07:12 صبح
میتونی از Thread یا BackgroundWorker یا Timer استفاده کنی.

سلام
یعنی چه جوری؟
میشه یه نمونه کد و توضیح بزارید؟
ممنونم

klinton
شنبه 17 فروردین 1392, 11:31 صبح
ساده ترین راه همون تایمر با یه ترد جدیده ولی به نظرتون راه های بهتری هم میتونه باشه؟ به خاطر چک کردن ساعت یه پروسس همیشه اجرا بشه؟؟

amirsajjadi
شنبه 17 فروردین 1392, 11:53 صبح
102384

اینم کنترل زمانبندی (خیلی کامله).

سورس این DLL رو میتونید از اینجا دانلود کنید. (http://scheduling.codeplex.com)

طریقه استفاده :


Private Sub run(j As Hardcodet.Scheduling.Job)
MsgBox(Now)
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim sc As New Hardcodet.Scheduling.Scheduler

Dim _start As DateTime = Now.AddSeconds(5)
Dim _end As DateTime = Now.AddSeconds(20)

Dim j As New Hardcodet.Scheduling.Job("J1")

j.Run.From(_start).Every.Seconds(1).Until(_end)

sc.SubmitJob(j, AddressOf run)

End Sub