counter/ internal clock

[jimbobjones]

i need to create a simple clock/counter that increments roughly every second. Accuracy is not very important so long as its approximatly 1sec. When the counter reaches a given value i'll use it to set a flag which i plan to use to drive another process.

i'm using pic16F876a

can anyone help, i'm still learning picbasic


many thanks

jim

[Darrel Taylor]

Here's a list of examples...

http://www.picbasic.co.uk/forum/show...2&postcount=18

_

[Melanie]

> Accuracy is not very important so long as its approximatly 1sec.

Darrel - You forgot to list the obvious...

PAUSE 1000

[Darrel Taylor]

So true.

_

[jimbobjones]

thanks for the replies

i cant use pause as i have other processes that need to be run..

[jimbobjones]

can anyone help with the following code as its not working

i'm trying to set the output to 100 if the timer is less than 5000 and 001 if its above....

device = 16F876a  	   			  	  	   'PIC device
CMCON = 7 								   'disable comparators
TRISB = %11111111 						   'Portb as inputs
TRISA = %00000000 						   'Porta as outputs
porta = %00000000 						   'Set all outputs low

T1CON.0=0 'stop the timer
TMR1H = 0 'Set the high part of the timer value to 0
TMR1L = 0 'Set the low part of the timer value to 0
T1CON.0=1 'start the timer

MyCount VAR WORD

Start:

MyCount.HighByte = TMR0H	'Get high byte of counter
MyCount.LowByte = TMR0L		'Get low byte of counter
 
IF MyCount > 5000 THEN 'if the timer value > than your number

porta = %00000001

gosub timer_reset

else

porta = %00000100

endif 
   
Goto Start



timer_reset:

T1CON.0=0 'stop the timer
TMR1H = 0 'Set the high part of the timer value to 0
TMR1L = 0 'Set the low part of the timer value to 0
T1CON.0=1 'start the timer

return