بحث و تبادل نظر پیرامون فرستنده و گیرنده مادون قرمز

[حمید نجفی]

پاسخ : بحث و تبادل نظر پیرامون فرستنده و گیرنده مادون قرمز

سلام
ببینید یه کاری به من پیشنهاد شده که باید با استفاده از این فرستنده ها از فاصله 2 کیلومتری به یه ماژول فرمان بدم و رله 12 تا دستگاه رو کنترل کنم
به نظر شما میشه تا این فاصله کار کرد؟از RF نباید استفاده کنم فقط باید IR باشه

جان ن ن ن ن ن ن ن :eek:
چند کیلومتر؟ :eek:
با IR ؟
این موضوع مثل پدیده رسیدن به سرعت نور بود. :mrgreen:
فقط RF میتونه مشکلت رو حل کنه.
درباره مدار اون کتاب باید بگم که این مدار آموزشی هست.باید تولید 4 کیلوهرتز رو به داخل میکرو ببرید که قسمت 555 و قطعاتش حذف بشه.
من فقط با یک ATTiny 2313 خالی 10 کانال طراحی کردم.فقط یک میکرو با کریستالش و یک خازن با 10 کلید.

[ardavanzzz]

پاسخ : بحث و تبادل نظر پیرامون فرستنده و گیرنده مادون قرمز

دستور بعدی عدد 7 رو به صورت باینری به پورت شماره 2 ارسال می کنه که در اینجا همون پورت خروجی سریال شبیه سازی شده است.

سلام.
میخواستم بپرسم این کد 7 رو که ارسال کردیم دلبخواهی هست یا بستگی به چیزه دیگه ای داره؟
این کد توی گیرنده آشکار میشه دیگه؟

[ehsanshaieste]

پاسخ : بحث و تبادل نظر پیرامون فرستنده و گیرنده مادون قرمز

آره واقعا چرا؟!!!!!!!
این سوال منم هست.

[ehsanshaieste]

پاسخ : بحث و تبادل نظر پیرامون فرستنده و گیرنده مادون قرمز

کسی جواب نمیده؟ :cry2:

[_e_]

پاسخ : بحث و تبادل نظر پیرامون فرستنده و گیرنده مادون قرمز

سلام
دوست عزیز ارسال عدد 7 جزء منطق برنامه است و کسی که برنامه رو نوشته باید بگه که چرا این کار رو کرده؟ فکر کنم این برنامه کار حمید نجفی باشه. اگر درسته حمید آقا شما توضیح بدین. ممنون
موفق باشی

[ardavanzzz]

پاسخ : بحث و تبادل نظر پیرامون فرستنده و گیرنده مادون قرمز

ممنون از جواب دوستان.
یه سوال دیگه:
علت استفاده از دستور if در پایان برنامه چیه؟چه نیازی به وقفه زمانی بوده؟

[ardavanzzz]

پاسخ : بحث و تبادل نظر پیرامون فرستنده و گیرنده مادون قرمز

کسی نیست جواب بده؟
:cry2:

[amihomo]

پاسخ : بحث و تبادل نظر پیرامون فرستنده و گیرنده مادون قرمز

برای آشنایی با مبانی تئوری سیستمهای مادون قرمز پست زیر را ببینید :


http://www.eca.ir/forum2/index.php?topic=28149.msg135434#msg135434

[ehsanshaieste]

پاسخ : بحث و تبادل نظر پیرامون فرستنده و گیرنده مادون قرمز

