How to use For Next Loop to run sequence light ?

[Bracer]

@ DEVICE pic16F628A, INTRC_OSC_NOCLKOUT, MCLR_OFF
CMCON = 7
 
Counter var Byte
Counter = 0
 
Routine:
 
For Counter = 0 to 6
High PortB.Counter
Next Counter
 
pause 500
 
For Counter = 0 to 6
Low PortB.Counter
Next Counter
 
pause 500
 
GoTo Routine

Apparently:

High PortB.Counter

and

Low PortB.Counter

is giving me errors, I could have done this with no errors:

For Counter = 0 to 6
High Counter
Next Counter

but this will be a PICBasic command and I will not be able to control PortA.

How do I use the For Next Loop to handle PortA too ?

Hi,

PortA.something ... something must be a CONSTANT ...

so, try indexing PortA

PortA.0[counter] = 1 
; OR
HIGH PortA.0[counter]

Should compile fine.
Alain

[Bracer]

I've tried it, and it does compile

Unfortunately, when I put it in my circuit, only PortB.0 Blinks!
Ooo Nooooo!!!!

@ DEVICE pic16F628A, INTRC_OSC_NOCLKOUT, MCLR_OFF
CMCON = 7

Counter var Byte

SubRoutine:

For Counter = 0 to 2
high PortB.0[Counter]
high PortA.0[Counter]
Next Counter

Pause 500

For Counter = 0 to 2
Low PortB.0[Counter]
Low PortA.0[Counter]
Next Counter

pause 800
Goto SubRoutine

[rsocor01]

I've tried it, and it does compile

Unfortunately, when I put it in my circuit, only PortB.0 Blinks!
Ooo Nooooo!!!!

Include this lines in your program

TRISA = 0 ' Make them all outputs
TRISB = 0

Robert

[Bracer]

Thanks.

Ok Now all the LEDs light up.

BUT only PortB.0 and PortB.1 Blinks.

Again, this the code:

@ DEVICE pic16F628A, INTRC_OSC_NOCLKOUT, MCLR_OFF
CMCON = 7
TRISA = 0 ' Make them all outputs
TRISB = 0

Counter var Byte

SubRoutine:

For Counter = 0 to 2
high PortB.0[Counter]
high PortA.0[Counter]
Next Counter

Pause 600

For Counter = 0 to 2
Low PortB.0[Counter]
Low PortA.0[Counter]
Next Counter

pause 100
Goto SubRoutine

[Acetronics2]

Thanks.

Ok Now all the LEDs light up.

BUT only PortB.0 and PortB.1 Blinks.

Again, this the code:

@ DEVICE pic16F628A, INTRC_OSC_NOCLKOUT, MCLR_OFF
CMCON = 7
TRISA = 0 ' Make them all outputs
TRISB = 0
 
Counter var Byte
 
SubRoutine:
 
For Counter = 0 to 2
high PortB.0[Counter]
high PortA.0[Counter]
Next Counter
 
Pause 600
 
For Counter = 0 to 2
Low PortB.0[Counter]
Low PortA.0[Counter]
Next Counter
 
pause 100
Goto SubRoutine

Hi, Bracer

I suspect a RMW issue ... as HIGH and LOW already cares of driving inputs and outputs

How much current do you send to your Leds ???

try to limit it to 5 mA per Led ... as a first try.

as a second try ...

@ DEVICE pic16F628A, INTRC_OSC_NOCLKOUT, MCLR_OFF
CMCON = 7
TRISA = 0 ' Make them all outputs
TRISB = 0
 
Counter var Byte
 
SubRoutine:
 
PORTA = PORTA | % 00000111
PORTB = PORTB | % 00000111
Pause 600
 
PORTA = PORTA & % 11111000
PORTB = PORTB & % 11111000
 
pause 100
 
Goto SubRoutine

a scheme of your circuit really would be welcome ...

Alain

[Bracer]

I am getting a

WARNING Line 20: Bad token "%".
WARNING Line 21: Bad token "%".
WARNING Line 24: Bad token "%".
WARNING Line 25: Bad token "%".
WARNING Line 24: 11111000 Numeric overflow, value truncated. (Test.pbp)
WARNING Line 25: 11111000 Numeric overflow, value truncated. (Test.pbp)

When I copy and paste the code your exact codes.


You are right Acetronics, I am using a +6V, but I did try the manual "High PortA.0" way to manually set each pin and it works.
Every single pins are all functional, so it couldn't have been a pin damage issue.

The schematic is really empty, Pin 5 to the negative and Pin 14 to the positive,
PortB.0 ~ PortB.2 to LEDs.
PortA.0 ~PortA.2 to LEDs, that's all.