semaphore pic12f629

**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:28

Originally Posted by Bruce

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}

Bruce,

It is just an example of operation.

Thank you

**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.

**Darrel Taylor** · - 5th November 2008, 07:18

Just change the numbers in the LookUp's.

LOOKUP Sequence,[%100001,%100011,%100100,%100100],GPIO ; Tr. Light #1

Code:

    %100001
     || |||
     || ||Red
     || |Yellow
     || Green
     |0=Tr.Light #1
     0=Tr.Light #2

**Leonardo** · - 5th November 2008, 11:14

Originally Posted by Darrel Taylor

Just change the numbers in the LookUp's.

LOOKUP Sequence,[%100001,%100011,%100100,%100100],GPIO ; Tr. Light #1

Code:

    %100001
     || |||
     || ||Red
     || |Yellow
     || Green
     |0=Tr.Light #1
     0=Tr.Light #2

Darrel excellent works ok, I will add other features and when they finish the code public.

Thank you very much

**Leonardo** · - 5th November 2008, 22:45

Ready already got!.

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