No Title

Tue, 30 Nov 1999 00:11:00 EST

Kresimir,

The SetArrayVariable will expect a 1 dimensional array (i.e. a list of numbers). You are creating a two dimensional array which it will ignore. The reason for this is to keep things simple in terms of exporting and referencing arrays ... as not all the other scripting modules also have the concept of two dimensional arrays.

Instead, just double up, i.e. if you want to index the 10th row, use 10*2 and assume the array is double the size. In other words, simulate a 2 dimensional array using a single dimension.

STeven.

Setting array variable problem

Tue, 30 Nov 1999 00:11:00 EST

Have a problem with SetArrayVariable ... sometimes it works but in this example it appears it does not work - here is a code snippet ... I expected to see AN1 as an array variable in WATCH Variable module but AN1 does not show at all.

Can you point me where the problem might be?

Blobs = GetArrayVariable("BLOBS")
NoA = GetVariable("NumOfABox")
ABH = GetVariable("ABoxHeight")
ABW = GetVariable("ABoxWidth")
ABG = GetVariable("ABoxGap")
AH = GetVariable("AHeight")

ReDim Results(NoA,2)
for i = 0 to NoA-1
  Results(i,0) = "-"
  Results(i,1) = "-"
next

if isArray(Blobs) then
  BCount = (ubound(Blobs) + 1) / 2

  if BCount >= 1 then

    ReDim YBoxes(NoA,2)
    Y_Begin = AH
    for i = 0 to NoA-1
      YBoxes(i,0) = Y_Begin
      YBoxes(i,1) = Y_Begin - ABH
      Y_Begin = Y_Begin - ABH - ABG
    next

    ReDim XBoxes(4,2)
    X_Begin = 0
    for i = 0 to 4-1
      XBoxes(i,0) = X_Begin
      XBoxes(i,1) = X_Begin + ABW
      X_Begin = X_Begin + ABW
    next

    for j = 0 to BCount-1
      x = Blobs(j*2)
      y = Blobs(j*2+1)
        for i = 0 to NoA-1
        if (y >= YBoxes(i,1)) and (Y <= YBoxes(i,0)) then
          if (x >= XBoxes(0,0)) and (x <= XBoxes(0,1)) then
            if (Results(i,0) = "-") or (Results(i,0) = "S") then
              Results(i,0) = "S"
            else
              Results(i,0) = "?"
            end if
          elseif (x >= XBoxes(1,0)) and (x <= XBoxes(1,1)) then
            if Results(i,0) = "-" or (Results(i,0) = "I") then
              Results(i,0) = "I"
            else
              Results(i,0) = "?"
            end if
          elseif (x >= XBoxes(2,0)) and (x <= XBoxes(2,1)) then
            if Results(i,0) = "-" or (Results(i,0) = "R") then
              Results(i,0) = "R"
            else
              Results(i,0) = "?"
            end if
          elseif (x >= XBoxes(3,0)) and (x <= XBoxes(3,1)) then
            Results(i,1) = "A"
          else
            ' This should never happen
          end if
          exit for
                end if
            next
    next
  end if
end if

SetArrayVariable "AN1", Results

RoboRealm Forum

No Title

Setting array variable problem