紅外線模組值問題

我使用 範例程式
Sub main() '此程式利用PulseIn指令回傳感測器資訊(配合A2P Converter)
Dim temp as Word
Do
PulseIn 2,1,temp '將感測器的訊號讀回(請將Pulse Output接至Pin 0)
'‘''請參考Basic Commander 中文使用手冊 P.154
Debug "Input Signal =", Temp,CR '‘將感測器訊號顯示出來
Pause 100 '‘暫停100mS
Loop '‘迴圈
End Sub
可是  旁邊所顯現出來的值   都是 2052 ~ 2055 在跳
拿東西上去擋的時候   一樣都是 2052 ~ 2055  在跳

是不是有問題 ?

請檢查。。
１。是否有外在的光源干擾，如白熾燈，斜射陽光等。
２。紅外線的感測器的型號，因為長距離的紅外線的感測器，
　　在物體過近時，無法測出正確數據。而短距離的紅外線的
　　感測器，在物體過遠時，也無法測出正確數據。
３。給我看接線圖。