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

[ehsanshaieste]

سلام بر همه دوستان :smile:
امیدوارم تو این تاپیک بتونیم شاهد یه بحث داغ در مورد فرستنده گیرنده مادون قرمز باشیم :job:
بنده خودم در این زمینه تازه کار هستم :icon_razz:، لذا از همه دوستان،مهدسین و متخصصان خواهش می کنم سوالات،نظرات و تجربه هاشون رو اینجا بگن تا ان شا الله همه استفاده کنیم. :applause:
واسه اینکه بحثامون به بیراهه نره پیشنهاد می کنم اول از همه از لینک زیر پروژه ریموت کتاب "10 پروژه با avr " رو که دوست عزیزم آقای نجفی زحمت کشیدن و پلودش کردن رو بگیرید تا یه منبع واحد داشته باشیم.
http://www.eca.ir/forum2/index.php?topic=25237.0
برنامه اونو مطالعه کنیم تا دستوراتی رو که تو ارتباط سریال استفاده میشه و شاید واسه خیلی ها مثل خود من جدید باشه رو ببینیم و سوالامونو مطرح کنیم و دوستانی که کار کردن و تجربه دارن جواب بدن :applause:
تو مرحله بعد یه پروژه ساده تر از اون پروژه که تو کتاب هست (پیشنهادم رو تو پست های بعدی میگم) بر اساس همون مدارای تو کتاب تعریف کنیم و ان شاالله با هم پیش بریم. :agree:

[ehsanshaieste]

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

فکر می کنم اول از فرستنده و برنامش شروع کنیم
$regfile = "at26def.dat"
$crystal = 8000000
Config Porta = Input
Config Portb = Input
Open "COMb.4:2400,8,n,1,inverted" For Output As #2
Config Int0 = Low Level
Enable Interrupts
Enable Int0
On Int0 Ex0_int
Dim B As Bit
Dim C As Bit
Dim A1 As Byte
Dim A2 As Byte
'==============
Do
Powerdown
Loop
End
'**************
Ex0_int:
C = 1
B = 0
A1 = Pina
A2 = Pinb
A2 = A2 And &B00101111
If A2 = &H00 Then
B = 1
Select Case A1
Case 1:
Printbin #2 , 7
Case 2:
Printbin #2 , 4
Case 4:
Printbin #2 , 1
Case 8:
Printbin #2 , 10
Case 16:
Printbin #2 , 2
Case 32:
Printbin #2 , 3
Case 64:
Printbin #2 , 12
C = 0
Case 128:
Printbin #2 , 9
Case Else
B = 0
End Select
End If
'----------------
If A1 = &H00 Then
B = 1
Select Case A2
Case 1:
Printbin #2 , 13
Case 2:
Printbin #2 , 11
C = 0
Case 4:
Printbin #2 , 8
Case 8:
Printbin #2 , 5
Case 32:
Printbin #2 , 6
Case Else
B = 0
End Select
End If
If B = 1 Then Waitms 40
If C = 0 Then Waitms 40
Return

[ehsanshaieste]

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

اینم عکس مدار فرستنده که تو اون پروژه استفاده شده :

[ehsanshaieste]

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

سوال اول رو خوم میپرسم :icon_razz:
مفهوم پارامترهای دستورات زیر که ظاهرا مربوط به سریال میشه چیه

Open "COMb.4:2400,8,n,1,inverted" For Output As #2
و
Printbin #2 , 7

[majid.4206]

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

ای کاش به زبون شیرین C بود تا ما هم میفهمیدیم

[ehsanshaieste]

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

جناب majid.4206 شما میتونید از مدارات و توضیحاتی که انشا الله بحث خواهد شد استفاده کنید و کدش رو بر اساس الگوریتمی که اینجا هست تو c بنویسین :smile:

[ardavanzzz]

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


اقا احسان ممنون. :agree:
بسیاربحث جالبیه.
منتظر همکاریه دوستانی که توی این زمینه کار کردن هستیم :applause:

[_e_]

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

Open "COMb.4:2400,8,n,1,inverted" For Output As #2
و
Printbin #2 , 7

سلام
استفاده از دستور Open به این شکل، برای تعریف پورت سریال نرم افزاریه. یعنی اینکه رویه پایه شماره 4 از پروت B با نرخ 2400، به صورت 8 بیت، بدون Parity و 1 بیت برای Stop به صورت خروجی یک پورت سریال رو شبیه سازی میکنه که به اون شماره یا عدد 2 رو اختصاص می ده. لفظ Inverted برای مشخص شدن سطوح ولتاژ برای بیان بیتهاست و همچنین در زمان Idle وضعیت پایه مشخص می شه. دستور بعدی عدد 7 رو به صورت باینری به پورت شماره 2 ارسال می کنه که در اینجا همون پورت خروجی سریال شبیه سازی شده است. اگر به صورت باینری ارسال نکنه یعنی به شکل زیر باشه:

Print #2,7

اونوقت سه تا بایت ارسال می شه. یکی کاراکتر 7 در کد ASCII که مقدار واقعیش فکر کنم 55 و دوبایت بعدی کد 13 و 10 که برای رفتن به خط بعدیه که در محیط ترمینال کاربرد داره.
موفق باشی

[ehsanshaieste]

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

منظور از پورت شماره 2 چیست؟
این شماره "2" از کجا اومده؟

[ma_bazrafshan]

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

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

[vahids]

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

اصلا فکرش را هم نکن که برای این فاصله از IR استفاده کنی. ولی اگه دید مستقیم داری من یه طرحی دارم که میتونه به دردت بخوره. :nice:

در ضمن اون عدد 2 منظور اینه که دو تا پورت سریال داریم و برای همین هر پورت باید اسم خودش رو داشته باشه. که این یکی 2 است.

[ma_bazrafshan]

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

اقا ممنون از جوابتون
ببینید اگه مثلا دید مستقیم باشه میشه کاری کرد؟برا این فاصله؟

[vahid-elect]

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

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

[ma_bazrafshan]

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

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

[_e_]

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

منظور از پورت شماره 2 چیست؟
این شماره "2" از کجا اومده؟

سلام
عدد 2 اختیاریه و هر عدد دیگه می شه جای اون گذاشت و فقط کارش اختصاص یک کانال به پورت سریال مجازیه شماست. مثل یک نام برای یک متغیر.
موفق باشی