ايران ويج

با سلام
من از اين سنسور هاي مادون قرمز كه توي بازار هست ميخوام براي ساخت روبات استفاده كنم هر كار ميكنم راه نميوفته نميدونم مشكل از چيه از برناممه يا از ديود فرستند يا گيرنده
من يه مدار ساده و يه برنامه ساده به زبان بيسيك براي avr ميخوام
http://roboeq.com/img_s/0401011.gif
http://roboeq.com/img_s/0401002.gif
مثلا اگه pinc.0=1شد اونوقت portd=1بشه همين ولي هركار ميكنم جواب درست نميده
برنامم اينه:

$regfile = "m8def.dat " "
$crystal = 1000000
Config Portc = Input
Config Portd = Output
Dim X As Byte , T As Byte
'Main:
Ddrc.5 = 0
Portc.5 = 0
'Portc = 0
'Portd = 0
Do
'X = &H01
'T = &H02
'X = Pinc
If Pinc.5 = 1 Then
'For t=1 to 10
Portd = 1
'Set Portd.1
Else
Portd = 0

'Next t
End If
Loop

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


برای سنسور مادون قرمز :
مطمئنی فرستنده می فرسته ( به یه دوربین یجیتال مثل موبایل می تونی تستش کنی ) ؟
در ضمن باید گیرنده رو به طور معکوسی وصل کنی !