راهنمايي در زمينه كنترل PWM با ولوم يا مقاومت متغير؟

[aKaReZa75]

چشم این رو هم مینویسم

[hadikh73]

چشم این رو هم مینویسم

حسین عزیزم شروع نکن من آمادشه با بسکام دارم فقط می گردم پیداش می کنم

---

اینم با بسکام بفرما

[aKaReZa75]

دیر گفتی دیگه نوشتمش
آقا رسول ببین همونی هستش که میخوای؟

برنامه:

کد:

$regfile = "m16def.dat"
$crystal = 8000000

Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 8
Config Porta = Input
Config Portc = Output
Config Pind.6 = Output

Dim A As Word
Dim B As Word

Do
If Pina.0 = 1 Then A = A + 3
If Pina.1 = 1 Then A = A - 3
If A > 1023 And A < 2000 Then A = 1023
If A < 65535 And A > 65000 Then A = 0
Pwm1a = A
B = A / 100
Portc = B
Print "a:" ; A
Waitms 1
Print "b:" ; B
Waitms 1
Loop

End 'end

اینم شبیه ساز:


موفق باشی...

[hadikh73]

نگاه کنین به ارسال من

آخرین ویرایش در این ارسال: امروز ۰۰:۱۴:۴۵، توسط hadikh73

حالا به ارسال حسین نگاه کنین

ارسال شده توسط h.unique - امروز ۰۰:۱۴:۴۶

تفاوت فقط یک ثانیه

[رسول]

عالی بودن

ممنون هادی جان و حسین جان


حسین جان اگه لطف کنی همون برنامه اول که با پتانسیومتر و زبان سی هستش رو به زبان بیسیک هم بذاری (با همون پتانسیومتر) دیگه عالی تر میشه

بعدشم انتقالشون میدم پرتال

[aKaReZa75]

جشم ولی چشمام دیگه مانیتور رو نمیبینه :(
سعی میکنم تا چند ده دقیقه ی دیگه تمومش کنم.
راستی مدار تغذیه رو بزارم براش یا نه؟

[رسول]

جشم ولی چشمام دیگه مانیتور رو نمیبینه :(

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

البته چند روزه که اینطوریه

عجله ای نیست حسین جان ... وقت زیاده

---

راستی مدار تغذیه رو بزارم براش یا نه؟

نه .. نمیخواد

[aKaReZa75]

بفرمائید...

برنامه:

کد:

$regfile = "m16def.dat"
$crystal = 8000000

Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 8
Config Adc = Single , Prescaler = Auto
Config Portc = Output

Dim A As Word
Dim B As Word

Start Adc

Do
A = Getadc(0)
Pwm1a = A
B = A / 100
Portc = B
Loop

End 'end program

شبیه ساز:


خب..دستور؟؟

[رسول]

خب..دستور؟؟

شما تاج سرین حسین جون

---

حسین جون و هادی جون من پستهاتون رو انتقال دادم بخش پرتال و با اجازتون کمی ویرایششون کردم:

http://www.iranled.com/forum/post-179109.html#pid179109

بازم ببینید اگه اشکالی داشت بگین تا دوباره ویرایشش کنم (یعنی متنشو خودتون بگین) ...

[رسول]

حسین جان من این قسمت رو که به سون سگمنت میده رو متوجه نمیشم!!

کد php:

B = A / 100
Portc = B 


[kamran0080]

سلام دوستان عزیز خسه نباشید پروژه فوق العاده ای ممنونم هادی جان و حسین جان .
بنظر شما میتونم از این برای کنترل سرعت مسیر یاب استفتاده کنم ؟ البته به همین برنامه مسیر یابم اضافه کنم . منتها بجای اینکه رباتم اتوماتیک سرعت رو تنظیم کنه خودم تنظیم کنم . به همین ولوم .

---

تا یادم نرفته بگم میخواستم مطلبتونو کپی کنم . خواستم اجازه بگیرم