blinking LED

Closed Thread
Results 1 to 15 of 15

Thread: blinking LED

Hybrid View

  1. - 14th July 2009, 22:32 #1
    Archangel's Avatar
    Archangel
    Archangel is offline SuperMod
    Join Date
    Aug 2006
    Location
    Look, behind you.
    Posts
    2,818

    Did you find this post helpful? Yes | No

    Default

    untested . . .
    Code:
    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
    If you do not believe in MAGIC, Consider how currency has value simply by printing it, and is then traded for real assets.
    .
    Gold is the money of kings, silver is the money of gentlemen, barter is the money of peasants - but debt is the money of slaves
    .
    There simply is no "Happy Spam" If you do it you will disappear from this forum.
  2. - 15th July 2009, 01:55 #2
    mackrackit's Avatar
    mackrackit
    mackrackit is offline SuperMod
    Join Date
    Nov 2003
    Location
    Wellton, U.S.A.
    Posts
    5,924

    Did you find this post helpful? Yes | No

    Default

    I know, wrong chip and wrong pins... it is what I have on the bench...
    Code:
    '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
    Last edited by mackrackit; - 8th April 2011 at 07:11. Reason: HTML to BB
    Dave
    Always wear safety glasses while programming.
  3. - 15th July 2009, 02:50 #3
    aratti's Avatar
    aratti
    aratti is offline Senior Member
    Join Date
    May 2008
    Location
    Italy
    Posts
    825

    Did you find this post helpful? Yes | No

    Default

    Code:
    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.
    All progress began with an idea
  4. - 15th July 2009, 09:10 #4
    kindows's Avatar
    kindows
    kindows is offline Junior Member
    Join Date
    Jul 2009
    Posts
    15

    Did you find this post helpful? Yes | No

    Default

    Quote Originally Posted by Joe S. View Post
    untested . . .
    Code:
    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
  5. - 15th July 2009, 10:48 #5
    Jerson's Avatar
    Jerson
    Jerson is offline SuperMod
    Join Date
    Nov 2005
    Location
    Bombay, India
    Posts
    969

    Did you find this post helpful? Yes | No

    Default

    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.
    Embedded Systems Designer
    http://jerson.co.in
  6. - 31st July 2009, 16:06 #6
    charudatt's Avatar
    charudatt
    charudatt is offline Member
    Join Date
    Sep 2003
    Location
    INDIA
    Posts
    161

    Did you find this post helpful? Yes | No

    Default A slight modification to Sayzer's code

    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
  7. - 31st July 2009, 16:34 #7
    Melanie's Avatar
    Melanie
    Melanie is offline Prolific Poster
    Join Date
    Jul 2003
    Posts
    2,358

    Did you find this post helpful? Yes | No

    Default

    A question for you first... why do you specify using INTERRUPT?
  8. - 31st July 2009, 16:57 #8
    charudatt's Avatar
    charudatt
    charudatt is offline Member
    Join Date
    Sep 2003
    Location
    INDIA
    Posts
    161

    Did you find this post helpful? Yes | No

    Default

    Cause, I want to use it in a code where I am doing some other things like reading ADC channel , and monitoring inputs , while the led is blinking.

    Thanks
  9. - 31st July 2009, 17:08 #9
    mackrackit's Avatar
    mackrackit
    mackrackit is offline SuperMod
    Join Date
    Nov 2003
    Location
    Wellton, U.S.A.
    Posts
    5,924

    Did you find this post helpful? Yes | No

    Default

    You may want to look at this. Post #2 might be of interest.
    http://www.picbasic.co.uk/forum/showthread.php?t=3251
    Dave
    Always wear safety glasses while programming.
« Previous Thread | Next Thread »

Similar Threads

  1. Simple Blinking LED - WTF!!
    By johnnylynx in forum mel PIC BASIC Pro
    Replies: 5
    Last Post: - 1st February 2010, 07:19
  2. Blinking an led problem on P16F84
    By aimenbukharie in forum General
    Replies: 1
    Last Post: - 20th March 2009, 06:00
  3. new and need help
    By smeghead in forum mel PIC BASIC Pro
    Replies: 5
    Last Post: - 3rd November 2008, 21:19
  4. LCD will not start
    By btaylor in forum mel PIC BASIC Pro
    Replies: 49
    Last Post: - 24th May 2007, 03:30
  5. simple LED Blinking project
    By koossa in forum mel PIC BASIC Pro
    Replies: 4
    Last Post: - 11th December 2004, 02:25

Members who have read this thread : 0

You do not have permission to view the list of names.

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Forum Rules