Difference between revisions of "Lost&Found"
(→Abstract) |
|||
| (One intermediate revision by the same user not shown) | |||
| 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 | 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! | + | scared. I call him LOST&FOUND! |
| + | |||
| + | See the [http://www.robotika.sk/holls/2008/video/MVI_4628.avi robot video (.avi, 20MB)] | ||
== Project Files == | == Project Files == | ||
| Line 74: | Line 76: | ||
</source> | </source> | ||
| − | Go back to the [ | + | Go back to the [http://www.robotika.sk/holls/2008/index.html#list List of the projects] |
| + | |||
[[Category:Projects]] | [[Category:Projects]] | ||
Latest revision as of 22:21, 15 July 2008
Project: Lost&Found
Overview
Author(s): unknown
Country: unknown
Date: 11.07.2008
Activity: Robolution 2008
Location: Bratislava, SVK
Hardware used: Boe-Bot robot and IR sensors
Abstract
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!
See the robot video (.avi, 20MB)
Project Files
Here is a source code:
' 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
Go back to the List of the projects
