[سوال] کمک در مورد تابلو چرخشی led

[doost_el]

سلام
نشد
روشن که میکنی خوبه ولی تا موتور میره یه خورده دور بگیره دیگه گیرنده عمل نمی کنه یعنی رد شدن از مقابل فرستنده رو تشخیص نمی ده
اگه پتانسیومتر زیادتر کنم یه سره روشن می مونه حتی اگه فرستندش خاموش باشه
می گم دستور بهتر برا این کار چیه؟ من وارد نیستم از debounce pin x استفاده کردم

بازم سپاس

[doost_el]

کسی نیست یه کمکی به ما بده
با چه دستوری یاید سنسور را به میکرو بدم تا توی سرعت جواب بده ؟

دمتون گرم

[behzady]

شماتیک!
خوروجی رو به وقفه وصل کنید!

[doost_el]

سلام
تصویر شماتیک بلد نیستم بزارم ولی چیز خاصی نداره :
یه میکرو مگا 8 که بهش یه کریستال 8 مگا دادم
و بعدش 8 پایه پورت d رو یه ال ای دی ها وصل کردم تمام !
( البته تو این مدار ها قبیل هر led یه مقاومت میزارن که من دلیلش رو نمی دونم و من مقاومت نگذاشتم (دلیلش چیه؟) )
حالا تا اونجایی که من می دونم برای وقفه باید از پایه int که در مگا 8 در پورت d هست استفاده کرد
که من از پورت d چون هشتا پایه داشت برا خروجی led ها استفاده کردم
حالا توی این برنامه که پایین میزارم چجوری میشه متن رو روی پایه های پورت های مختلف یا دو پورت نشون داد ویا مثلا روی 10 پایه یه ده سطر :

Dim A As Byte , B1 As Byte , C As Integer , D As Byte
Config Portd = Output

Aaa:
Portd = 00
C = 0
For C = 1 To 10
Portd = 00
Restore Javad
For A = 1 To 82
Read B1 : Portd = B1
Waitus 950
Next
Next

الان d0 تا d7 میشه سطر یک تا هشت بعدش چجوری میشه ؟

شرمنده بازم طولانی شد

موفق باشید

[doost_el]

نـــبـــود ؟

[behzady]

نـــبـــود ؟

شما وقتی که به پورت دی وصل کردی چه جوری مینوشتی؟

[doost_el]

سلام
منظورتون متوجه نشدم
ولی توبرنامه بالا یه جا نوشته Javad
که اخر برنامه بعد از end یه زیربرنامه Javad هست که بالا ننوشتم
نمایش کلمه hello

Javad :

Data &H00, '0001 ........
Data &HFF, '0002 ########
Data &HFF, '0003 ########
Data &H18, '0004 ...##...
Data &H18, '0005 ...##...
Data &H18, '0006 ...##...
Data &H18, '0007 ...##...
Data &HFF, '0008 ########
Data &HFF, '0009 ########
Data &H00, '000A ........
Data &H00, '000B ........
Data &H00, '000C ........
Data &H00, '000D ........
Data &HFF, '000E ########
Data &HFF, '000F ########
Data &H99, '0010 #..##..#
Data &H99, '0011 #..##..#
Data &H99, '0012 #..##..#
Data &H99, '0013 #..##..#
Data &H00, '0014 ........
Data &H00, '0015 ........
Data &H00, '0016 ........
Data &H00, '0017 ........
Data &HFF, '0018 ########
Data &HFF, '0019 ########
Data &HC0, '001A ##......
Data &HC0, '001B ##......
Data &HC0, '001C ##......
Data &HC0, '001D ##......
Data &H00, '001E ........
Data &H00, '001F ........
Data &H00, '0020 ........
Data &H00, '0021 ........
Data &HFF, '0022 ########
Data &HFF, '0023 ########
Data &HC0, '0024 ##......
Data &HC0, '0025 ##......
Data &HC0, '0026 ##......
Data &HC0, '0027 ##......
Data &H00, '0028 ........
Data &H00, '0029 ........
Data &H00, '002A ........
Data &H00, '002B ........
Data &HFF, '002C ########
Data &HFF, '002D ########
Data &HC3, '002E ##....##
Data &HC3, '002F ##....##
Data &HC3, '0030 ##....##
Data &HC3, '0031 ##....##
Data &HFF, '0032 ########
Data &HFF, '0033 ########
Data &H00, '0034 ........
DaData &H00, '0057 ........

یه جا توی برنامه اصلی که در پست قبلی نوشتم ، نوشته :
Read B1 : Portd = B1
تو این خط چجوری میشه به جای Portd ، پین پورت های مختلف نوشت ؟ میشه ؟
.

[behzady]

یه تابع بنویس که b1 رو با 1 and کنه حاصل میشه حالت پین اول
بعد با 2
حاصل پین دوم
بعد با 4
حاصل پین سوم
تا 2^7 که میشه پین هشتم

---

حاصل هم صفر و یکه مستقیم میتونی به حالت پین نسبت بدی

---

کد:

Porta.0 = B1 And &B00000001
Porta.1 = B1 And &B00000010
Porta.2 = B1 And &B00000100
Porta.3 = B1 And &B00001000
Porta.4 = B1 And &B00010000
Porta.5 = B1 And &B00100000
Porta.6 = B1 And &B01000000
Porta.7 = B1 And &B10000000

جای porta ها هر پینی که میخوای بنویس

[behzady]

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

[Pixar]

سلام دوستان :

روشی که شما برای این کار در پیش گرفتید صحیح نیست ... !

من در این سایت اطلاعات نسبتا" مفصلی رو در مورد نحوهء ساخت و برنامه نویسی همراه با دو نمونه برنامهء ساده با سورس کامل و همچنین فیلم از نحوهء عملکرد مدار ارائه کردم که میتونید ببینید .