blinking LED

[Jerson]

	CounterA var Byte

	LEDA var PortA.0
	LEDB var PortA.1

	Low LEDA
	Low LEDB

Start:
	High LEDB			' PortA.1 goes High
	For CounterA=1 to 6*2		' For Six*2    half seconds
		Gosub BlinkyHalf		' Whilst Blinky blinks
	Next CounterA
	Low LEDB			        ' PortA.1 then goes LOW
        pause 10000           ' a 10 second gap and then go blinkety blink
EndLoop:
	Gosub BlinkyHalf			
	Goto EndLoop			' until you get bored and switch off

	'
	'	Subroutine Blinks LEDA across 1 Second
	'	--------------------------------------
BlinkyHalf:
	Toggle LEDA
	Pause 500
	Return

Melanie, I hope you don't mind me using my brain to mod your code. However, as you have it, it is a variation of blinky. More to come ??

[peterdeco1]

Blinkcounter var byte
clear

start:
High porta.1 'high port
high porta.0 'on led
pause 500
low porta.0 'off led
pause 500
let blinkcounter = (blinkcounter + 1)
if blinkcounter < 6 then start
low porta.1
low porta.0
pause 1000
goto start 'keep it going

[Archangel]

untested . . .

PortA = %00000000
TrisA = %00000000
i var byte
Start:
PortA.1 = 1
while PortA.1 = 1
For i = 0 to 5
portA.0 = 1
pause 500
PortA.0 = 0
pause 500
next i
portA.1 = 0
wend

end

[mackrackit]

I know, wrong chip and wrong pins... it is what I have on the bench...

'18F6680'07/14/09'BLINKY
   
    DEFINE OSC 20
    @ __CONFIG    _CONFIG1H, _OSC_HS_1H
    @ __CONFIG    _CONFIG2H, _WDT_ON_2H & _WDTPS_128_2H
    @ __CONFIG    _CONFIG4L, _LVP_OFF_4L
    CNT VAR BYTE
    FIRST6:HIGH PORTB.2 'SLOW
    FOR CNT = 1 TO 60:TOGGLE PORTG.4:PAUSE 100
    NEXT CNT:LOW PORTB.2:PAUSE 500:GOTO SECOND6
    
    SECOND6:HIGH PORTB.2   'FAST BLINK--REALLY FAST
    PWM PORTG.4,5,6000
    LOW PORTB.2:PAUSE 500:GOTO [color=#0000FF][b]FIRST6

[aratti]

PortA = 0
TrisA = 0

Seconds var Byte

LED_1      var PortA.0
LED_2      var PortA.1

Loop:
'Your gosub comand goes here
Goto Loop


Blink:
High Led_1
Seconds = 0
While Seconds <>5
High Led_2
pause 500
Low Led_2
pause 500
Seconds = Seconds + 1
wend
Low Led_1
Return

End

Here my contribution.

Al.

[kindows]

untested . . .

PortA = %00000000
TrisA = %00000000
i var byte
Start:
PortA.1 = 1
while PortA.1 = 1
For i = 0 to 5
portA.0 = 1
pause 500
PortA.0 = 0
pause 500
next i
portA.1 = 0
wend

end

Hi..
Thanks for all
I test your code and its working fine but because I am new with picbasic what dose this meen
PortA = %00000000
TrisA = %00000000
When I remove this tow lines the code not working,
Best regard

[Jerson]

PORTA = %00000000 read this as PORTA gets bits 00000000
This means, write 0 to each bit position of PORTA. Each 0 represents the bits in PORTA from bit 7 to bit 0. You could also write it as
PORTA = $00 read this as PortA gets Hex 0

TRISA = %00000000
This is the tristate register which tells your PIC to allow the values of PORTA to 'drive' the external world circuits. Same as above for the bit position part. If you set any 1 position to 1, that position will only be able to read (INPUT) from the external circuit.

Clear now? Don't hesitate to ask. See how many responses you got.

[charudatt]

I am looking for a way to change the rate of blink (Blinking rate) using Interrupt. I would read a POT using ADC and then change the blink rate, Any idea how I could impliment it in Sayzer's code.

Thanks.

p.s. maybe using TMR0

[Melanie]

A question for you first... why do you specify using INTERRUPT?