سلام
من برای یه مگا8 برنامه پایین رو نوشتم، قراره که با گذشت یک دقیقه از شروع به کار میکرو یک پین (دی 2 ) یک بار خاموش و روشن ، با گذشت 2 دقیقه دو بار خاموش و روشن و الی آخر بشه
من یک کریستال ساعت رو به میکرو وصل کردم و فیوزبیت های اونو روی کریستال داخلی 8مگا هرتز تنظیم کردم .
مشکل اینجاست که برنامه هیچوقت به تابع p پرش نمیکنه
به نظر شما اساتید مشکل از کجاست؟
[PHP]$regfile = "m8def.dat"
$crystal = 8000000
Config Portd = Output
Config Timer2 = Timer , Async = On , Prescale = 128
Dim W As Byte
Dim A As Byte
Dim I As Byte
Set Portd.2
Wait 1
Reset Portd.2
Enable Interrupts
Enable Ovf2
On Ovf2 P
Start Timer2
Do
Loop
P:
W = W + 1
If W < 59 Then
Return
Else
W = 0
I = I + 1
A = 0
Do
Set Portd.2
Wait 1
Reset Portd.2
Wait 1
A = A + 1
Loop Until A = I
End If
Return
[/PHP]