Scribbler 1 Following Routine

erco

I was PM'ed asking how to get Scribblers to follow each other as shown at https://www.youtube.com/watch?v=seQXPRXzHtQ . The simplest code to follow a slow-moving white target (or your hand) is sinfully simple:

' {$STAMP BS2}
 ' {$PBASIC 2.5}
 PAUSE 500
 DO
 FREQOUT 14, 1, 38500 ' send right IR pulse
 B0=IN6
 IF B0=0 THEN PULSOUT 12, 2000 ELSE PULSOUT 12, 2400
 FREQOUT 15, 1, 38500 ' send left IR pulse
 B0=IN6
 IF B0=0 THEN PULSOUT 13, 2000 ELSE PULSOUT 13, 2400
 PAUSE 50
 LOOP

Electrodude

I haven't programmed a Stamp in a while, but why is the

B0=IN6
IF B0=0 THEN

necessary? What's wrong with

IF IN6=0 THEN

?

erco

Right you are, Electrodude! Good catch, the code can be condensed exactly as you suggest.

TTYTT, the code I posted was hastily edited from longer code which had some additional IF checks to switch on the green LEDs, as shown in the video. I stored the value of IN6 in case it changed between IF checks.

Whit

erco - Brilliant and simple as always Pal! Thanks for posting this.

erco

Old Blue is still plenty capable, ands I have a few more S1 tricks up my sleeve. It can do anything a Boebot can.