Kid needs help with project
smith772
Posts: 3
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
This chops about 16 lines off of the code (leaving more space for you to do it multipe times).