Latest revision as of 08:56, 27 October 2009

Project: The Lipstick grabber

Overview

The Lipstick grabber

Author(s): Giulia Toti (a.k.a. Giugiu)
Country: Italy
Date: 11.07.2008
Activity: Robolution 2008
Location: Bratislava, SVK
Hardware: Boe-Bot robot, IR sensor, gripper

Abstract

Very dangerous. Feared by many women.

Takes away your lipstick as soon as he spots it and hides it on some other place - so far, no kidnapped lipstick has been rescued alive and there are still many missing.

Caution: Never ever let your lipstick unattended while suspicion on Lipstick grabber's presence persists.

Caught on tape!!!

Media:Lipstick_grabber.avi

Project Files

The source code:

' {$STAMP BS2}
' {$PBASIC 2.5}

counter       VAR Word
counter2      VAR Word
counter3      VAR Word
irDetectRight VAR Bit

DO
  PULSOUT 14, 1000
  PULSOUT 13,600
  PULSOUT 12, 900

  FREQOUT 2, 1, 38500
  irDetectRight = IN0

  IF (irDetectRight = 0)  THEN
    PAUSE 1000
    HIGH 1
  FOR counter = 1 TO 100                'take
   PULSOUT 14, 500
   PAUSE 5
  NEXT

  FOR counter = 1 TO 100                'go forward
   PULSOUT 14, 500
   PULSOUT 13,650
   PULSOUT 12,850
  PAUSE 5
  NEXT

  FOR counter = 1 TO 60                 'turn left
   PULSOUT 14, 500
   PULSOUT 13,650
   PULSOUT 12,650
   PAUSE 5
  NEXT

  FOR counter = 1 TO 50                 'go forward
   PULSOUT 14, 500
   PULSOUT 13,650
   PULSOUT 12,850
  PAUSE 20
  NEXT

  FOR counter2 = 1 TO 100               'release
   PULSOUT 14, 1000
   LOW 1
   PAUSE 10
  NEXT

  FOR counter3 = 1 TO 50                'go back
   PULSOUT 13,900
   PULSOUT 12, 600
   PAUSE 10
  NEXT

  FOR counter = 1 TO 3                  'sound: finished!
   FREQOUT 4, 300, 4000
   PAUSE 10
  NEXT

  GOTO Finish
 ENDIF

LOOP

Finish:
 END

Go back to the List of the projects

Go back to the Robotic Education Platform

Difference between revisions of "Lipstick grabber"

Latest revision as of 08:56, 27 October 2009

Contents

Project: The Lipstick grabber

Overview

Abstract

Project Files

Navigation menu

Views

Personal tools

Navigation

Search

Tools

@@ Line 4: / Line 4: @@
 == Overview ==
-[[Image:Lipstick_grabber.jpg|thumb|Line following robot|200px|right|Design of the hover]]
+[[Image:Lipstick_grabber.jpg|thumb|Grabber arm robot|200px|right|The Lipstick grabber]]
-'''Author(s):''' Nico Weerasooriya, Alexander Cristea <BR>
+'''Author(s):''' Giulia Toti (a.k.a. Giugiu)          <BR>
-'''Country:''' Germany                                <BR>
+'''Country:''' Italy                                  <BR>
-'''Date:''' 22.01.2008                                <BR>
+'''Date:''' 11.07.2008                                <BR>
-'''Activity:''' Robolution 2008         	      <BR>
+'''Activity:''' [http://www.best.stuba.sk/sc2008 Robolution 2008]<BR>
+'''Location:''' Bratislava, SVK         	      <BR>
+'''Hardware:''' Boe-Bot robot, IR sensor, gripper     <BR>
 == Abstract ==
-Very dangerous. Feared by many women.
+Very dangerous.
+Feared by many women.
 Takes away your lipstick as soon as he spots it and hides it on some other place - so far, no kidnapped lipstick has been rescued alive and there are still many missing.
@@ Line 31: / Line 34: @@
 <source lang="basic">
 ' {$STAMP BS2}
 ' {$PBASIC 2.5}
-counter2 VAR Word
+counter       VAR Word
+counter2      VAR Word
-counter VAR Word
+counter3      VAR Word
-counter3 VAR Word
 irDetectRight VAR Bit
 DO
+  PULSOUT 14, 1000
-PULSOUT 14, 1000
    PULSOUT 13,600
    PULSOUT 12, 900
-FREQOUT 2, 1, 38500
+  FREQOUT 2, 1, 38500
+  irDetectRight = IN0
-irDetectRight = IN0
+  IF (irDetectRight = 0)  THEN
+    PAUSE 1000
+    HIGH 1
+  FOR counter = 1 TO 100                'take
+   PULSOUT 14, 500
+   PAUSE 5
+  NEXT
-IF (irDetectRight = 0)
+   FOR counter = 1 TO 100                'go forward
-THEN
- PAUSE 1000
- HIGH 1
- FOR counter = 1 TO 100                'take
-   PULSOUT 14, 500
-   PAUSE 5
- NEXT
- FOR counter = 1 TO 100                'go forward
     PULSOUT 14, 500
     PULSOUT 13,650
     PULSOUT 12,850
    PAUSE 5
- NEXT
+  NEXT
- FOR counter = 1 TO 60                 'turn left
+  FOR counter = 1 TO 60                 'turn left
     PULSOUT 14, 500
     PULSOUT 13,650
     PULSOUT 12,650
-  PAUSE 5
+   PAUSE 5
- NEXT
+  NEXT
- FOR counter = 1 TO 50                 'go forward
+  FOR counter = 1 TO 50                 'go forward
     PULSOUT 14, 500
     PULSOUT 13,650
     PULSOUT 12,850
    PAUSE 20
- NEXT
+  NEXT
- FOR counter2 = 1 TO 100               'release
+  FOR counter2 = 1 TO 100               'release
     PULSOUT 14, 1000
     LOW 1
     PAUSE 10
- NEXT
+  NEXT
- FOR counter3 = 1 TO 50                'go back
+  FOR counter3 = 1 TO 50                'go back
     PULSOUT 13,900
     PULSOUT 12, 600
     PAUSE 10
- NEXT
+  NEXT
- FOR counter = 1 TO 3                  'sound: finished!
- FREQOUT 4, 300, 4000
- PAUSE 10
- NEXT
- GOTO Finish
-ENDIF
+  FOR counter = 1 TO 3                  'sound: finished!
+   FREQOUT 4, 300, 4000
+   PAUSE 10
+  NEXT
+  GOTO Finish
+ ENDIF
 LOOP
 Finish:
+ END
+</source>
-END
-</source>
+Go back to the [http://www.robotika.sk/holls/2008/index.html#list List of the projects]
+Go back to the [[Robotic Education Platform]]
+[[Category:Projects]]
+[[Category:Boe-Bot]]
+[[Category:Fun]]
+[[Category:Elementary]][[Category:Secondary]]