Lipstick grabber - Revision history

Balogh at 07:56, 27 October 2009

2009-10-27T07:56:14Z

2009-10-27T07:48:17Z

2009-10-27T07:38:38Z

2008-07-15T21:12:51Z

2008-07-12T20:43:20Z

‎Project Files

2008-07-12T20:40:52Z

‎Overview

2008-07-11T10:06:06Z

2008-07-11T10:05:18Z

2008-07-11T10:05:06Z

2008-07-11T10:03:23Z

@@ Line 113: / Line 113: @@
 [[Category:Boe-Bot]]
 [[Category:Fun]]
-[[Category:S1]][[Category:S2]]
+[[Category:Elementary]][[Category:Secondary]]

← Older revision		Revision as of 07:48, 27 October 2009
Line 107:		Line 107:

	Go back to the [http://www.robotika.sk/holls/2008/index.html#list List of the projects]		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:Projects]]

← Older revision		Revision as of 21:12, 15 July 2008
Line 106:		Line 106:


−	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]]		[[Category:Projects]]

@@ Line 34: / 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
 irDetectRight VAR Bit
 DO
+  PULSOUT 14, 1000
    PULSOUT 13,600
    PULSOUT 12, 900
-FREQOUT 2, 1, 38500
+  FREQOUT 2, 1, 38500
-irDetectRight = IN0
+  IF (irDetectRight = 0)  THEN
-IF (irDetectRight = 0)
+   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
     PULSOUT 14, 500
     PULSOUT 13,650
     PULSOUT 12,650
-  PAUSE 5
+   PAUSE 5
- NEXT
+  NEXT
- 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
     PULSOUT 14, 1000
     LOW 1
     PAUSE 10
- NEXT
+  NEXT
- 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
 LOOP
 Finish:
+ END
 </source>

@@ Line 11: / Line 11: @@
 '''Activity:''' [http://www.best.stuba.sk/sc2008 Robolution 2008]<BR>
 '''Location:''' Bratislava, SVK         	      <BR>
 == Abstract ==

@@ Line 9: / Line 9: @@
 '''Country:''' Italy                                  <BR>
 '''Date:''' 11.07.2008                                <BR>
-'''Activity:''' Robolution 2008 <a href="www.best.stuba.sk/sc2008"><BR>
+'''Activity:''' [http://www.best.stuba.sk/sc2008 Robolution 2008]<BR>
 '''Location:''' Bratislava, SVK         	      <BR>

← Older revision		Revision as of 10:05, 11 July 2008
Line 108:		Line 108:
	END		END
	</source>		</source>
		+
		+
		+	Go back to the [[Robolution#List_of_projects\|List of the projects]]
		+
		+	[[Category:Projects]]