مشکل در TIMER 2 میکرو

[علیدلی]

[/align]
سلام دوست عزیز
ممنومن از راهنمایی که کردید.
من تغییرات رو دادم .و برنامه رو با تایمر0 نوشتم .مشکلی که الان داره دقیق نیست .مثلا باید 5 ثانیه بعد پین فعال بشه .90ثانیه بعد فعال میشه ...
باید 15 ثانیه بعد پین غیر فعال بشه 100 ثانیه بعد غیر فعال میشه

برا مدارم از کریستال خارجی استفاده نکردم وکریستال داخلی رو روی 1MHZ گذاشتم

ممنونم در این زمینه راهنمایی بفرماید.
هدف از این برنامه فعال کردن 1 پین،، هر روز میباشد که به مدت مثلا 30 دقیقه فعال بشه و بعد از 30 دقیقه غیر فعال بشه .
Config Timer0 = Timer , Prescale = 1024

Enable Interrupts
On Ovf0 Label
Enable Timer0
Start Timer0

Dim S As Byte , M As Byte , H As Byte , T As Byte
H = 23 : M = 59 : S = 10


Label:

Incr T
If T > 35 Then
Incr S
If S > 59 Then
S = 0 : Incr M
End If
If M > 59 Then
M = 0 : Incr H
End If
If H > 23 Then
H = 1
End If
T = 0
End If
Timer2 = 0

If H = 23 And M = 59 And S = 20 Then

Set Portb.4

Else

If H = 23 And M = 59 And S = 30 Then


Reset Portb.4
End If
End If
Return