Latest revision as of 09: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 09:56, 27 October 2009

Contents

Project: The Lipstick grabber

Overview

Abstract

Project Files

Navigation menu

Views

Personal tools

Navigation

Search

Tools

@@ Line 1: / Line 1: @@
-The Lipstick grabber.
+= Project: The Lipstick grabber =
-Very dangerous. Feared by many women.
+== Overview ==
+[[Image:Lipstick_grabber.jpg|thumb|Grabber arm robot|200px|right|The Lipstick grabber]]
+'''Author(s):''' Giulia Toti (a.k.a. Giugiu)          <BR>
+'''Country:''' Italy                                  <BR>
+'''Date:''' 11.07.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.
 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:
+'''Caution:
-Never ever let your lipstick unattended while suspicion on Lipstick grabber's presence persists.
+Never ever let your lipstick unattended while suspicion on Lipstick grabber's presence persists.'''
-The source code:
+Caught on tape!!!
-<code>
+[[Media:Lipstick_grabber.avi]]
-' {$STAMP BS2}
-' {$PBASIC 2.5}
+== Project Files ==
-counter2 VAR Word
-counter VAR Word
+The source code:
-counter3 VAR Word
+<source lang="basic">
+' {$STAMP BS2}
+' {$PBASIC 2.5}
+counter       VAR Word
+counter2      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
-irDetectRight = IN0
+  FREQOUT 2, 1, 38500
-IF (irDetectRight = 0) THEN
+  irDetectRight = IN0
- PAUSE 1000
- HIGH 1
+  IF (irDetectRight = 0)  THEN
- FOR counter = 1 TO 100                'take
+    PAUSE 1000
+    HIGH 1
+  FOR counter = 1 TO 100                'take
     PULSOUT 14, 500
-  PAUSE 5
+   PAUSE 5
- NEXT
+  NEXT
- FOR counter = 1 TO 100                'go forward
+  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
+  FOR counter = 1 TO 3                  'sound: finished!
- PAUSE 10
+   FREQOUT 4, 300, 4000
- NEXT
+   PAUSE 10
- GOTO Finish
+  NEXT
-ENDIF
+  GOTO Finish
+ ENDIF
 LOOP
 Finish:
-END
+ END
-</code>
+</source>
+Go back to the [http://www.robotika.sk/holls/2008/index.html#list List of the projects]
-Picture:
+Go back to the [[Robotic Education Platform]]
-<<<picture>>>
-Caught on tape!!!
+[[Category:Projects]]
-<<<movie>>>
+[[Category:Boe-Bot]]
+[[Category:Fun]]
+[[Category:Elementary]][[Category:Secondary]]