این یه برنامه فلاشر هستش که از 2 تا وقفه میکرو استفاده شده که برای کم و زیاد کردن سرعت فلاشر از وقفه استفاده کردیم.
اگه فایل پروتئوسش رو هم خواستی به این تایپک یه سری بزن: مهمان عزیز شما حق دیدن لینک ها را ندارید
عضویت
$regfile = "M16def.dat"
$crystal = 8000000
Config Porta = Output
Config Int0 = Falling
Config Int1 = Falling
Enable Interrupts
Enable Int0
Enable Int1
On Int0 Updelay
On Int1 Downdelay
Dim A As Byte , X As Byte
Dim B As Byte
Dim Delay1 As Word
B = 0
Delay1 = 500
Do
For A = 0 To 13
Porta = Lookup(b , Efect1)
Incr B
Waitms Delay1
Next A
X = 0
Do
B = &B00000001
For A = 0 To 15
Porta = B
Rotate B , Left
Waitms Delay1
Next A
B = 0
incr x
Loop Until X = 3
X = 0
Do
For A = 0 To 11
Porta = Lookup(b , Efect2)
Incr B
Waitms Delay1
Next A
B = 0
Incr X
Loop Until X = 3
Loop
End
Updelay:
Delay1 = Delay1 + 100
Return
Downdelay:
Delay1 = Delay1 - 100
Return
Efect1:
Data &B10000001
Data &B11000011
Data &B11100111
Data &B11111111
Data &B11100111
Data &B11000011
Data &B10000001
Data &B11000011
Data &B11100111
Data &B11111111
Data &B11100111
Data &B11000011
Data &B10000001
Efect2:
Data &B10000001
Data &B10000010
Data &B10000100
Data &B10001000
Data &B10010000
Data &B10100000
Data &B11000000
Data &B10100000
Data &B10010000
Data &B10001000
Data &B10000100
Data &B10000010
Data &B10000001