Timer PIC16F57

[Dwayne]

Hello Leonel,

Leonel

If it´is pressed i turn on the relay and stays on for 20s or 40s (depending the position of a switch). If one button is pressed while one relay is on the time goes to begin and the two relays stays on again 20s or 40s.

Hummm....I see a 40 second delay.... not a twenty second delay... thus a new variable has been added

Ok. let me get this straight...(correct me if I am wrong).

1. You have 8 LED's (or relays).
2. You have 1 switch that is connected to some kind of software relay that says 20 or 40 seconds. (I am going to assume you have this switch set to the 20 second position for this message)
3. If #1 button is pressed, it will turn on relay 1 for 20 seconds (or 40, depending upon if the HighLow software switch is on or off) If a second button is pressed BEFORE the first relay resets, Both the first Relay and the NEW relay (The one that you just got through pressing) stays on for at LEAST another 20 seconds.
4. If another button (lets say relay #3) is pressed BEFORE Button 1 and 2 go off in their allowed time, all 3 relays will be active for at least another 20 seconds..
5. But at ANY time, there is a 20 second interval of NO button pressing, all the relays will turn off....

Is this correct?

Dwayne

[Dwayne]

Hello Leonel,

I am going to assume what I posted was correct...Here is some code to look at...Using my code, I added just a few things to allow for all your switches.

Switching var byte;
Counter1 var word
  Counter2 Var word
  Loop:
  Counter1=0
  Counter2=0
  Loop2:
   if Counter1< 20
     if Counter2 <1000
     if switching=1 then Pause 1  'Pause 1/1000 of a second to make 20
     if switching=0 then Pause 2  'Pause 1/500 of a second to make 40

     if Portb.0=1 then 
            turn on switch.
            goto Loop
      endif

      if Portb.1=1 then 
            turn on switch.
            goto Loop
      endif

      if Portb.2=1 then 
            turn on switch.
            goto Loop
      endif

      ....
      ....    (for each of your eight switches)


        Counter2=Counter2+1;
     Endif
     
     if(Counter2>=1000)
       Counter1=Counter1+1;
       counter2=0;
     endif
   endif
   if Counter1<20 goto Loop2

  Portb=0;  'turn off ALL of the switches!
  Blink light = on
  Pause 200  'pause 1/5 of a second to light up the light.
  Blink Light = off
  goto Loop:

The above code will take care of your switches, but the problem comes with your Blinky light every 20 seconds. If a person keeps pressing switches, your light will not blink every 20 seconds. Thus some kind of internal timer is needed to take care of your blinky to have it blink every 20 seconds.

Dwayne

[leonel]

Yes... all your 5 points are correct. If you understand my code that´s a good beginning!
Thank you!

[Dwayne]

Hello Leonel,

Yes, I pretty much understood your code...

Just a couple of suggestions.

If and then statements...

If a "IF statement has only one statement, you do not need a "endif".


The if statement below NEEDS a endif

  If a > b then
       c=d
       d=f
       f=g
   endif

this does not need a endif statement;

  if  a=b then c=d
  ...
  ...
  if d=f then d=g
  ....

This will help you on your code space and readability...(Of course I must look whos speaking too <chuckle> I think my code is some of the hardest to read <g>)

Dwayne

[Dwayne]

Hello Leonel,,

just had a brain fart to take care of your blinky light...

Switching var byte;
  LightCount var Word
  Counter1 var word
  Counter2 Var word
  LightCount=0
  Loop:
  Counter1=0
  Counter2=0
  Loop2:
   if Counter1< 20
     if Counter2 <1000
     if switching=1 then Pause 1  'Pause 1/1000 of a second to make 20
     if switching=0 then Pause 2  'Pause 1/500 of a second to make 40

     LightCount=LightCount+1
     If LightCount=20000 then
       LightCount=0
       Blink light = on
       Pause 200  'pause 1/5 of a second to light up the light.
       Blink Light = off
     endif


     if Portb.0=1 then 
            turn on switch.
            goto Loop
      endif

      if Portb.1=1 then 
            turn on switch.
            goto Loop
      endif

      if Portb.2=1 then 
            turn on switch.
            goto Loop
      endif

      ....
      ....    (for each of your eight switches)


        Counter2=Counter2+1;
     Endif
     
     if(Counter2>=1000)
       Counter1=Counter1+1;
       counter2=0;
     endif
   endif
   if Counter1<20 goto Loop2

  Portb=0;  'turn off ALL of the switches!
  goto Loop:

I put a separate counter for the blinky... stuck the blinky in the routine so that it will be called all the time, removed it from the end of the routine and since you said it doesn't matter too much on the exact time.... well...

Dwayne

[leonel]

I´m sorry to start by a blinky light, but my english it´s not good to explain in detaill all things, so i´ve put a simple question
I´m used to finish with endif, but if it´s better for my code space i´ll follow your advise!
Just another question: my code after compiling gives me this warning " "Crossing page boundary -- ensure page bits are set." i don´t have to worry, because PBP takes care of this problem???!!! I don´t have any branch instruction so that´s ok (pag.13 of PBP manual), my code will work great! Correct?

[Dwayne]

Hello Leonel,

Leonel

I´m sorry to start by a blinky light, but my english it´s not good to explain in detaill all things, so i´ve put a simple question

That is fine Leonel... Even I have problems... so you and I are in the same boat together... We can wave flags at each other, and sink with the ship...at least we will have a little fun.

I´m used to finish with endif, but if it´s better for my code space i´ll follow your advise!

This is not a requirement Leonel... This is all up to you and your preference. You may code anyway that makes you understand it. I only made a suggestion, to show you a different way how to code. I have been corrected many times on my coding!... Sometimes I change, sometimes I don't. As long as the code compiles, and I understand it... its fine with me.

Just another question: my code after compiling gives me this warning " "Crossing page boundary -- ensure page bits are set." i don´t have to worry, because PBP takes care of this problem???!!! I don´t have any branch instruction so that´s ok (pag.13 of PBP manual), my code will work great! Correct?

You shouldn't have to worry about crossing page boundary... PBP takes care of that... I only question is why??? I don't think you have 2 k of code there... but I could be wrong. But you should not have to worry about this warning.

Now about your code... If you notice my tag, one of the statements is: "Compile something that runs" There is no guarantee on your code (or my code) running to do the job you want it to do. Since I have no way how to test it, I can only give you code that is Close to what I think you are wanting.

Remember, the code I am giving you is a "shell" around your "Secret weapon" That shell is taking care of a blinky light, taking care of your 20 and 40 second timing, and also checking your switches. I noticed on your code, that my routine was used as a kind of subroutine. This may get you into a little trouble...with how your program works. But you can try it!...

Since you said the blinky light can be off by a few seconds, I made the code as a shell. A shell is the part that fits around your program and stuff. What will vary your blinky light, will be the code in my shell. But I am betting that the computer is so fast, that your code will not make that much difference between the blinky lights.

I also noticed you used a Pause 1000 . That is a 1 second delay...That means if you are pushing a button, you may have to hold it for at least 1 second! If this is ok with you, great.

My biggest question is:

Do you fully understand what my code is doing? Do you fully understand that it is a shell, and how it is taking care of the timing, switch checking, and blinky light? Do you know where to insert your code, so that my code will work like it should? I only ask these questions, because it seems you are using it as a kind of Subroutine. (I have not studied your code to fully comprehend it, but I just picked up on a few little things that made me wonder).


Dwayne

[leonel]

Yes i understand your code and your right, i´m using it with a subroutine, and with your explanation i understand what a shell is (an oil pump )
I used your code with a little modifications... now i have to build my hardware and test it.
I know that with pause the program doesn´t check anything, but in this case (only in 2 inputs), there´s no problem. If you see i'll make some of my outputs high during 20s or 40s with pause. and in this time i don´t want to see any input.