كار با pwm

[alef_avr]

سلام بر همه دوستان مي خواستم ببينم مي توانم با pwm فركانس 40 كيلو هرتز بسازم هر چه سعي كردم با كريستال 8مگ تا 16 كيلو هرتز بيشتر نتوانستم بدست بياورم
دوم اينكه چطور مي توانم اين خروحي رو تبديل به ولتاز دي سي كنم
سوم اينكه مثله امكان داره بتونم در مدت 1 ثانيه يك موج با فركانس 40 كيلو هرتز ايحاد كنم كه كه از 0 ولت به 4 ولت برسه و دوباره از ثانيه بعد از نو
شروع بشه ؟ به زبون ساده تر يه فركانس 40 كيلو مي خوام كه به تناوب ظرف هر ثانيه از 0 ولت به 4 ولت برسه؟
من اين بر نامه رو نوشتم ولي مشكلش اينه كه فركانسش حدودا 5 هرتز است
$crystal = 8000000
$regfile = "m8def.dat"
Dim A As Word
Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Down , Prescale = 1024
A = 1
Pwm1a = 1
Pwm1b = 1
Do
For A = 1 To 1000
Pwm1a = A
Pwm1b = A
Next
Loop
End
با تشكر

[1nafar]

سلام
1- شما اختمالا فیوز بیت مربوط به کریستال رو تنظیم نکردید ( چند تا بحث پایین تر یکی از دوستان طریقه تنظیم رو گفته ( شما کریستال رو از میکرو جدا کن اگه کار نکرد فیوز بیت درست تنظیم نشده)
2- با استفادهازop-amp شما باید مدار دیود ایدال رئ ببندی ( توی کتاب الکترونیک هنرستان هست )( اگه نداشتیبگو تا عکسش رو بذارم)
3-با انتخاب کریستال صحیح همه چیز حله
4- توی برنامه شما باید دوتا پایه مربوط به pwm رو به عنوان حروجیتعریف کنی و با تغیر پرسکلیر وبیت pwm میتونی فرکانشس رو تغییر بدی ( توی help بسکام گزینه " pwm" رو جستجو کن

[alef_avr]

دوست عزيز از توجه شما ممنون
ميشه اون عكس رو بزاريد با زهم از توجه شما ممنون