Counting down while gradually flashing and waiting for a button push.

[IAmTheAnswer]

I started using DT's Interrupt Routine.

I have

- a switch
- a led

I now want to count from a given number z (between 7200 seconds and 180 seconds) to zero. While this happens, the led should flash. Say z is at it's beginning then the led's on and off-time equals 800ms. Then this should gradually decrease to 50ms when it's 1 or zero.
At all this time the code should watch for the switch to be pressed. If it is, the counting and flashing should stop. When the switch is pressed again, it should continue counting and flashing.

I tried so much. I tried using a while...wend loop, put the counting in and started the interrupt with the flashing led before. That did not work - it never took z seconds. Then I put the flashing light in the main routine and the counting in the interrupt routine. Still issues.

I guess this has been done before. How would you approach this?

I'd be happy if you shared some code.

[sayzer]

Post your code(s) that you worked on.
Then lets us see what you have done. Lets modify yours, so your work is not wasted !

____________________________

[IAmTheAnswer]

This code waits for one of 3 buttons to be pushed. Depending on which button is being pushed zaehler (equals z) changes.

"If Timerzaehler = 781 AND Zeit = 400 Then" means that 781 times interrupt timer0 should be close to 400ms being elapsed.

Having done all the counting, a song is being played which should be stopped by pressing a button.

  Starten:
    'PICProg-Einstellungen
      DEFINE OSC 4
      INCLUDE "DT_INTS-14.bas"     ' Base Interrupt System
      INCLUDE "ReEnterPBP.bas"     ' Include if using PBP interrupts
      INCLUDE "Elapsed_INT.bas"    ' Elapsed Timer Routines
    'Initialisierung
      INTCON = 0
      CMCON = 7
      TRISB = %01111000
      TRISA = %11111111
    'Variablen
      Position VAR WORD
      TimerZaehler VAR WORD
      Lied_Zuende VAR BIT
      Zaehler VAR WORD
      Zeit VAR WORD
      Prozent VAR WORD
      Zaehlervariable VAR Word
      LiedPausenzeit Var Word
      WH Var Word
      AePosition Var Word
      LED_Lied VAR BIT
    'Hardwarezuweisungen
      Aufnahme_Taster VAR PORTA.2
      Stop_Taster VAR PORTA.3
      Abspielen_Taster VAR PORTA.4
      LED_Aufnahme VAR PORTB.0
      LED_Stop VAR PORTB.1
      LED_Start VAR PORTB.2
      Lautsprecher VAR PORTB.7
    'Konstanten
      Ja CON 1
      Nein CON 0
      Gedrueckt CON 0
      Frei CON 1
      Aus CON 0
      An CON 1 
      LED CON 0
      Lied CON 1   

ASM
INT_LIST  macro    ; IntSource,        Label,  Type, ResetFlag?
        INT_Handler   TMR0_INT,  _LEDAnAus,   PBP,  yes
    endm
    INT_CREATE               ; Creates the interrupt processor
ENDASM

'T1CON = $1                ; Prescaler = 4, TMR0ON
OPTION_REG = $80


        

Einschalten:
	while Ja = Ja
		Beginn:
		'Warten auf Start, Aufnahme oder Stop
		Position = 1
		Lied_Zuende = Nein
		LED_Lied = LED
		
		if Abspielen_Taster = Gedrueckt then
            Pause 500
        	Zaehler = 1260
        	Gosub Gleichbleibend
        	LED_Aufnahme = Aus
			GOSUB RedRedWine
		else
			if Stop_Taster = Gedrueckt then
                Pause 500
    			Zaehler = 180
    			Gosub Gleichbleibend
    			LED_Aufnahme = Aus
    			GOSUB RedRedWine
			else
				if Aufnahme_Taster = Gedrueckt then
                    Pause 500				
					Zaehler = 7200
        			Gosub Gleichbleibend
        			LED_Aufnahme = Aus
        			GOSUB RedRedWine
 				EndIf
			EndIf
		EndIf
		
	WenD
	END
	
Inhalt:
    Toggle LED_Aufnahme
    Timerzaehler = 0
    WH = WH - 1
Return
	
LEDAnAus:
    TimerZaehler = TimerZaehler + 1
    If Timerzaehler = 781 AND Zeit = 400 Then
        Gosub Inhalt
    ELSE
        If Timerzaehler = 391 AND Zeit = 200 Then
            Gosub Inhalt    
        Else
            If Timerzaehler = 195 AND Zeit = 100 Then
                Gosub Inhalt    
            Else    
                If Timerzaehler = 98 AND Zeit = 50 Then
                    Gosub Inhalt  
                EndIf
            EndIf
        EndIf
    EndIf  
@ INT_RETURN  	

Abspielen:
Zaehler = Zaehler * 1000

WH = DIV32 Zeit
WH = WH / 4
TimerZaehler = 0
@ INT_ENABLE  TMR0_INT     
WHILE WH >= 1
    if Abspielen_Taster = Gedrueckt OR Aufnahme_Taster = Gedrueckt OR Stop_Taster = Gedrueckt then
