Help with loops..

[xobx]

If I want LED1 to blink 3 times and then LED2 3 times is there an "easier" way than this:

LED1 var PORTB.1
LED2 var PORTB.2

loop:
HIGH LED1
PAUSE 500
LOW LED1                     'blink 1
PAUSE 500

HIGH LED1
PAUSE 500
LOW LED1                     'blink 2
PAUSE 500

HIGH LED1
PAUSE 500
LOW LED1                     'blink 3
PAUSE 500

HIGH LED2
PAUSE 500
LOW LED2                     'blink 1
PAUSE 500

HIGH LED2
PAUSE 500
LOW LED2                     'blink 2
PAUSE 500

HIGH LED2
PAUSE 500
LOW LED2                     'blink 3
PAUSE 500

GOTO loop
END

Cant you only make something like this and get loop1 to repeat only 3 times and then start loop2.. ?

LED1 var PORTB.1
LED2 var PORTB.2

loop1:
HIGH LED1
PAUSE 500
LOW LED1                     
PAUSE 500
GOTO loop1

loop2
HIGH LED2
PAUSE 500
LOW LED2                     
PAUSE 500
GOTO loop2

END

So I want a loop that repeats itself 3 times and then starts loop2, how do I do that?

[Melanie]

To execute a loop three times...

Example 1

	CounterA var Byte

	..

	For CounterA=0 to 2
		HIGH LED1
		PAUSE 500
		LOW LED1                     
		PAUSE 500
		Next CounterA

In the above example, counting starts at zero... it's the same as specifying

	For CounterA=1 to 3

Example 2

	CounterA var Byte

	..

	CounterA=3
	While CounterA>0
		CounterA=CounterA-1
		HIGH LED1
		PAUSE 500
		LOW LED1                     
		PAUSE 500
		Wend

I'm sure a few more examples can be had too... but that's a starter...

[Bruce]

X VAR BYTE
LED1 VAR PORTB.1
LED2 VAR PORTB.2

Main:
    X = 0
    REPEAT
      HIGH LED1
      PAUSE 500
      LOW LED1
      PAUSE 500
      X = X + 1
    UNTIL X = 3 ' pulse LED1 3 times
    
    REPEAT
      HIGH LED2
      PAUSE 500
      LOW LED2
      PAUSE 500
      X = X + 1
    UNTIL X = 6 ' pulse LED2 3 times
    GOTO Main

    END

[SteveB]

Not to make this a contest of "How many ways can you...", but I thought another example, using different logic, would also be instructive.

X VAR BYTE
LED1 VAR PORTB.1
LED2 VAR PORTB.2



    X = 0		' Reset Iteration Count
Loop:
    IF X < 3 THEN	' Iterations 0,1,2
	HIGH LED1
      	PAUSE 500
      	LOW LED1
      	PAUSE 500
    ELSE		' Iterations 3,4,5
      	HIGH LED2
      	PAUSE 500
      	LOW LED2
      	PAUSE 500
    ENDIF
    X = X + 1		' Increment Iteration Count
    IF X < 6 THEN Loop  ' Loop back if less than 6 iterations

    END

So, now you have examples using all of the following:

FOR...NEXT
WHILE...WEND
REPEAT...UNTIL
IF...THEN

All of these will produce the same results, just with subtle differences in the logic used to accomplish the task, making this tread a nice little study.

HTH,
SteveB