semaphore pic12f629

**Leonardo** · - 3rd November 2008, 15:27

Originally Posted by 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.

Code:

"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** · - 3rd November 2008, 16:46

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** · - 4th November 2008, 01:10

Originally Posted by Leonardo

This is a sequence that desire for the lights.

Are you sure about that sequence?

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

**Leonardo** · - 4th November 2008, 01:19

Originally Posted by Darrel Taylor

Are you sure about that sequence?

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

Darrel is the sequence .gif

**Darrel Taylor** · - 4th November 2008, 01:22

Originally Posted by Leonardo

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** · - 4th November 2008, 01:25

Originally Posted by Darrel Taylor

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** · - 4th November 2008, 01:56

Well, ok.

But I accept no responsibility for the resulting accidents.

Code:

@ 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

**Bruce** · - 4th November 2008, 07:46

Pleeeeeeease don't install these traffic lights in Colorado.

My wife thinks;

Green = go
Yellow = go really fast
Red = stop if you can

Would really screw up the natural order of things..;o}

**Leonardo** · - 4th November 2008, 12:26

Originally Posted by Darrel Taylor

Well, ok.

But I accept no responsibility for the resulting accidents.

Code:

@ 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

Darrel,

You notice how it works.

Thank you

**Leonardo** · - 5th November 2008, 00:16

Originally Posted by Darrel Taylor

Well, ok.

But I accept no responsibility for the resulting accidents.

Code:

@ 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

Hello friends,

Upss was wrong with the sequence of lights here correct.

**Leonardo** · - 5th November 2008, 01:26

Originally Posted by Darrel Taylor

Well, ok.

But I accept no responsibility for the resulting accidents.

Code:

@ 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

Hummm,

The code works very well but I want to change the sequence of image.

How can I change the code with this sequence.

Thread: semaphore pic12f629

Thread Tools

Search Thread

Display

Hybrid View

Whew

Similar Threads

pic12f629 EEPROM problem in MPLABSIM

PIC12F629 - OSCCAL LOST in combat

Ultrasound with PIC12F629

PIC12F629, useing all I/O pins

PIC12F629 or 8pin

Members who have read this thread : 0

Bookmarks

Bookmarks

Posting Permissions