ایجاد زمان دقیق با تایمر avr

[moostafa]

سلام به همگی
چجوری میشه توی Bascom با استفاده از تایمر avr زمانی با دقت میلی ثانیه به دست اورد و در جاهای مختلف برنامه این زمان رو با یه متغیر از جنس Single مقایسه کنیم و به محض اینکه زمان از این متغیر بیشتر شد تایمر متوقف بشه.
مثلا هر وقت تایمر از 6.214ثانیه بیشتر شد متوقف بشه و portd.7 رو set کنه.
(اگه از کریستال ساعت ( 32768 Hz ) استفاده کنیم حداکثر دقت در حدود ثانیه است.)
با تشکر

:eek:

[حمیدرضا رضایی]

پاسخ : ایجاد زمان دقیق با تایمر avr

(اگه از کریستال ساعت ( 32768 Hz ) استفاده کنیم حداکثر دقت در حدود ثانیه است.)
با تشکر
:eek:

کی همچین چیزی گفته؟
زمان های در حد میلی ثانیه که رو شاخشه.
شما برنامتو بزار ببینیم چی کار کردی؟.در ضمن مبحث تایمر و کانتر رو خوب بخون.

[shahinbahari]

پاسخ : ایجاد زمان دقیق با تایمر avr

حق با آقا حمیده.این کریستال که به کریستال ساعت معروفه تا میلی ثانیه رو راحت جواب میده. :agree:
تازه اگه از تایمر با اسیلاتور خود میکرو استفاده کنید که تا میکرو ثانیه هم میشه.
اگه میخواید زیاد درگیر تایمر ها نشید از یه چیپ ساعت استفاده کنید .این چیپ ها دقتی در حد میلی ثانیه دارند.البته باید دید که این چیپ تو مدارتون لازمه یا نه! چون اگه فقط برای این کار بخواید , استفاده از تایمر میکرو بهتر و آسون تره.

[moostafa]

پاسخ : ایجاد زمان دقیق با تایمر avr

بازم سلام
برناممو گذاشتم .یه نیگاهی بهش بندازین ثواب داره.
متشکرم
http://qooy.com/files/1D6ED4AHYC/Timer.rar

[moostafa]

پاسخ : ایجاد زمان دقیق با تایمر avr

سلام
کسی نیگاش کرد؟ :eek:

[moostafa]

پاسخ : ایجاد زمان دقیق با تایمر avr

:cry:
هیشششششکی منو دوس نداره.
چرا همه میخونن ولی جواب نمیدن؟؟ :eek:

[حمیدرضا رضایی]

پاسخ : ایجاد زمان دقیق با تایمر avr

:cry:
هیشششششکی منو دوس نداره.
چرا همه میخونن ولی جواب نمیدن؟؟ :eek:

من که با پیغام خصوصی جوابت رو دادم!

[moostafa]

پاسخ : ایجاد زمان دقیق با تایمر avr

سلام
برنامه زیر دقتش در حد میلی ثانیه است اما خطا دارد در حد 20 میلی ثانیه در پروتئوس اما در عمل حدود 120 میلی ثانیه.
ایا راهی برای افزایش دقت ان وجود دارد؟

$

regfile = "m32def.dat"
$crystal = 8000000

Ddrd.0 = 1
Ddrc.0 = 1

Config Lcdpin = Pin , Db4 = Pinb.4 , Db5 = Pinb.3 , Db6 = Pinb.2 , Db7 = Pinb.1 , Rs = Pinb.6 , E = Pinb.5
Config Lcd = 16 * 2 : Cursor Off : Cls

Dim A As Word , B As Single
Config Single = 3
Config Timer2 = Timer , Async = On , Prescale = 1
Enable Interrupts
Enable Timer2
On Timer2 K
Timer2 = 223
Start Timer2

Do
Home
Lcd "Going..."
If A >= 3664 Then : Goto J : End If
Loop


K:
Timer2 = 223
Incr A
Toggle Portd.0
Return
J:
Cls
B = A
B = B / 1000
Lcd Fusing(b , "#.###&quot
Set Portc.0
End

ممنونم