Timer Of 40 Days 12f675 Or 16f628

[Leonardo]

Darrel,

You can explain to me as making it I don't understand and forgive my ignorance.

Thank you

Leonardo

Take a look at this Elapsed Timer Demo.

http://www.picbasic.co.uk/forum/showthread.php?t=190

Then, all you need to do is this...

Loop:
    if (DaysChanged= 1) and (Days = 40) then
        DaysChanged= 0
        Gosub ResetTime
        ' ... Do something here ...
    endif
Goto Loop

[Darrel Taylor]

Nope, Sorry! It's not going to work with the Demo version.

Come back after you buy PicBasic Pro, and I'll tell you all about it.
<br>

[Leonardo]

Darrel,

Can I make the program with the version demo, if it is can he/she tell this way me as?.

Thank you again

Nope, Sorry! It's not going to work with the Demo version.

Come back after you buy PicBasic Pro, and I'll tell you all about it.
<br>

[Darrel Taylor]

Well, if it doesn't need to be exact, you might do something like this.

Minutes   VAR  Byte
Hours     VAR  Byte
Days      VAR  Byte

Wait40Days:
    For Days = 1 to 40
        For Hours = 1 to 24
            For Minutes = 1 to 60
                PAUSE 60000         ; 60 Seconds
            Next Minutes
        Next Hours
    Next Days

<BR><BR>

[Leonardo]

Hello Darrel,

Thank you for the code, I want that when push RB.0 he lights the led on RB.1 after the fixed time lapses I have carried out the tests and I have not been able to make it work, you can help me and to say eats up I please make it.

I am using a PIC16F628.

Thank you

Well, if it doesn't need to be exact, you might do something like this.

Minutes   VAR  Byte
Hours     VAR  Byte
Days      VAR  Byte

Wait40Days:
    For Days = 1 to 40
        For Hours = 1 to 24
            For Minutes = 1 to 60
                PAUSE 60000         ; 60 Seconds
            Next Minutes
        Next Hours
    Next Days

<BR><BR>

[Darrel Taylor]

<table><tr><td nowrap><img src="http://toons.artie.com/alphabet/ralph/arg-n-50-trans.gif"><img src="http://toons.artie.com/alphabet/ralph/arg-o-5O-tRr-a-pl0ase-ns.gif"></td></tr></table><br><br>
Try going here... http://www.melabs.com/resources/index.htm#Manuals<br><br>

[Leonardo]

Hello Darrel, I have bought the PBP and I am happy, if I need its aid I can write to him?.

Thanks

Leonardo

<table><tr><td nowrap><img src="http://toons.artie.com/alphabet/ralph/arg-n-50-trans.gif"><img src="http://toons.artie.com/alphabet/ralph/arg-o-5O-tRr-a-pl0ase-ns.gif"></td></tr></table><br><br>
Try going here... http://www.melabs.com/resources/index.htm#Manuals<br><br>

[Leonardo]

Darrel,

You helps me with the code so that it works.

Thank you


'************************************************* ***************
'* Name : TIMER 40 DAYS.BAS *
'* Author : [select VIEW...EDITOR OPTIONS] *
'* Notice : Copyright (c) 2005 [select VIEW...EDITOR OPTIONS] *
'* : All Rights Reserved *
'* Date : 13/08/05 *
'* Version : 1.0 *
'* Notes : *
'* : *
'************************************************* ***************
' Turn LED on. Interrupt on PORTB.0 (INTE) turns LED off.

PUSH VAR PORTB.0
LED var PORTB.1


Minutes VAR Word
Hours VAR Word
Days VAR Word


loop:
HIGH LED
GOTO LOOP


OPTION_REG = $7f


Wait40Days:
For Days = 1 to 40
For Hours = 1 to 24
For Minutes = 1 to 60
PAUSE 60000 ; 60 Seconds
Next Minutes
Next Hours
Next Days

Well, if it doesn't need to be exact, you might do something like this.

Minutes   VAR  Byte
Hours     VAR  Byte
Days      VAR  Byte

Wait40Days:
    For Days = 1 to 40
        For Hours = 1 to 24
            For Minutes = 1 to 60
                PAUSE 60000         ; 60 Seconds
            Next Minutes
        Next Hours
    Next Days

<BR><BR>