Lost&Found - Revision history

Balogh: /* Abstract */

2008-07-15T21:21:55Z

‎Abstract

Balogh: /* Project Files */

2008-07-15T21:19:38Z

‎Project Files

Balogh at 20:23, 12 July 2008

2008-07-12T20:23:45Z

Balogh at 20:20, 12 July 2008

2008-07-12T20:20:24Z

Robot at 12:58, 11 July 2008

2008-07-11T12:58:20Z

New page

I started with the boe-Bot Workshop, then attended Digital Signal Prossessing.
When I left my Boe-Bot was moving around with whiskers, when I came back it was gone. LOST!
So I looked around and FOUND an abandoned robot, IR Sensores attached, but none working.
So I fixed the harde ware applied some simple sample code. Now it runs around, avoiding obsticals. Looks like it is a little bit scared. I call him LOST&FOUND!

SOURCE:

' Robotics with the Boe-Bot - FastIrRoaming.bs2
' Higher performance IR object detection assisted navigation
' {$STAMP BS2}
' {$PBASIC 2.5}
DEBUG "Program Running!"
irDetectLeft VAR Bit ' Variable Declarations
irDetectRight VAR Bit
pulseLeft VAR Word
pulseRight VAR Word
FREQOUT 4, 2000, 3000 ' Signal program start/reset.
DO ' Main Routine
FREQOUT 8, 1, 38500 ' Check IR Detectors
irDetectLeft = IN9
FREQOUT 2, 1, 38500
irDetectRight = IN0
' Decide how to navigate.
IF (irDetectLeft = 0) AND (irDetectRight = 0) THEN
pulseLeft = 650
pulseRight = 850
ELSEIF (irDetectLeft = 0) THEN
pulseLeft = 850
pulseRight = 850
ELSEIF (irDetectRight = 0) THEN
pulseLeft = 650
pulseRight = 650
ELSE
pulseLeft = 850
pulseRight = 650
ENDIF
PULSOUT 13,pulseLeft ' Apply the pulse.
PULSOUT 12,pulseRight
PAUSE 15
LOOP ' Repeat main routine

@@ Line 74: / Line 74: @@
 </source>
-Go back to the [[Robolution#List_of_projects|List of the projects]]
+Go back to the [http://www.robotika.sk/holls/2008/index.html#list List of the projects]
 [[Category:Projects]]

@@ Line 1: / Line 1: @@
 I started with the boe-Bot Workshop, then attended Digital Signal Prossessing.
@@ Line 10: / Line 25: @@
+Here is a source code:
 <source lang="basic">

@@ Line 22: / Line 22: @@
 So I fixed the harde ware applied some simple sample code. Now it runs around, avoiding obsticals. Looks like it is a little bit
 scared. I call him LOST&FOUND!
 == Project Files ==

@@ Line 1: / Line 1: @@
 I started with the boe-Bot Workshop, then attended Digital Signal Prossessing.
 When I left my Boe-Bot was moving around with whiskers, when I came back it was gone. LOST!
 So I looked around and FOUND an abandoned robot, IR Sensores attached, but none working.
 So I fixed the harde ware applied some simple sample code. Now it runs around, avoiding obsticals. Looks like it is a little bit scared. I call him LOST&FOUND!
 ' Robotics with the Boe-Bot - FastIrRoaming.bs2
 ' Higher performance IR object detection assisted navigation
 ' {$STAMP BS2}
 ' {$PBASIC 2.5}
 DEBUG "Program Running!"
-irDetectLeft VAR Bit ' Variable Declarations
+ DEBUG "Program Running!"
 irDetectRight VAR Bit
-pulseLeft VAR Word
+ irDetectLeft  VAR Bit     ' Variable Declarations
-pulseRight VAR Word
+ irDetectRight VAR Bit
-FREQOUT 4, 2000, 3000 ' Signal program start/reset.
+ pulseLeft     VAR Word
-DO ' Main Routine
+ pulseRight    VAR Word
 FREQOUT 8, 1, 38500 ' Check IR Detectors
-irDetectLeft = IN9
+ FREQOUT 4, 2000, 3000     ' Signal program start/reset.
 FREQOUT 2, 1, 38500
-irDetectRight = IN0
+ DO                        ' Main Routine
 ' Decide how to navigate.
-IF (irDetectLeft = 0) AND (irDetectRight = 0) THEN
+   FREQOUT 8, 1, 38500     ' Check IR Detectors
-pulseLeft = 650
+   irDetectLeft = IN9
 pulseRight = 850
-ELSEIF (irDetectLeft = 0) THEN
+   FREQOUT 2, 1, 38500
-pulseLeft = 850
+   irDetectRight = IN0
 pulseRight = 850
-ELSEIF (irDetectRight = 0) THEN
+                           ' Decide how to navigate.
 pulseLeft = 650
-pulseRight = 650
+   IF (irDetectLeft = 0) AND (irDetectRight = 0) THEN
-ELSE
+     pulseLeft = 650
-pulseLeft = 850
+     pulseRight = 850
-pulseRight = 650
+   ELSEIF (irDetectLeft = 0) THEN
-ENDIF
+     pulseLeft = 850
-PULSOUT 13,pulseLeft ' Apply the pulse.
+     pulseRight = 850
-PULSOUT 12,pulseRight
+   ELSEIF (irDetectRight = 0) THEN
-PAUSE 15
+     pulseLeft = 650
-LOOP ' Repeat main routine
+     pulseRight = 650