semaphore pic12f629

[mackrackit]

That is doable. If GP4 is LOW, making GP0 or GP1 or GP2 High will make the connected LED light. The same for GP5.

Being I do not know the sequence you want them to light here is an idea.

Your code will have the "blinking" sequence with multiple pauses. The value of the pauses will be held in a variable. A button will connect to GP3 as an interrupt. Every time the button is pushed the variable will increase by the amount you want. Once the highest value is reached the variable will reset to the lowest.

"VARIABLES
X VAR WORD:Y VAR WORD:Z VAR WORD

ON INTERRUPT GOTO MYINT
INTCON=%10001000
IOC = %00001000
'##############
'YOUR SEQUENCE
'##############
DISABLE
MYINT:
IF GPIO.3 = 1 THEN
    X = X * 10
    Y = Y ???
    Z = Z  ???
    pause 100
IF  X =>  ? THEN X  =  ??
IF  Y =>  ? THEN Y  =  ??
IF  Z =>  ? THEN Z  =  ??
INTCON.1 = 0
RESUME
ENABLE

Maybe something like that will work for you.

[Leonardo]

That is doable. If GP4 is LOW, making GP0 or GP1 or GP2 High will make the connected LED light. The same for GP5.

Being I do not know the sequence you want them to light here is an idea.

Your code will have the "blinking" sequence with multiple pauses. The value of the pauses will be held in a variable. A button will connect to GP3 as an interrupt. Every time the button is pushed the variable will increase by the amount you want. Once the highest value is reached the variable will reset to the lowest.

"VARIABLES
X VAR WORD:Y VAR WORD:Z VAR WORD

ON INTERRUPT GOTO MYINT
INTCON=%10001000
IOC = %00001000
'##############
'YOUR SEQUENCE
'##############
DISABLE
MYINT:
IF GPIO.3 = 1 THEN
    X = X * 10
    Y = Y ???
    Z = Z  ???
    pause 100
IF  X =>  ? THEN X  =  ??
IF  Y =>  ? THEN Y  =  ??
IF  Z =>  ? THEN Z  =  ??
INTCON.1 = 0
RESUME
ENABLE

Maybe something like that will work for you.

Hello,

This is a sequence that desire for the lights.

[aratti]

You can accomplish the result with only 3 output ports. Connect Red led A and Green led B from port one to ground; Green led A and Red led B from port one to + 5V (pay attention to the polarity). Yellow led A to port 2 and Yellow led B to port 3. When Port one is High the green/red leds (correctly polarized will lit) when port one will turn low you will switch on the second set of green/red leds.
With port 2 and 3 you modulate the yellows.

[Darrel Taylor]

This is a sequence that desire for the lights.

Are you sure about that sequence?

Don't they normally go Green-Yellow-Red?

[Leonardo]

Are you sure about that sequence?

Don't they normally go Green-Yellow-Red?

Darrel is the sequence .gif

[Darrel Taylor]

Darrel is the sequence .gif

Yes, but it looks like it's backwards.

<img src="http://www.picbasic.co.uk/forum/attachment.php?attachmentid=2968" />

[Leonardo]

Yes, but it looks like it's backwards.

<img src="http://www.picbasic.co.uk/forum/attachment.php?attachmentid=2968" />

Darrel sequence can be changed later by now we can start the code to get an idea of the operation, which you suggest?.

Thanks

[Darrel Taylor]

Well, ok.

But I accept no responsibility for the resulting accidents.

@ device  INTOSCIO, WDT_OFF, PWRT_OFF, MCLR_OFF, PROTECT_OFF, CPD_OFF 
DEFINE OSCCAL_1K 1

Green         CON 5000             ; mS to show Green Light
Yellow        CON 1000             ; mS to show Yellow Light
Tcalibrate    CON 480              ; Adjust for loop timing accuracy
;---------------------
Sequence      VAR BYTE             ; cycles through the 4 states
TimeCount     VAR WORD             ; Counts down sequence time

CMCON = 7                          ; Disable comparator
GPIO   = %110000                   ; Start with all LED's off
TRISIO = %001000                   ; Set LED ports to output

;---------------------------------------------------------------------------
Main:
  FOR Sequence = 0 to 3
    LOOKUP2 Sequence,[ Green,  Yellow,  Green,  Yellow], TimeCount
    REPEAT                                                   ; Multiplex
      LOOKUP Sequence,[%100001,%100011,%100100,%100100],GPIO ;  Tr. Light #1
      PauseUS Tcalibrate
      LOOKUP Sequence,[%010100,%010100,%010001,%010011],GPIO ;  Tr. Light #2
      PauseUS Tcalibrate
      TimeCount = TimeCount - 1
    UNTIL TimeCount = 0
  NEXT  Sequence
GOTO Main