سلام مجدد خدمت تمام دوستان
با تشکر از تمام دوستانی که تو این پست جواب سوالامونو دادن :applause: و تشکر از اونایی که جواب ندادن :cry2:
به ذهنم رسید واسه اینکه کار بهتر پیش بره یه پروژه کوچولو تعریف کنیم هر کس دوست داره انجام بده و برنامه پیشنهادی هامونو اینجا بذاریم(فرستنده و گیرنده)
و خلاصه تجربیاتمونو با هم به اشتراک بذاریم :agree:
دوستانی هم که فکر میکنن یه همچین پروژه ای خیلی ساده و به اصطلاح گلابی هست :icon_razz: ما رو از نظراتشون محروم نکنن :agree:
اینم پروژه:
یک keypad تو قسمت فرستنده و lcd تو قسمت گیرنده
میخوایم هر کلیدی که در قسمت فرستنده زده شد تو قسمت گیرنده رو lcd نشون بده :redface:
تو فرستنده از همون مداری استفاده کنیم که اول همین تاپیک قرار دادم(atiny26و555) فقط میخوایم به جای اون کلیدا یه keypad وصل کنیم.
گیرنده هم که سخت افزار خاصی نداره (یه lcd یه mega16 و گیرنده مادون قرمز که به پایه rxd وصل میشه)

[ardavanzzz]

پاسخ : بحث و تبادل نظر پیرامون فرستنده و گیرنده مادون قرمز

منتظر پاسخ دوستان هستیم :applause:

[ehsanshaieste]

پاسخ : بحث و تبادل نظر پیرامون فرستنده و گیرنده مادون قرمز

من خودم تا فردا برنامه ای که تو ذهنم هست رو میذارم اینجا :agree:

[ehsanshaieste]

پاسخ : بحث و تبادل نظر پیرامون فرستنده و گیرنده مادون قرمز

اردوان جان خوشحال میشیم تو هم برنامه پیشنهادی خودت رو بذاری

[ardavanzzz]

پاسخ : بحث و تبادل نظر پیرامون فرستنده و گیرنده مادون قرمز

خواهش میکنم احسان جان.استاد ما هستید اما چشم منم سعی میکنم برنامه فرستندش رو بنویسم با کمک دوستان تکمیلش کنیم و بعدم برنامه گیرنده :rolleyes:

[ardavanzzz]

پاسخ : بحث و تبادل نظر پیرامون فرستنده و گیرنده مادون قرمز

سلام.اینم برنامه فرستنده با کی پد:


$regfile = "attiny26.dat"
$crystal = 8000000
Config Kbd = Porta , Debounce = 50 , Delay = 100
Open "COMb.4:2400,8,n,1,inverted" For Output As #2
Enable Interrupts
Dim B As Bit
Dim C As Bit
Dim A1 As Byte
Dim A2 As Byte
'**************
Do

Main:
A1 = Getkbd()
A1 = Lookup(a1 , Readkey)
If A1 > 15 Then
Goto Main
Else
B = 1
Select Case A1
Case 1:
Printbin #2 , 1
Case 2:
Printbin #2 , 2
Case 3:
Printbin #2 , 3
Case 4:
Printbin #2 , 4
Case 5:
Printbin #2 , 5
Case 6:
Printbin #2 , 6
Case 7:
Printbin #2 , 7
Case 8:
Printbin #2 , 8
Case 9:
Printbin #2 , 9
Case 10:
Printbin #2 , 10
Case 11:
Printbin #2 , 11
Case 12:
Printbin #2 , 12
Case 13:
Printbin #2 , 13
Case 14:
Printbin #2 , 14
Case 15:
Printbin #2 , 15
B = 0
End Select
End If
If B = 1 Then Waitms 40

Loop
End
""""""""&q uot;"""""""&quo t;"""""""" """""""&quot ;

Readkey:
Data 13 , 14 , 0 , 15 , 12 , 9 , 8 , 7 , 11 , 6 , 5 , 4 , 10 , 3 , 2 , 1

[ehsanshaieste]

پاسخ : بحث و تبادل نظر پیرامون فرستنده و گیرنده مادون قرمز

منم این برنامه رو واسه گیرنده نوشتم :icon_razz: دوستان نظراشونو بگن :applause:

$regfile = "m16def.dat"
$crystal = 11059200
$baud = 9600
Config Lcdpin = Pin , Db4 = Pinb.4 , Db5 = Pinb.5 , Db6 = Pinb.6 , Db7 = Pinb.7 , Rs = Pinb.3 , E = Pinb.2
Config Lcd = 16 * 2
Enable Interrupts
Enable Urxc
On Urxc Receive
Dim A As Byte
Do
Cls
Lcd A
Loop
End
Receive:
A = Udr
Return