جناب حمید رضا رضایی لطفا به دلیل هاستینگ بالا و دادن پول هاستینگ از جیب خود تایپیک را حذف نمایید !
اطلاعیه
Collapse
No announcement yet.
کمک برای ساخت پالس مربعی
Collapse
X
-
پاسخ : کمک برای ساخت پالس مربعی
نوشته اصلی توسط QUARKخب این الان چه ربطی به Compare داره؟ #-o
تو یه وقفه ی تایمر میتونی مثلا بگی یه پایه 100 میکرو ثانیه روشن و 200 میکرو ثانیه خاموش باشه.
تازه میتونی هر فرکانسی رو (البته با در نظر گرفتن فرکانست) تولید کنی روی هر پایه ای.
امیدوارم خوب رسونده باشم.
پیشنهاد من برای کارای ساده این مد هستش ...
با فرض کریستال 8 و prescale = 8 فواصل زمانی ما 1 میکرو ثانیه میشه ( از تایمر کانتر 1 استفاده شده ) ....
حالا ما 500 هرتز می خوایم ، پس دوره ی تناوب ما 2 میلی ثانیه میشه و زمان high میشه نصفش که 1000 میکرو ثانیه
$regfile = "m32def.dat"
$crystal = 8000000
Config Timer1 = Timer , Compare A = Toggle , Prescale = 8 , Clear Timer = 1
compare1a= 1000
timer1 = 0
start timer1
do
loop
اینم سورس برنامه که ساده تر از سر ریز های تایمره :agree:زاویه ی نگاهتو عوض کن . . .
دیدگاه
-
پاسخ : کمک برای ساخت پالس مربعی
نوشته اصلی توسط QUARKدرست ولی شما دارید به زور از این روش استفاده میکنید.
بله من نمیگم همیشه انجام نمیشه. یه چیز بدیهیه و احتیاجی به گفتنش نیست.
کاره ساده و غیره ساده نررره که. باید اصولی کار کرد.
شما سوالی پرسیدی compare منم توضیح دادم
به تعداد آدم ها الگوریتم واسه نوشتن برنامه هست :agree:زاویه ی نگاهتو عوض کن . . .
دیدگاه
-
پاسخ : کمک برای ساخت پالس مربعی
آره چرا که نه عزیزم؟
کد:$regfile = "m8def.dat" $crystal = 8000000 '------------------------+++++++++++++++++++++++++++++-------------------------- Config Timer1 = Timer , Prescale = 8 Config Portb.0 = Input Config Portb.1 = Input Config Portb.2 = Output '------------------------<><><><><><><><><><><><><><><-------------------------- Dim A As Word , S As Long A = 1000 Enable Timer1 Start Timer1 '=====================*********************************========================= Do If Pinb.0 = 1 Then Incr A End If If Pinb.1 = 1 Then Decr A End If If Timer1 < A Then Portb.2 = 1 End If If Timer1 > A Then Portb.2 = 0 End If S = A * 2 If Timer1 = S Then Timer1 = 0 End If Loop End 'end program
مد compareهم میدونیم چیه. /?Why not
دیدگاه
دیدگاه