program to pick from a menu

[ouconvert]

alright, what i want the stamp to do is prompt the user for one position out of ten, A-J (horizontal movement). And than asks for another position,
0-9 (vertical movement). A-J and 0-1 are constants relating to a position that a stepper motor will go to. im experimenting with a servo motor
right now and im not having much luck. im not using the commands to command a·stepper with the servo so thats not the problem. ·is there a switch function like in C? any input would be great. thanks
sean

[ouconvert]

please dont make fun, i am so new to programming its not funny. whats wrong with this code? i have a standard servo hooked up.
' {$STAMP BS2}
' {$PBASIC 2.5}

counter VAR Word
pulses VAR Bit
duration VAR Bit
a CON 500
k CON 1000

DO

DEBUG CLS, "Enter selection of vertical movement, a-j.", CR
DEBUGIN HEX pulses

IF pulses = a THEN
FOR counter = 1 TO a
PULSOUT 14, k
PAUSE 20
NEXT

DEBUG "Done"
PAUSE 1000

ENDIF

LOOP

[Bruce Bates]

Ouconvert -

One of the problems is that the variables that you have defined as BIT need to be defined as BYTE or WORD variables depending on the values they will contain.

/code

BIT =·· 0 or 1 ONLY
BYTE = 0·· ->··· 255
WORD = 0 -> 65535

/code

Regards,

Bruce Bates

[Jon Williams]

PBASIC 2.5 has SELECT..CASE which is very similar to C's SWITCH structure. There are other tricks, too, that can sometimes be more effective. Things like LOOKDOWN used with ON-GOSUB for example, can be very effective.

▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔
Jon Williams
Applications Engineer, Parallax

[ouconvert]

im trying to make it work with the code below but it does nothing close to what i want it to do. what am i doing wrong?

' {$STAMP BS2}
' {$PBASIC 2.5}

counter VAR Word
horizontal VAR Byte
vertical VAR Byte
a CON 150
b CON 150
c CON 150
k CON 1000
l CON 500
m CON 750

DO

DEBUG CLS, "Enter selection of vertical movement, a-j.", CR
DEBUGIN HEX vertical

DEBUG "Program running.", CR

IF vertical = a THEN GOSUB case_0
IF vertical = b THEN GOSUB case_1
IF vertical = c THEN GOSUB case_2

case_0:
FOR counter = 1 TO 150
PULSOUT 14, 1000
DEBUG "Going to 10 o'clock.", CR
PAUSE 20
NEXT
GOTO finishup

case_1:
FOR counter = 1 TO 150
PULSOUT 14, 150
DEBUG "Going to 2 o'clock.", CR
PAUSE 20
NEXT
GOTO finishup

case_2:
FOR counter = 1 TO 150
PULSOUT 14, 750
DEBUG "Going to 12 o'clock.", CR
PAUSE 20
NEXT
GOTO finishup

finishup:
DEBUG "Done."
PAUSE 500

LOOP

[Jon Williams]

I've attached a program that will get two inputs from the user and read the associated counts from DATA tables.· It should help you get going.

▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔
Jon Williams
Applications Engineer, Parallax