28139 Parallax Inc, 28139 Datasheet - Page 182

• Manufacturer Part Number: 28139
• Description: KIT REMOTE IR FOR BOE-BOT W/TEXT
• Manufacturer: Parallax Inc

Specifications of 28139

• Accessory Type: IR Remote
• Product: Microcontroller Accessories
• Lead Free Status / RoHS Status: Contains lead / RoHS non-compliant
• For Use With/related Products: Boe-Bot®
• Lead Free Status / RoHS Status: Lead free / RoHS Compliant, Contains lead / RoHS non-compliant

BASIC Stamp 2 Series Example - Multi-Digit Application
You can use the remote for keypad entry of values by replacing the
IrRemoteButtonDisplay.bs2's main routine with the one shown below. It works for
values from 0 to 65535; just type in the value on the digital keypad, then press the
remote's ENTER key.
#ENDSELECT
' Map digit keys to actual values.
IF (remoteCode < 10) THEN remoteCode = remoteCode + 1
IF (remoteCode = 10) THEN remoteCode = 0
RETURN
#CASE BS2SX, BS2P
#CASE #ELSE
RCTIME IrDet, 0, irPulse
IF irPulse > ThresholdEdge THEN remoteCode.BIT0 = 1
RCTIME IrDet, 0, irPulse
IF irPulse > ThresholdEdge
RCTIME IrDet, 0, irPulse
IF irPulse > ThresholdEdge
RCTIME IrDet, 0, irPulse
IF irPulse > ThresholdEdge
RCTIME IrDet, 0, irPulse
IF irPulse > ThresholdEdge
RCTIME IrDet, 0, irPulse
IF irPulse > ThresholdEdge
RCTIME IrDet, 0, irPulse
IF irPulse > ThresholdEdge
DO
LOOP UNTIL irPulse > ThresholdStart
PULSIN IrDet, 0, irPulse
IF irPulse > ThresholdPulse THEN remoteCode.BIT0 = 1
PULSIN IrDet, 0, irPulse
IF irPulse > ThresholdPulse THEN remoteCode.BIT1 = 1
PULSIN IrDet, 0, irPulse
IF irPulse > ThresholdPulse THEN remoteCode.BIT2 = 1
PULSIN IrDet, 0, irPulse
IF irPulse > ThresholdPulse THEN remoteCode.BIT3 = 1
PULSIN IrDet, 0, irPulse
IF irPulse > ThresholdPulse THEN remoteCode.BIT4 = 1
PULSIN IrDet, 0, irPulse
IF irPulse > ThresholdPulse THEN remoteCode.BIT5 = 1
PULSIN IrDet, 0, irPulse
IF irPulse > ThresholdPulse THEN remoteCode.BIT6 = 1
#ERROR "BASIC Stamp version not supported by this program."
PULSIN IrDet, 0, irPulse
THEN remoteCode.BIT1 = 1
THEN remoteCode.BIT2 = 1
THEN remoteCode.BIT3 = 1
THEN remoteCode.BIT4 = 1
THEN remoteCode.BIT5 = 1
THEN remoteCode.BIT6 = 1
' Wait for start pulse.
' Get data pulses.
DO…LOOP
in