Kid needs help with project
Hi, I am a 9 year old doing a project with my Boe Bot.:cool: I have a Board of Ed kit and have worked through most of the manual. It is really fun.:thumb:
For my special project, I am attaching a pen to my Boe Bot and programming it to write all 26 letters of the alphabet. I am then going to string the letters together into words. I started by trying to get it to write a lowercase "e". My code makes it a bit jerky as it is writing the "e". Does anyone have some suggestions for me on how I can get it to smooth out a bit?
Here is my code:
' {$STAMP BS2} 'This is a lowercase eeeeee
' {$PBASIC 2.5}
counter VAR Word
FOR counter = 1 TO 25
PULSOUT 13, 800
PULSOUT 12, 650
PAUSE 20
NEXT
FOR counter = 1 TO 25
PULSOUT 13, 750
PULSOUT 12, 650
PAUSE 20
NEXT
FOR counter = 1 TO 35
PULSOUT 13, 800
PULSOUT 12, 650
PAUSE 20
NEXT
FOR counter = 1 TO 105
PULSOUT 13, 750
PULSOUT 12, 650
PAUSE 20
NEXT
FOR counter = 1 TO 15
PULSOUT 13, 800
PULSOUT 12, 650
PAUSE 20
NEXT
FOR counter = 1 TO 15
PULSOUT 13, 750
PULSOUT 12, 650
PAUSE 20
NEXT
FOR counter = 1 TO 15
PULSOUT 13, 800
PULSOUT 12, 650
PAUSE 20
NEXT
FOR counter = 1 TO 25
PULSOUT 13, 750
PULSOUT 12, 650
PAUSE 20
NEXT
FOR counter = 1 TO 15
PULSOUT 13, 800
PULSOUT 12, 650
PAUSE 20
NEXT
For my special project, I am attaching a pen to my Boe Bot and programming it to write all 26 letters of the alphabet. I am then going to string the letters together into words. I started by trying to get it to write a lowercase "e". My code makes it a bit jerky as it is writing the "e". Does anyone have some suggestions for me on how I can get it to smooth out a bit?
Here is my code:
' {$STAMP BS2} 'This is a lowercase eeeeee
' {$PBASIC 2.5}
counter VAR Word
FOR counter = 1 TO 25
PULSOUT 13, 800
PULSOUT 12, 650
PAUSE 20
NEXT
FOR counter = 1 TO 25
PULSOUT 13, 750
PULSOUT 12, 650
PAUSE 20
NEXT
FOR counter = 1 TO 35
PULSOUT 13, 800
PULSOUT 12, 650
PAUSE 20
NEXT
FOR counter = 1 TO 105
PULSOUT 13, 750
PULSOUT 12, 650
PAUSE 20
NEXT
FOR counter = 1 TO 15
PULSOUT 13, 800
PULSOUT 12, 650
PAUSE 20
NEXT
FOR counter = 1 TO 15
PULSOUT 13, 750
PULSOUT 12, 650
PAUSE 20
NEXT
FOR counter = 1 TO 15
PULSOUT 13, 800
PULSOUT 12, 650
PAUSE 20
NEXT
FOR counter = 1 TO 25
PULSOUT 13, 750
PULSOUT 12, 650
PAUSE 20
NEXT
FOR counter = 1 TO 15
PULSOUT 13, 800
PULSOUT 12, 650
PAUSE 20
NEXT

Comments
' {$STAMP BS2} 'This is a lowercase eeeeee ' {$PBASIC 2.5} counter VAR Word x VAR Word y VAR Word z VAR Word x = 25 y = 800 x = 650 GOSUB motor x = 25 y = 750 x = 650 GOSUB motor x = 35 y = 800 x = 650 GOSUB motor x = 105 y = 750 x = 650 GOSUB motor x = 15 y = 800 x = 650 GOSUB motor x = 15 y = 750 x = 650 GOSUB motor x = 15 y = 800 x = 650 GOSUB motor x = 25 y = 750 x = 650 GOSUB motor x = 15 y = 800 x = 650 GOSUB motor END Motor: FOR counter = 1 TO x PULSOUT 13, y PULSOUT 12, z PAUSE 20 NEXT RETURNThis chops about 16 lines off of the code (leaving more space for you to do it multipe times).