Using Basic export in RIOS for more than one sequence

Lynxmotion Electronics & Software
1

My team and I are trying to run two different sequences based on a logic input assigned to the Basic board. I have saved 2 differnet sequences in RIOS and exported it into Basic individually and then tried to combine them into one program. Since programming is basically the same I need to know what all to change in order to run the specific sequence from an input. so far I have :

’ {$STAMP BS2}
’ {$PBASIC 2.5}
’ ------------------------------------------------------
’ Lynxmotion RIOS SSC-32 ‘Export’ Program
’ RIOS SSC-32 project : Grab
’ Date : 3/7/2007 3:37:39 PM
’ ------------------------------------------------------
’ Format : Basic Stamp 2 - PBasic 2.5
’ Original filename : Grab.bs2
’ Arm : L5
’ Positions : Word (max accuracy, max memory used)
’ ------------------------------------------------------

DATA Word 1569, Word 2369, Word 2479, Word 1079, Word 1469, Word 1000, Word 100
DATA Word 1569, Word 1459, Word 2389, Word 2081, Word 1469, Word 420, Word 100
DATA Word 1569, Word 1403, Word 2317, Word 2067, Word 1899, Word 90, Word 100
DATA Word 1569, Word 619, Word 1693, Word 2253, Word 1899, Word 750, Word 100
DATA Word 1569, Word 619, Word 1607, Word 2003, Word 1899, Word 180, Word 100
DATA Word 1569, Word 659, Word 1727, Word 2075, Word 1405, Word 360, Word 100
DATA Word 1569, Word 1415, Word 2457, Word 2177, Word 1405, Word 2700, Word 100
DATA Word 1569, Word 1407, Word 2451, Word 2177, Word 1399, Word 1000, Word 100
DATA Word 1569, Word 743, Word 1841, Word 2123, Word 1399, Word 780, Word 100
DATA Word 1569, Word 717, Word 1753, Word 2067, Word 1831, Word 90, Word 100
DATA Word 1569, Word 1547, Word 2445, Word 1885, Word 1831, Word 750, Word 100

idx VAR Word
time1 VAR Word
pause1 VAR Word
pos1 VAR Word
pos2 VAR Word
pos3 VAR Word
pos4 VAR Word
pos5 VAR Word
pos6 VAR Word
pos7 VAR Word
pos8 VAR Word
pos9 VAR Word
pos10 VAR Word
INPUT 9
INPUT 7
PAUSE 1000
OUTPUT 15
OUT15 = 1

Main:
DO
IF (IN7 = 1) THEN
idx = 0
FOR idx = 0 TO 6
READ idx * 14, Word pos1
READ idx * 14 + 2, Word pos2
READ idx * 14 + 4, Word pos3
READ idx * 14 + 6, Word pos4
READ idx * 14 + 8, Word pos5
READ idx * 14 + 10, Word time1
READ idx * 14 + 12, Word pause1
SEROUT 1, 6, “#0P”, DEC pos1, " #1P", DEC pos2, " #2P", DEC pos3," #3P", DEC pos4," #4P", DEC pos5," T", DEC time1, 13]
PAUSE time1 + pause1
NEXT
ENDIF
IF (IN10 = 1) THEN
FOR idx = 0 TO 3
READ idx * 14, Word pos1
READ idx * 14 + 2, Word pos2
READ idx * 14 + 4, Word pos3
READ idx * 14 + 6, Word pos4
READ idx * 14 + 8, Word pos5
READ idx * 14 + 10, Word time1
READ idx * 14 + 12, Word pause1
SEROUT 1, 6, “#0P”, DEC pos1, " #1P", DEC pos2, " #2P", DEC pos3," #3P", DEC pos4," #4P", DEC pos5," T", DEC time1, 13]
PAUSE time1 + pause1
NEXT
ENDIF
LOOP
GOTO Main

So far I have tried increasing the IDX on the second sequence from 0 to 3 to 7 to 10. Also increased the pos1 to pos5 to pos6 to pos 10 and declaired each as words just like the first does for the first sequence. neither have worked. any help on this??

2

nevermind, i figured it out. haha

3

Would you mind posting the changes to your code that fixed it? There may be other who have the same problem…

4

Here is my working code. The trick was to understand that each DATA line at the top represents a sequence. Also the RIOS export does not add a number after the ‘Word’ at the end of each line, so I had to add a number to it in order for it to work. Here
I used 250 but I could use 100 as well as in the first example… Dont know why it does that.