@ INT_DISABLE  TMR0_INT         
    	Pause 500
    	WHILE Abspielen_Taster = Frei AND Aufnahme_Taster = Frei AND Stop_Taster = Frei
    	WEND
    	Pause 500
@ INT_ENABLE  TMR0_INT        	
    EndIf
Wend
@ INT_DISABLE  TMR0_INT     
Zaehler = Zaehler / 1000
Return
    
Liedpause:
    Return      

RedRedWine:
    LED_Lied = Lied
	'While Lied_Zuende = Nein And Abspielen_Taster = Frei And Aufnahme_Taster = Frei And Stop_Taster = Frei 
	While Abspielen_Taster = Frei And Aufnahme_Taster = Frei And Stop_Taster = Frei 
        Sound Lautsprecher,[0,0,104,44,0,8,109,44,0,8,110,94,0,13,106,94,0,120,112,39,0,0,114,39,0,0,0,26,0,0,114,46,0,0,110,39,0,0,106,114]
        Sound Lautsprecher,[0,127,112,33,0,0,114,39,0,0,0,26,0,0,114,39,0,0,110,39,0,0,110,71,0,170,106,39,0,0,104,39,0,0,101,26,0,0,104,39]
        Sound Lautsprecher,[0,0,106,12,0,0,104,147]
	Wend
	High LED_Aufnahme  
    Pause 1000
    PORTB.7 = 0 'LS aus
    Low LED_Aufnahme
RETURN

Gleichbleibend:
	Zeit = 400
	Sound Lautsprecher,[90,74]
	GOSUB Abspielen
	Zeit = 200
	Sound Lautsprecher,[97,74]
	GOSUB Abspielen
	Zeit = 100
    Sound Lautsprecher,[103,74]
	GOSUB Abspielen
	Zeit = 50
    Sound Lautsprecher,[109,74]
	GOSUB Abspielen
Return

[IAmTheAnswer]

Advice could be helpful.

[HenrikOlsson]

Look, this is a list of PBP users, just like yourself. No one gets paid or otherwise compensated for the time spent helping out others - it's a give and take kind of thing. You just can't expect people to, within a 6 hour timeframe, digest a piece of code 166 lines long, with comments, labels and variable names in a language the majority don't understand as well as you do then figure out what's wrong with it and post it.

Personally I still haven't understood what the actual problem is - or even if there IS a problem.

So, come on, play nice, ask nice and give the awsome guys and girl(s) a chance - some may not even be awake during the whole 6 hours you waited.

/Henrik.

[Darrel Taylor]

I started using DT's Interrupt Routine.

I have

- a switch
- a led

I now want to count from a given number z (between 7200 seconds and 180 seconds) to zero.

I DO NOT do count down timers with actions at 0.

No one can stop you if you do.
But I would prefer you not use my software to do it.
And certainly, don't publish it.

Sorry, it's a personal thing.

Best regards,

[IAmTheAnswer]

HenrikOlsson:

Look, there are thousands of forums on the internet with volunteers on it. Average time to get a quality answer is one hour. Speaking of giving and taking, we have not seen you giving anything but useless lecture which tells us more about your insecurities than you think.

I know that you still don't understand what the actual problem is, because you would not be a giver even if you understood it.

So, come on, play nice, ask nice and give the awesome guys and girl(s) a chance to actually give - some may not even be awake during the whole 6 hours and the first thing they see is you claiming "I am insecure please give me attention.".

Darrel Taylor, dear. Count down from 10 to 0 and rethink your writing

[mackrackit]

Look, there are thousands of forums on the internet with volunteers on it.

Then please go to one of the other forums if you are not receiving the answer you seek here.

You should have the knowledge you seek with in an hour.

[IAmTheAnswer]

mackrackit, recommend a forum or a newsgroup or similar where pbp-issues are being discussed and a reaction is to be expected within an hour and I 'll be gone.

What is very interesting, you are fast to complain but slow to respond. It took you 12 minutes (!) to complain and lecture but you were not able to even answer a part of the question in this time. Everyone can grouch, giving a useful answer is what shows a decently trained brain.

[malc-c]

Speaking of giving and taking, we have not seen you giving anything but useless lecture

Errr... use the search function and find out just how much Henrik has given to this forum.. here's one example http://www.picbasic.co.uk/forum/showthread.php?t=5874

I must admit you have a talent for upsetting three of the most respected member on this forum.

[IAmTheAnswer]

Use the page search function and find out just how little Henrik has given to this thread.. nothing to be precise.

I must admit you have a talent for talking useless rubbish, aswell.

[Acetronics2]

Use the page search function and find out just how little Henrik has given to this thread.. nothing to be precise.

I must admit you have a talent for talking useless rubbish, aswell.

Hi, THE Answer

the question was " can you share some code " ...

THE Answer is " we do not have such code " ... I think you can find it on Paintball sites ...

VERY simple to understand.

Add to that German is a language few people here can understand ... sorry, but it is.

Alain