28125 Parallax Inc, 28125 Datasheet - Page 281

• 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

P3. The key to solving this problem is to combine "FastIrRoaming.bs2" and
' -----[ Subroutines ] ------------------------------------------------
Check_IRs:
"IrInterferenceSniffer.bs2" in a single program.
' -----[ Title ]-------------------------------------------------------
' Robotics with the Boe-Bot - RoamAndSniffBoeBot.bs2
' Boe-Bot roams around and sounds alarm when IR detected.
' {$STAMP BS2}
' {$PBASIC 2.5}
' -----[ Variables ]---------------------------------------------------
irDetectLeft
irDetectRight
pulseLeft
pulseRight
counter
' -----[ Initialization ]----------------------------------------------
DEBUG "Program Running!"
FREQOUT 4, 2000, 3000
start/reset.
' -----[ Main Routine ]------------------------------------------------
Main:
DO
LOOP
' Check IRs again in case object is moving
LOOP
FREQOUT 8, 1, 38500
irDetectLeft = IN9
FREQOUT 2, 1, 38500
IrDetectRight = IN0
RETURN
GOSUB Roam
GOSUB Sniff
ENDIF
PULSOUT 13,pulseLeft
PULSOUT 12,pulseRight
PAUSE 15
GOSUB Check_IRs
VAR
VAR
VAR
VAR
VAR
Bit
Bit
Word
Word
Nib
' its position.
' Apply the pulse.
' 5 ms for detectors
' Check IR Detectors
' Left IR sensor reading
' Right IR sensor reading
' Pulses sent to servos
' Loop counter
' Signal program