timer kullanımı

[ayhantemizkan]

arkadaşlar sormak istediğim şeyşu
pbp ile timer set etmek nasıl yapılıyor ..
mesela programın bir yerinde timer'i 20 saniye olarak belirleyecem ve program başka işlerle meşgul olacak . 20 saniye dolunca programnerde olursa olsun istediğim label'a gitsin istiyorum. yardımlarınızı bekliyorum teşekkürler

[james]

option_reg=$55
intcon=$a0
on interrupt goto kesme
...
..
...
kesme:sayac=sayac+1
if sayac<61 then cık
sayac=0
saniye =saniye+1
if saniye=20 then (gitmek istediğin adres)
cık:intcon.2=0
resume

[sguykan]

Timer konusu ile ilgili benden de başka bir cevabını bulamadığım bir soru:
16F877 lerde 3 timer var deniyor. Bu nedemek? Acaba 3 ayrı zamanlamamı çalışıyor aynı zamanda eğer böyle ise bunu nasıl kullanacağım.

[mmengi]

3 ayrı timer bir birinden bağımsız olarak çalışmaktadır. kullanılacak yere göre timer set edilmelidir.

tmr0: 8bit
tmr1: 16bit
tmr2: 8bit

bu timer sadece zaman geciktirmesi için değil bir çok amaç için kullanılabilir. CCP veya PWM kontrolü gibi, önemli olan ne amaç için kullanılacağı.

[oki]

özellikle cevap yazdığınız için teşekkür ederim

yazdığınız programı denemek amacıyla  aşağıdaki küçük deneme programı ile desdnedim  fakat portb.3 teki led yanıyo bidaha sönmüyo ?

thanks a lot.......

sayac var byte
saniye var byte
option_reg=$55
intcon=$a0
on interrupt goto kesme

basla:
high portb.3
pause 500
low portb.3
pause 500
goto basla

loop:
low portb.3
high portb.2
pause 2000
low portb.2
pause 1000
goto basla

kesme:
sayac=sayac+1
if sayac<61 then cik
sayac=0
saniye =saniye+1
if saniye=20 then loop'(gitmek istediğin adres)
cik:intcon.2=0
resume

[james]

şunu bi dene


sayac var byte
saniye var byte
i var byte
option_reg=$05
intcon=$a0
on interrupt goto kesme

basla:
high portb.3
for i=1 to 50
pause 10
next i
low portb.3
for i=1 to 50
pause 10
next i
goto basla

loop:
saniye =0
low portb.3
high portb.2
for i=1 to 100
pause 10
next i
low portb.2
for i=1 to 100
pause 10
next i
goto basla
disable
kesme:
sayac=sayac+1
if sayac<61 then cik
sayac=0
saniye =saniye+1
if saniye=20 then loop
cik:intcon.2=0
resume
end