۱۸-دى-۱۳۹۱, ۲۳:۴۳:۲۸
چشم این رو هم مینویسم 
۱۸-دى-۱۳۹۱, ۲۳:۵۳:۵۷
(۱۸-دى-۱۳۹۱, ۲۳:۴۳:۲۸)h.unique نوشته است: [ -> ]چشم این رو هم مینویسمحسین عزیزم شروع نکن من آمادشه با بسکام دارم فقط می گردم پیداش می کنم
اینم با بسکام بفرما
۱۹-دى-۱۳۹۱, ۰۰:۱۴:۴۶
دیر گفتی دیگه نوشتمش
آقا رسول ببین همونی هستش که میخوای؟
برنامه:
اینم شبیه ساز:
![[تصویر: 2013_01_07_231127.jpg]](http://s2.picofile.com/file/7612150963/2013_01_07_231127.jpg)
موفق باشی...
آقا رسول ببین همونی هستش که میخوای؟
برنامه:
کد:
$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حالا به ارسال حسین نگاه کنین
نقل قول: ارسال شده توسط h.unique - امروز ۰۰:۱۴:۴۶تفاوت فقط یک ثانیه
۱۹-دى-۱۳۹۱, ۰۱:۰۹:۳۶
عالی بودن
ممنون هادی جان و حسین جان
حسین جان اگه لطف کنی همون برنامه اول که با پتانسیومتر و زبان سی هستش رو به زبان بیسیک هم بذاری (با همون پتانسیومتر) دیگه عالی تر میشه
بعدشم انتقالشون میدم پرتال
ممنون هادی جان و حسین جان
حسین جان اگه لطف کنی همون برنامه اول که با پتانسیومتر و زبان سی هستش رو به زبان بیسیک هم بذاری (با همون پتانسیومتر) دیگه عالی تر میشه
بعدشم انتقالشون میدم پرتال
۱۹-دى-۱۳۹۱, ۰۱:۴۲:۴۲
۱۹-دى-۱۳۹۱, ۰۱:۴۶:۳۱
(۱۹-دى-۱۳۹۱, ۰۱:۴۲:۴۲)h.unique نوشته است: [ -> ]جشم ولی چشمام دیگه مانیتور رو نمیبینه :(
راستش امروز هممون توی آنلاین بودن در ایرانویج رکورد زدیم
البته چند روزه که اینطوریه
عجله ای نیست حسین جان ... وقت زیاده
(۱۹-دى-۱۳۹۱, ۰۱:۴۲:۴۲)h.unique نوشته است: [ -> ]راستی مدار تغذیه رو بزارم براش یا نه؟
نه .. نمیخواد
۱۹-دى-۱۳۹۱, ۰۱:۵۸:۳۵
بفرمائید...
برنامه:
شبیه ساز:
![[تصویر: 2013_01_08_005557.jpg]](http://s3.picofile.com/file/7612257953/2013_01_08_005557.jpg)
خب..دستور؟؟
برنامه:
کد:
$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شبیه ساز:
خب..دستور؟؟
۱۹-دى-۱۳۹۱, ۰۲:۰۲:۲۶
(۱۹-دى-۱۳۹۱, ۰۱:۵۸:۳۵)h.unique نوشته است: [ -> ]خب..دستور؟؟
شما تاج سرین حسین جون
حسین جون و هادی جون من پستهاتون رو انتقال دادم بخش پرتال و با اجازتون کمی ویرایششون کردم:
http://www.iranled.com/forum/post-179109.html#pid179109
بازم ببینید اگه اشکالی داشت بگین تا دوباره ویرایشش کنم (یعنی متنشو خودتون بگین) ...
۱۹-دى-۱۳۹۱, ۱۳:۵۷:۵۸
۱۹-دى-۱۳۹۱, ۱۴:۴۸:۱۳