Shop OBEX P1 Docs P2 Docs Learn Events
Help needed! Laser scanner — Parallax Forums

Help needed! Laser scanner

andy_conandy_con Posts: 53
edited 2006-10-31 23:05 in BASIC Stamp
Hello i am a newbie and this is my first post. Hello to all

Now i know nothing about programming at all!! which is a real problem with the project.

I have made this http://lasers.musicfoxaudio.com/byoshow.htm·and its all working.

but i dont know how to code it, i have copied boomdogs code http://lasers.musicfoxaudio.com/byoshow3.htm·and tweaked it to fit mine.

this is my code for a simple X Y movement -

' {$STAMP BS2}
' {$PBASIC 2.5}
counter VAR Word
cycle VAR Byte

'Do not change the following lines (Calibration and settings)
'**************************************************************************
cycle=32767
GOSUB calibrate
'**************************************************************************
cycle=30

DO
GOSUB MXHigh
GOSUB MYHigh
GOSUB MXLow
GOSUB MYLow
LOOP
Calibrate:
FOR counter = 0 TO cycle
GOSUB MXHigh
NEXT
FOR counter = 0 TO cycle
GOSUB MYHigh
NEXT
FOR counter = 0 TO cycle
GOSUB MXLow
NEXT
FOR counter = 0 TO cycle
GOSUB MyLow
NEXT
RETURN
MXHigh:
HIGH 3
FOR counter = 1 TO cycle
PULSOUT 4,1
NEXT
RETURN
MXLow:
LOW 3
FOR counter = 1 TO cycle
PULSOUT 4,1
NEXT
RETURN
MYHigh:
HIGH 1
FOR counter = 1 TO cycle
PULSOUT 2,1
NEXT
RETURN
MYLow:
LOW 1
FOR counter = 1 TO cycle
PULSOUT 2,1
NEXT
RETURN

Now what document can i read to help me out with learning coding???? Also a problem people keep telling me is that the pots turning the signal into digital which is causing a problem. Im really stuck and need help

