28125 Parallax Inc, 28125 Datasheet - Page 288

• Manufacturer Part Number: 28125
• Description: TEXT ROBOTICS
• Manufacturer: Parallax Inc

Specifications of 28125

• Title: Robotics with the Boe-Bot
• Product: Microcontroller Accessories
• Lead Free Status / RoHS Status: Not applicable / Not applicable

' -----[ Variables ]----------------------------------------------------------
freqSelect
irFrequency
irDetect
distance
' -----[ Initialization ]-----------------------------------------------------
DEBUG CLS,
' -----[ Main Routine ]-------------------------------------------------------
DO
LOOP
Your Turn – Testing the Right IR LED/Detector Pair
Although there’s some labeling involved, you can modify this program to test the right IR
LED and detector by changing these two lines:
distance = 0
FOR freqSelect = 0 TO 4
NEXT
DEBUG CR,
LOOKUP freqSelect,[37500,38250,39500,40500,41500], irFrequency
FREQOUT 8,1, irFrequency
irDetect = IN9
distance = distance + irDetect
DEBUG CRSRXY, 4, (freqSelect + 3), DEC5 irFrequency
DEBUG CRSRXY, 11, freqSelect + 3
IF (irDetect = 0) THEN DEBUG "Yes" ELSE DEBUG "No "
PAUSE 100
"
"FREQUENCY
"---------
"---------
"Zone
FREQOUT 8,1, irFrequency
irDetect = IN9
VAR
VAR
VAR
VAR
OBJECT", CR,
DETECTED", CR,
--------"
--------", CR,
", DEC1 distance
Nib
Word
Bit
Nib