Elapsed Timer Demo

[Darrel Taylor]

Jim,

I think that'll just flash it once at the 15 minute point.

This should work.

 Flashing VAR BIT

   IF MinutesChanged THEN
        MinutesChanged = 0
        IF Minutes = 15 THEN Flashing = 1
        IF Minutes = 20 THEN
            Flashing = 0
            HPWM 1, 0 , 30000
            POWER = 0
            LEDS = 0
            CURRENT = 0
        ENDIF
    ENDIF

    IF Flashing THEN
        SELECT CASE Ticks
          CASE IS <25 : HIGH LED
          CASE IS <50 : LOW  LED
          CASE IS <75 : HIGH LED
          CASE ELSE   : LOW  LED
        END SELECT
    ENDIF

[jmgelba]

Darrel, can this be used as a countdown timer with the time left updated each second and displayed on a LCD?

Thanks.

[Darrel Taylor]

It Can ...

But you would need to create the count down routine.
The demo only counts up.

[jmgelba]

OK thanks. I will play around with it and see what mess I can create.

[jmgelba]

Ticks = Ticks + 1
if Ticks = 100 then
Ticks = Ticks-100
Seconds = Seconds - 1
SecondsChanged = 1
if Seconds = 0 then
Minutes = Minutes - 1
MinutesChanged = 1 Seconds = 59
endif

if Minutes = 0 then
Hours = Hours - 1
HoursChanged = 1 Minutes = 59
endif

if Hours = 0 then
Days = Days - 1
DaysChanged = 1 Hours = 23
endif
endif

To my untrained eyes, this would count down the time at every 100 ticks. I guess the issue, if this works, is how to preloaded the timer with the required start time and how to get it to stop at 0.

[jmgelba]

Seem to be having an issue I cant resolve. I've only use the timer software on a 18F2550 and it worked perfectly. I'm now using a 18F1320 and I've ran into an issue when compiling.

ERROR Line 23: Redefinition of VAR. (DT_INTS-18.bas)
ERROR Line 24: Redefinition of VAR. (DT_INTS-18.bas)
ERROR Line 25: Redefinition of VAR. (DT_INTS-18.bas)

Which are these lines in the code:

wsave       var byte  BANKA  SYSTEM   ' location for WREG
ssave       var byte  BANK0  SYSTEM   ' location for STATUS register
bsave       var byte  BANK0  SYSTEM   ' location for BSR register

I am unsure as to what the problem is and where to start.

I'm using PBP 2.60A and MCS 3.0.0.5

[jmgelba]

Fixed the above issue.