Comments

  • andy_conandy_con Posts: 53
    edited 2006-10-30 19:00
    The routine below does a simple liquid sky effect as shown in this video - http://s80.photobucket.com/albums/j185/andy_con/lasers/?action=view&current=01102006.flv

    Now how do i get the Y mirror to move up and down very very slowley, so it moves the liquid sky up and down the y mirror whilst doing the effect???


    ' {$STAMP BS2}
    ' {$PBASIC 2.5}
    counter VAR Word
    counter2 VAR Word
    counter3 VAR Word
    timer VAR Word
    effecttime VAR Word
    cycle VAR Byte
    dir VAR Byte
    maxcycle VAR Byte
    effectnumber VAR Byte

    'This code was developed by Colin McCloy, a.k.a. BoomDog. If you have any questions,
    'you can message me at the forum at WickedLasers.com or email me at mccloy.13@osu.edu

    'Do not change the following lines (Calibration and settings)
    '**************************************************************************
    cycle=32767
    GOSUB calibrate
    cycle=25
    dir=1
    counter2=1
    counter3=1
    timer=0
    effecttime=50
    effectnumber=1
    '**************************************************************************

    'Effects:
    ' 5.EFFECTShrinkSky

    DO
    SELECT effectnumber 'Will execute the case that is currently in 'effectnumber'
    CASE 5
    effecttime=50
    GOSUB EFFECTShrinkSky
    ENDSELECT

    'The following changes effects and monitors time on current effects
    timer=timer+1
    IF (timer=effecttime) THEN
    timer=0
    effectnumber=effectnumber+1
    IF (effectnumber>7) THEN
    effectnumber=1
    ENDIF
    ENDIF

    LOOP

    'Calibration pushes the mirrors to maximum cycle to ensure consistant results
    Calibrate:
    FOR counter = 0 TO cycle
    GOSUB MXHigh
    NEXT
    FOR counter = 0 TO cycle
    GOSUB MYHigh
    NEXT
    FOR counter = 0 TO cycle
    GOSUB MXLow
    NEXT
    FOR counter = 0 TO cycle
    GOSUB MYLow
    NEXT
    RETURN

    'Liquid sky that shrinks in width to a single beam, and then rapidly expands again.
    EFFECTShrinkSky:

    IF(dir=1)THEN
    cycle=cycle+1
    ELSE
    cycle=cycle-1
    ENDIF

    IF(cycle>20)THEN
    dir=2
    ELSEIF(cycle<5) THEN
    dir=1
    ENDIF

    GOSUB MXHigh
    GOSUB MXLow
    GOSUB MXHigh
    GOSUB MXLow
    GOSUB MXHigh
    GOSUB MXLow
    GOSUB MXHigh
    GOSUB MXLow

    RETURN

    MXHigh:
    HIGH 1
    FOR counter = 1 TO cycle
    PULSOUT 2,1
    NEXT
    RETURN

    MXLow:
    LOW 1
    FOR counter = 1 TO cycle
    PULSOUT 2,1
    NEXT
    RETURN

    MYLow:
    HIGH 3
    FOR counter = 1 TO cycle
    PULSOUT 4,1
    NEXT
    RETURN

    MYHigh:
    LOW 3
    FOR counter = 1 TO cycle
    PULSOUT 4,1
    NEXT
    RETURN
  • andy_conandy_con Posts: 53
    edited 2006-10-31 16:29
    How do i get help on this forum????
  • Chris SavageChris Savage Parallax Engineering Posts: 14,406
    edited 2006-10-31 16:36
    Andy,
    ·
    ·· It is possible that with a unique hardware setup like this it would be difficult to know exactly what effect code changes will have.· On the other hand I noticed the author of the code included his e-mail address in the comments…Have you tried e-mailing the author to see if he might have some advice?

    ▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔
    Chris Savage
    Parallax Tech Support
  • Tom WalkerTom Walker Posts: 509
    edited 2006-10-31 16:40
    Well, getting frustrated because you have not received a response to a "do this for me" type of request for a very specific (i.e. you're the only one doing this type of thing) application within the first 24 hours is probably NOT the best way to get assistance.

    First, you should try to learn why the code you posted does what it does by going through the free "What's a Microcontroller?" text. If you achieve understanding from this, then you have solved your problem. If not, then someone might be more inclined to respond to a question directed from a lack of understanding about a specific something that you are trying to learn.

    ▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔
    Truly Understand the Fundamentals and the Path will be so much easier...
  • andy_conandy_con Posts: 53
    edited 2006-10-31 16:49
    chris - yeah not much help

    tom - i may have come across wrong im not after someone to do it for me. I wana learn but i dont know how, what is the best document to read???
  • Tom WalkerTom Walker Posts: 509
    edited 2006-10-31 16:58
    andy_con,
    In that case, I apologize if I mis-interpreted your "tone". It was done without the calming effects of my morning caffeine :^) The educational materials on the Parallax site, all free, do a great job of presenting the basics of both using their products and general electronics theory and application. A good path, IMHO, is the "What's a Microcontroller?" text leading to the "Robotics! with the BOE-Bot".

    ▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔
    Truly Understand the Fundamentals and the Path will be so much easier...
  • Chris SavageChris Savage Parallax Engineering Posts: 14,406
    edited 2006-10-31 17:01
    Andy,
    ·
    ·· What is, “Not much help”?· What advice were you given, if any?· Perhaps you got the information you needed but did not understand it?· Please elaborate.· Details make it easier to help you.

    ▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔
    Chris Savage
    Parallax Tech Support
  • andy_conandy_con Posts: 53
    edited 2006-10-31 17:13
    chris he just helped me do the x and y movement.

    i have read a little about coding but dont really get it if im honest.

    i have the code from boomdogs web site which half works. it just needs a little tweaking. like ive got a liquid sky effect (a line) on the x mirror but how do i get the y mirror to move up and down very slowly so the lines move up and down on the y mirror.

    i wana do real simple stuff, just not sure where to start????????
  • andy_conandy_con Posts: 53
    edited 2006-10-31 17:22
    Tom Walker said...
    andy_con,
    In that case, I apologize if I mis-interpreted your "tone". It was done without the calming effects of my morning caffeine :^) The educational materials on the Parallax site, all free, do a great job of presenting the basics of both using their products and general electronics theory and application. A good path, IMHO, is the "What's a Microcontroller?" text leading to the "Robotics! with the BOE-Bot".

    ok i will try reading that cheers mate
  • andy_conandy_con Posts: 53
    edited 2006-10-31 23:05
    Ahhh i hate this code stuff.... LOL

    its not going well for me, if anyone has any spare time to give me a hand could they MSN me camfun100@hotmail.com

    i only wana do a few simple things, nothing major, i just dont get this coding stuff
Sign In or Register to comment.