Help with Pic Delay Pulse code please

[Chris Barron]

Hi Chris

Is there any updates yet, Have you got it working??

Cheers...

Sorry Jeff , I have been wating for you to tell me what is wrong with it (as in what it does or does not do correctly.)

I am very busy for a few days so you may better off doing some debugging of yoiur own in the meantime. If you have enough spare pins you can attach an led to each pin and activate the leds as the program reaches each section.....when the leds stop lighting is where the problem lies.
If you're short of pins, possibly you are, I usually write a small flashing led sequence and change the number of flashes for each part of the program and that way I always know where the program reached, but if you're going to debug with picbasic you could easily just use the 'debug' command and send serial data out to your PC to tell you where the program stopped.

[g7jiq]

Hi Chris,

It doesn't do anything, (by the way the names dave)

I have re programed the pic, (it programs fine with no errors)
I have tried in my circuit and also bread boarded it.
Here's what I get when powered up,

The pins of the i/c are as follows:-

GP0.0 high no change
GP0.1 low no change
GP0.2 high no change
GPO.3 high no change
GPO.4 high no change
GPO.5 high/low trigger (i/p toggle)

Cheers
Dave..

[Melanie]

One step at a time...

Compile this and ensure your LED blinks on GPIO.1... ensure your LED has a suitable series Resistor...

	'
	'	PIC Defines
	'	-----------
	@ DEVICE pic12F675, INTRC_OSC_NOCLKOUT
		' System Clock Options (Internal)	
	@ DEVICE pic12F675, WDT_ON
		' Watchdog Timer
	@ DEVICE pic12F675, PWRT_ON
		' Power-On Timer
	@ DEVICE pic12F675, MCLR_OFF
		' Master Clear Options (Internal)
	@ DEVICE pic12F675, BOD_ON
		' Brown-Out Detect
	@ DEVICE pic12F675, CPD_OFF
		' Data Memory Code Protect
	@ DEVICE pic12F675, PROTECT_OFF
		' Program Code Protection

	'
	' Define Hardware
	' ---------------
	InputTrigger var GPIO.5 	' Input normally HIGH, goes LOW to Trigger
	InputReset var GPIO.2		' Input normally HIGH, goes LOW to RESET
	OutputLine var GPIO.0 		' Normally HIGH, goes LOW when triggered
	LED var GPIO.1

	'
	' Define Variables
	' ----------------
	DelayTick var Byte 		' 100mS Tick Counter
	MyFlags var byte

	'
	'	Initialise Hardware
	'	-------------------
	TRISIO=%00100100		' Preset I/O
	CMCON=%00000111	  		' Disable Comparators
	ANSEL=%00000000 		' Disable ADC
	DelayTick=100			' Reset Counter
	MyFlags=0
	High OutputLine			' Everything Reset

	'
	'	Main Program Loop
	'	-----------------
Loop:
	Pause 500
	Toggle LED
	Goto Loop
	
	End

[g7jiq]

Hi Melanie

Thanks for your reply,

Yes my led blinks ok.

Cheers
Dave...

[g7jiq]

Hi Melanie

Just an addon to the above test, which worked fine,,,

Last year you very kindly drafted me a piece of code for a project that has been working flawlessly,

I am having problems adding an led command to it, if I add an low led command to it, it locks up when its triggered.

Any ideas,

Cheers
Dave..

'G7JIQ MICRO LINK REPEATER
'PIC 12F675
'Internal RC clock
'
' PIC Defines
' -----------
@ DEVICE pic12F675, INTRC_OSC_NOCLKOUT
' System Clock Options (Internal)
@ DEVICE pic12F675, WDT_ON
' Watchdog Timer
@ DEVICE pic12F675, PWRT_ON
' Power-On Timer
@ DEVICE pic12F675, MCLR_OFF
' Master Clear Options (Internal)
@ DEVICE pic12F675, BOD_ON
' Brown-Out Detect
@ DEVICE pic12F675, CPD_OFF
' Data Memory Code Protect
@ DEVICE pic12F675, PROTECT_OFF
' Program Code Protection

'
' Define Hardware
' ---------------
InputTrigger var GPIO.5 ' Input normally HIGH, goes LOW to Trigger
InputReset var GPIO.2 ' Input normally HIGH, goes LOW to RESET
OutputLine var GPIO.0 ' Normally HIGH, goes LOW when triggered
Led var GPIO.1
'
' Define Variables
' ----------------
DelayTick var Byte ' 100mS Tick Counter

'
' Initialise PIC
' --------------
Reset:
TRISIO=%00100100 ' Preset I/O
CMCON=%00000111 ' Disable Comparators
ANSEL=%00000000 ' Disable ADC
DelayTick=0 ' Reset Counter
high OutputLine ' Everything RESET
pause 2000

' Main Program Loop
' -----------------
Loop:
'
' Test for RESET
' --------------
While InputReset=0 ' Just wait here if RESET
DelayTick=0 ' Reset Counter
high OutputLine ' Reset Output
Wend
'
' Test for Trigger
' ----------------
If InputTrigger=0 then ' Test for Trigger
low OutputLine ' Enable Output
DelayTick=1 ' Arm Counter
'Goto Loop
endif
'
' Timeout Counter
' ---------------
If DelayTick>0 then
DelayTick=DelayTick+1 ' Count Time
Pause 60 ' Waste 100mS
If DelayTick>50 then goto Reset
' 50 = 5 sec
' 100 = 10 sec
' origanly set at 201 Reset at 20 Seconds
endif
Goto Loop

'
End