Do Loop Error...

NFOBoy said:

So while doing a check for conditions using a Do While Loop, I came upon something that put me into a tailspin.

My goal is to analyze a users input and compare their character to a reference character, so I use a CharacterMap to store all their input.

(The commented out code below is the Do While Loop)

CharacterMap is a list of points that I am evaluating to see if they cross each other. I iterate through the points, and if the points match, I add markers (the .hasCross). This code then takes the start of a .hasCross situation and puts all the points in-between into a smaller list, so I can analyze the properties of those points. (to see if the shape is round enough to qualify as a loop)

Was working great, and then on one character I started getting some very strange behavior in my program.

You can see that I added q=638, so that I could freeze the program there during a debug session. While watching the code line by line, when q = 648 (I added the 649 to see if 648 was the problem), and EndPoint clearly not meeting the parameters for the Do While Loop, code continued OUT of the Do While Loop. (size of this particular Map was 1440 or so)

Eventually, I changed it to the If.. Next instead, and the code works great again.

But, why would this have happened? Is there a memory issue that Do While Loops have? Is there something basic in the code comparison I'm missing? (I don't think so, as it worked for many test cases before, including loops within that test character)

Anyone else have this kind of error?

Ross

(sorry about the bad variable names (CrossPointMPOrder and OriginalMaOrder, this is because when reading a Map back in from a file, I put it back into the order that it was saved, and I discoverd that I can't parse out MapOrder by itself when looking for it as a string inside each element... changing the name for each of the other two fixed that! Poor I know, but too much time invested in creating the original character files!)

B4X:

Dim StartPoint, EndPoint As Point
Dim q As Double 'changed this to double as I was seeing if because q was int, that was the problem
Dim j As Int
   Dim TestCharacter As Map
   TestCharacter.Initialize
   
   Dim startmarker As Int 'used to look for loops within loop ends
   Dim boolLoopExists As Boolean
'   
   For i = 0 To CharacterMap.Size - 1 'start at beginning of the drawn character, analyzing point by point in the touch map
      StartPoint = CharacterMap.GetValueAt(i) 'iterate through the map
      If StartPoint.hasCross Then 'found a point with .hasCross... now need to fill up a new CharacterMap with this point and all succeeding points until the point where it crossed is reached
         If i+1 > CharacterMap.Size - 1 Then 'this will handle the case that for some reason the last point has a .hasCross and no more points after it.
            StartPoint.hasCross=False 'since no match for the last point.. reset it to False
            Exit
         Else
            EndPoint = CharacterMap.GetValueAt(i+1) 'look at each successive character to find the match
            q = i 'used to track thru the character map FROM the point that has the .hasCross
            TestCharacter.Put(TestCharacter.Size, StartPoint) 'add the Start Point to the front of the character map
            For q = i + 1 To CharacterMap.Size - 1 'will go thru from StartPoint and add all successive non-cross points
               If  StartPoint.CrossPointMpOrder = EndPoint.originalMaOrder AND StartPoint.originalMaOrder = EndPoint.CrossPointMpOrder _
                  AND EndPoint.hasCross = True Then
                  j = q 'inside this test means that there is a match.. so the EndPoint has been found
                  q = CharacterMap.Size-1 'forces the exit from the loop
                  Exit 'again forces the exit'' double redundant.. hey I was tired!
               Else
                  If EndPoint.hasCross AND Not(boolLoopExists) Then
                     startmarker = q 'if in here, then a point exists in-between that MAY be another loop, so mark it so not forget to start looking from here next iteration
                     boolLoopExists = True 'so know if to use startMarker...
                  End If
               TestCharacter.Put(TestCharacter.Size, EndPoint) 'this add the current EndPoint, which is not the TRUE endpoint to the map
               End If
               EndPoint= CharacterMap.GetValueAt(q)'to to next point and evaluate
            Next
            
'            Do While StartPoint.CrossPointMpOrder <> EndPoint.originalMaOrder AND StartPoint.originalMaOrder <> EndPoint.CrossPointMpOrder _
'                  AND EndPoint.hasCross <> True 'same thing as up top except in a do.. while loop
'               TestCharacter.Put(TestCharacter.Size, EndPoint) 'condition not met, put in the map
'               If q > CharacterMap.Size -1 Then 'force out of this do while loop, as the end of the map has been reached
'                  Exit
'               Else
'                  EndPoint = CharacterMap.GetValueAt(q) 'go to next endpoint
'               End If
'            Loop
            'put a box around the test character

            If checkLoopShape(TestCharacter) = False Then
               'do stuff to get rid of startpoint and endpoint
               StartPoint.hasCross = False
               EndPoint.hasCross = False
            Else
               'if there was a loop.. then no double loops!
               boolLoopExists = False
            End If
            
            TestCharacter.Initialize 'reset the CharaterMap
            If boolLoopExists Then 'no need to look at all the points in between again.. unless another loop possibily exists inside this one
               i = startmarker - 2
               boolLoopExists = False
            Else
               i = j+1 'start looking at the main map from where we already looked in q loop, 
            End If
         End If
      End If
   Next[/QUOTE]

Click to expand...