The IDX = 0 to 7 is a puckup sequence and the idx = 8 to 12 is the drop sequence. So with this i was able to pick up an object with a signal at input 6, hold it and put it down with input 9.

’ {$STAMP BS2}
’ {$PBASIC 2.5}
’ ------------------------------------------------------
’ Lynxmotion RIOS SSC-32 ‘Export’ Program
’ RIOS SSC-32 project : Grab_Release
’ Date : 4/3/2007 5:15:17 PM
’ ------------------------------------------------------
’ Format : Basic Stamp 2 - PBasic 2.5
’ Original filename : Grab_Release.bs2
’ Arm : L5
’ Positions : Word (max accuracy, max memory used)
’ ------------------------------------------------------

DATA Word 1561, Word 2369, Word 2479, Word 1169, Word 1499, Word 1000, Word 250
DATA Word 1607, Word 2341, Word 2101, Word 825, Word 1899, Word 420, Word 250
DATA Word 1579, Word 1237, Word 1917, Word 1771, Word 1899, Word 1110, Word 250
DATA Word 1579, Word 619, Word 1657, Word 2155, Word 1899, Word 780, Word 250
DATA Word 1579, Word 643, Word 1763, Word 2221, Word 1415, Word 90, Word 250
DATA Word 1579, Word 1393, Word 1891, Word 1581, Word 1415, Word 990, Word 250
DATA Word 1579, Word 2331, Word 1955, Word 689, Word 1415, Word 1140, Word 1000
DATA Word 1579, Word 2327, Word 1949, Word 689, Word 1409, Word 30, Word 250
DATA Word 1579, Word 1515, Word 1975, Word 1537, Word 1409, Word 990, Word 250
DATA Word 1579, Word 717, Word 1947, Word 2321, Word 1409, Word 960, Word 250
DATA Word 1579, Word 705, Word 1861, Word 2253, Word 1899, Word 90, Word 250
DATA Word 1579, Word 1361, Word 2033, Word 1741, Word 1899, Word 720, Word 250
DATA Word 1579, Word 2369, Word 2231, Word 905, Word 1899, Word 870, Word 250

idx VAR Word
time1 VAR Word
pause1 VAR Word
pos1 VAR Word
pos2 VAR Word
pos3 VAR Word
pos4 VAR Word
pos5 VAR Word
OUTPUT 15
OUT15 = 1
INPUT 6
INPUT 9

PAUSE 500

Main:
DO
IF (IN6 = 1) THEN
idx = 0
FOR idx = 0 TO 7
READ idx * 14, Word pos1
READ idx * 14 + 2, Word pos2
READ idx * 14 + 4, Word pos3
READ idx * 14 + 6, Word pos4
READ idx * 14 + 8, Word pos5
READ idx * 14 + 10, Word time1
READ idx * 14 + 12, Word pause1
SEROUT 1, 6, “#0P”, DEC pos1, " #1P", DEC pos2, " #2P", DEC pos3," #3P", DEC pos4," #4P", DEC pos5," T", DEC time1, 13]
PAUSE time1 + pause1
NEXT
ENDIF
IF (IN9 = 1) THEN
idx = 8
FOR idx = 8 TO 12
READ idx * 14, Word pos1
READ idx * 14 + 2, Word pos2
READ idx * 14 + 4, Word pos3
READ idx * 14 + 6, Word pos4
READ idx * 14 + 8, Word pos5
READ idx * 14 + 10, Word time1
READ idx * 14 + 12, Word pause1
SEROUT 1, 6, “#0P”, DEC pos1, " #1P", DEC pos2, " #2P", DEC pos3, " #3P", DEC pos4," #4P", DEC pos5," T", DEC time1, 13]
PAUSE time1 + pause1
NEXT
ENDIF
LOOP

5

Hello Zachco, about the missing numbers, are you using the latest RIOS V1.04 ?
In the past, exporting a Basic project without pause between steps was resulting in "Word " instead of “Word 0”, it’s corrected in the V1.04.

this means too that you can use 0 instead of 100 ot 250, it’s the pause between steps in ms.

You can download RIOS SSC-32 V1.04 here (free update) :
lynxmotion.com/Product.aspx?productID=419&CategoryID=15