در مورد PWM

[hossein_edison]

سلام
من یه برنامه نوشتم که موج pwm رو کم و زیاد کنم اما نشد.
اگه میشه کمک کنید

$regfile "m32def.dat"
$crystal = 8000000
Config Timer1=Pwm ,Pwm=8 ,compare A Pwm=ciear down,

Prescale=64
Enable Timer1
start Timer1
Dim P As Byte
P = 0
Do
If Porta.0 = 0 Then Incr P
If Porta.1 = 0 Then Decr P
P = P * 10
If P < 10 Then P = 10
If P > 200 Then P = 200
Pwm1a = P
Loop

End

[khast khodaiebehnam]

پاسخ : در مورد PWM

حسین جان
1.پین شa.0 a.1 رو به عنوان ورودی معرفی نکردی
2. باید تو برنامه بنویسی pina.0 و نوشتن port به عنوان ورودی غلطه

[hossein_edison]

پاسخ : در مورد PWM

ابن یکی رو بخیال بگو بعدش چی میشه.من برنامه رو کامل نوشتم ولی پروتئوس اونو اجرا نکرد.

[khast khodaiebehnam]

پاسخ : در مورد PWM

تو پروتوس نباید مقاومت پول اپ بزاری و گر نه کارت رو خراب میکنه
در ضمن هیچ چی مثل عمل نمیشه به نظرمن

[hossein_edison]

پاسخ : در مورد PWM

من با پول پ کردن مشکل ندارم تا حالا خوب بوده در مود عملی بودن که 100%.
و خلاصه اینکه برنامه به این شکل شد:
$regfile "m32def.dat"
$crystal = 8000000
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Prescale = 64
Config Porta = Input
Enable Timer1
start Timer1
Dim P As Long , W As Long

W = 0
Do
If Pina.0 = 0 Then Incr W
If Pina.1 = 0 Then Decr W

P = W * 100
If W < 10 Then W = 10
If W > 1000 Then W = 1000
Pwm1a = P
Loop

End

از پل H استفاده میکنم.هر چه مقدار رو کم وزیاد میکنم هیچ تاثیری نداره.رو اسیلوسکوپ هم تغییری نمیکرد.اشکال از کجاست؟ من میخوام یه ماژول برای کارگاه بسازم برا آموزش.لطفا کمک کنید.من دیدم که با زبون C راحت این کار رو کردن.نمونش هم یکی از کارهای آقای محمدی بود.

دمتون گرم