EventScheduler

[dorkatz]

EventScheduler

בהמשך להמרת הקוד הצלחתי להמיר את הקוד ולהפעיל אותו (לא בעזרת ממשק גרפי ) יש לי בעיה כאשר אני עושה בדיקה על כל אובייקט זה עובד וכאשר אני מחברת זה לא . הקוד ב-c#

Schedule s = new IntervalSchedule("Test_Interval", DateTime.Now.AddSeconds(20), 45, TimeSpan.Zero, new TimeSpan(TimeSpan.TicksPerDay)); s.OnTrigger += new EventScheduler.Invoke(ScheduleCallBack); Scheduler.AddSchedule(s); s = new OneTimeSchedule("Test_Onetime", DateTime.Now.AddSeconds(20)); s.OnTrigger += new EventScheduler.Invoke(ScheduleCallBack); Scheduler.AddSchedule(s); s = new DailySchedule("Test_daily", DateTime.Now.AddMinutes(2)); s.OnTrigger += new EventScheduler.Invoke(ScheduleCallBack); Scheduler.AddSchedule(s); s = new WeeklySchedule("Test_weekly", DateTime.Now.AddMinutes(2.5)); s.OnTrigger += new EventScheduler.Invoke(ScheduleCallBack); Scheduler.AddSchedule(s); s = new MonthlySchedule("Test_monthly", DateTime.Now.AddMinutes(3)); s.OnTrigger += new EventScheduler.Invoke(ScheduleCallBack); Scheduler.AddSchedule(s);​

הקוד שלי ב-vb.net (המון תודה ליאיר)

MessageBox.Show("Test will now create all all types of schedules ") ''****************************Interval Schedule*************************''' Dim s As New ES.IntervalSchedule("Test_Interval", DateTime.Now.AddSeconds(20), 45, TimeSpan.Zero, New TimeSpan(TimeSpan.TicksPerDay)) 'Dim s As New ES.IntervalSchedule("Test_Interval", DateTime.Now.AddMinutes(1), 45, TimeSpan.Zero, New TimeSpan(TimeSpan.TicksPerDay)) AddHandler s.OnTrigger, New ES.Invoke(AddressOf Schedule_OnTrigger) ES.Scheduler.AddSchedule(s) '****************************One Time Schedule*************************''' Dim s1 As New ES.OneTimeSchedule("Test_OneTime", DateTime.Now.AddSeconds(40)) 'Dim s1 As New ES.OneTimeSchedule("Test_OneTime", DateTime.Now.AddMinutes(1.5)) AddHandler s1.OnTrigger, New ES.Invoke(AddressOf Schedule_OnTrigger) ES.Scheduler.AddSchedule(s1) '''****************************daily Schedule*************************''' Dim s2 As New ES.DailySchedule("Test_daily", DateTime.Now.AddSeconds(60)) ' Dim s2 As New ES.DailySchedule("Test_daily", DateTime.Now.AddMinutes(2)) AddHandler s2.OnTrigger, New ES.Invoke(AddressOf Schedule_OnTrigger) ES.Scheduler.AddSchedule(s2) ''''****************************Weekly Schedule*************************''' Dim s3 As New ES.WeeklySchedule("Test_Weekly", DateTime.Now.AddSeconds(80)) ' Dim s3 As New ES.WeeklySchedule("Test_Weekly", DateTime.Now.AddMinutes(2.5)) AddHandler s3.OnTrigger, New ES.Invoke(AddressOf Schedule_OnTrigger) ES.Scheduler.AddSchedule(s3) ''****************************Monthly Schedule*************************''' Dim s4 As New ES.MonthlySchedule("Test_Monthly", DateTime.Now.AddSeconds(20)) AddHandler s4.OnTrigger, New ES.Invoke(AddressOf Schedule_OnTrigger) ES.Scheduler.AddSchedule(s4) End Sub Private Sub Schedule_OnTrigger(ByVal strScheduleName As String) MessageBox.Show("ScheduleCallBack called from " + strScheduleName + " @ " + DateTime.Now.ToLongTimeString()) End Sub​

וכמו שאמרתי לדעתי הבעיה היא ביצירת אובייקט חדש כל פעם (s1,s2,s3......) אבל כאשר אני מנסה לצור אוביייקט אחד ולעשות השמה זה לא עובד אודה לכל עזרה אפשרית

 

[dorkatz]

הקוד שוב ב-vb

'Private Sub Schedule_OnTrigger(ByVal strScheduleName As String) ' MessageBox.Show("ScheduleCallBack called from " + strScheduleName + " @ " + DateTime.Now.ToLongTimeString()) 'End Sub Private Sub btnTest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTest.Click MessageBox.Show("Test will now create all all types of schedules ") ''****************************Interval Schedule*************************''' Dim s As New ES.IntervalSchedule("Test_Interval", DateTime.Now.AddSeconds(20), 45, TimeSpan.Zero, New TimeSpan(TimeSpan.TicksPerDay)) AddHandler s.OnTrigger, New ES.Invoke(AddressOf Schedule_OnTrigger) ES.Scheduler.AddSchedule(s) '****************************One Time Schedule*************************''' Dim s1 As New ES.OneTimeSchedule("Test_OneTime", DateTime.Now.AddSeconds(40)) AddHandler s1.OnTrigger, New ES.Invoke(AddressOf Schedule_OnTrigger) ES.Scheduler.AddSchedule(s1) '''****************************daily Schedule*************************''' Dim s2 As New ES.DailySchedule("Test_daily", DateTime.Now.AddSeconds(60)) AddHandler s2.OnTrigger, New ES.Invoke(AddressOf Schedule_OnTrigger) ES.Scheduler.AddSchedule(s2) ''''****************************Weekly Schedule*************************''' Dim s3 As New ES.WeeklySchedule("Test_Weekly", DateTime.Now.AddSeconds(80)) AddHandler s3.OnTrigger, New ES.Invoke(AddressOf Schedule_OnTrigger) ES.Scheduler.AddSchedule(s3) ''****************************Monthly Schedule*************************''' Dim s4 As New ES.MonthlySchedule("Test_Monthly", DateTime.Now.AddSeconds(20)) AddHandler s4.OnTrigger, New ES.Invoke(AddressOf Schedule_OnTrigger) ES.Scheduler.AddSchedule(s4) End Sub Private Sub Schedule_OnTrigger(ByVal strScheduleName As String) MessageBox.Show("ScheduleCallBack called from " + strScheduleName + " @ " + DateTime.Now.ToLongTimeString()) End Sub

 

[dorkatz]

נראה לי שסיבכתי עם הקוד

השאלה שלי איך אני עושה השמה לאובייקט ילד כאשר יצרתי אינסטנס אחד שילד אחר שלו ? כמו ב-c#

Schedule s = new IntervalSchedule("Test_Interval", DateTime.Now.AddSeconds(20), 45, TimeSpan.Zero, new TimeSpan(TimeSpan.TicksPerDay)); s = new OneTimeSchedule("Test_Onetime", DateTime.Now.AddSeconds(20));​

 

[dorkatz]

הסתדר