Difference between revisions of "Lipstick grabber"
From RoboWiki
| Line 4: | Line 4: | ||
== Overview == | == Overview == | ||
| − | [[Image:Lipstick_grabber.jpg|thumb| | + | [[Image:Lipstick_grabber.jpg|thumb|Grabber arm robot|200px|right|Design of the hover]] |
| − | '''Author(s):''' | + | '''Author(s):''' Giulia Toti <BR> |
| − | '''Country:''' | + | '''Country:''' Italy <BR> |
| − | '''Date:''' | + | '''Date:''' 11.07.2008 <BR> |
'''Activity:''' Robolution 2008 <BR> | '''Activity:''' Robolution 2008 <BR> | ||
| Line 14: | Line 14: | ||
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. | 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. | ||
Revision as of 10:55, 11 July 2008
Project: The Lipstick grabber
Overview
Author(s): Giulia Toti
Country: Italy
Date: 11.07.2008
Activity: Robolution 2008
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!!!
Project Files
The source code:
' {$STAMP BS2}
' {$PBASIC 2.5}
counter2 VAR Word
counter 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
