infrared

[agape]

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

[agape]

من هنوز اینجام
کسی نمی خواد یه چیزی بگه

[asalmors]

سلام
میشه بگی مادون قرمز رو برای چی میخوای
چون اگه بدونم شاید بتونم کمکت کنم
:roll:

[agape]

برای برقراری ارتباط با دستگاه های استاندارد
مثلا موبایل

[newdesign]

اگر به دفترچه مین بر کامپیوترت مراجعه کنی این پورت رو داره تو اینترنت هم دنبال سنسور مبادله tfds4500 بگرد به نتایج خوبی می رسی

[agape]

متشکر آقای newdesign
حالا ببینم چی دستگیرم میشه :)

[etrmodern]

با سلام به همگی دوستان

من از طریق وصل کردن خروجی یک سنسور را به اینتراپت دادم و از طریق تایمر صفر عرض پالسهای 1 و 0 را که در خروجی سنسور هست اندازه گرفتم و آن مقادیر را در حافظه ذخیره کردم . حالا می خواهم با دادن آن مقادیر به تایمر ، دقیقاً مثل همان پالسی که وارد اینتراپت شده رو درست کنم .

همگی مراحل بالا را انجام دادم بجز مرحله آخر که با مشکل مواجه شدم آخه نمی دونم چه مقداری رو باید به تایمر بدم که دقیقاً به اندازه عرض پالس بشه ؟

روشی که خودم بنظرم اومده اینه :
می دونم که تایمر0 از 0 تا 255 می شمارد و بعد وقفه سر ریزی را اجرا می کند ، خوب من هم مقادیری که در حافظه دارم رو از 256 منها و حاصل را به عنوان مقدار اولیه وارد تایمر می کنم . ! ! ! ؟
آیا روش من درسته ؟

اینم برنامه ای که نوشتم :
$regfile = "M32def.dat"
$crystal = 4000000

Dim R As Byte , I As Word
R = 0

Config Timer0 = Timer , Prescale = 256
Enable Interrupts
Enable Timer0
Timer0 = 0
On Ovf0 Puls_isr
Stop Timer0

Config Pind.1 = Output
Puls Alias Portd.1
Reset Puls

'sample code of Sony RemotControl
Out 501 , 40
Out 502 , 8
Out 503 , 20
Out 504 , 9
Out 505 , 11
Out 506 , 8
Out 507 , 21
Out 508 , 8
Out 509 , 11
Out 510 , 9
Out 511 , 20
Out 512 , 9
Out 513 , 11
Out 514 , 8
Out 515 , 11
Out 516 , 9
Out 517 , 11
Out 518 , 8
Out 519 , 11
Out 520 , 8
Out 521 , 10
Out 522 , 8
Out 523 , 11
Out 524 , 8
Out 525 , 20
Out 526 , 155

I = 500
Reset Puls
Start Timer0
Do
'generate puls
Loop

End 'end program


Puls_isr:
Stop Timer0
Toggle Puls
Incr I
If I > 526 Then I = 501
R = Inp(i)
R = 256 - R
Timer0 = R
Start Timer0
Return


با تشکر از همگی مهندسین ، [/code]