Surviving 1 second without battery power


Results 1 to 28 of 28

Threaded View

  1. #24
    Join Date
    May 2004
    Location
    NW France
    Posts
    3,653


    Did you find this post helpful? Yes | No

    Default

    Hi, Peu

    You're out ...

    Code:
    '@ device pic12f683,INTRC_OSC_NOCLKOUT , wdt_on, mclr_off, protect_off, bod_on
    
     @    __config _INTRC_OSC_NOCLKOUT & _PWRTE_ON & _WDT_ON &_BOD_ON & _MCLRE_OFF & _CP_OFF
     
     
    OSCCON = %01100110
    CMCON0 = %00000111     ' Disable comparator
    VRCON  = %00000000     ' disable
    ADCON0 = %11100000
    ANSEL  = %10000000
    
    '       I/Os
    gpio   = %00000000
    TRISIO = %00000000      ' no inputs 
    
    BOD var GPIO.0
    POR var GPIO.1
    
       
    IF PCON.1 = 0 and PCON.0 = 0 THEN BOD = 1	'BROWN OUT RESET BIT
    IF PCON.1 = 0 				 THEN POR = 1	'POWER ON RESET BIT
    
    PAUSE 1000
    
    GPIO = 0
    
    if PCON.1 = 1 AND PCON.0 = 0 then		'PCON.0 = BOD ;PCON.1 = POR
              
        GPIO.2 = 1         'GPIO.1 red led PIN6 shows a BOD state
        PAUSE 5000
        PCON.0 = 1
        gpio = %00000000
        
    endif
    
    PCON.1 = 1
    PCON.0 = 1
    
    While 1
    Wend
    
    END
    This works really fine, but with a 10 µ (MICRO) F ...and a 12F683

    so , some current draw improvements are still to add ...

    NOTE: All Outputs are Mosfet Buffered ( BS 170 ) ...

    Alain

    PS: You didn't use your brain too much, here ....
    Last edited by Acetronics2; - 13th March 2008 at 19:52.
    ************************************************** ***********************
    Why insist on using 32 Bits when you're not even able to deal with the first 8 ones ??? ehhhhhh ...
    ************************************************** ***********************
    IF there is the word "Problem" in your question ...
    certainly the answer is " RTFM " or " RTFDataSheet " !!!
    *****************************************

Similar Threads

  1. Thermo 7 segments - little problem
    By fratello in forum mel PIC BASIC Pro
    Replies: 49
    Last Post: - 27th July 2013, 07:31
  2. RS485 bus - starting probem
    By wurm in forum mel PIC BASIC Pro
    Replies: 4
    Last Post: - 27th January 2010, 13:35
  3. 32 bit square root
    By Charles Linquis in forum mel PIC BASIC Pro
    Replies: 20
    Last Post: - 6th May 2009, 03:37
  4. one line led light make image
    By bioul in forum mel PIC BASIC Pro
    Replies: 7
    Last Post: - 13th February 2008, 12:19
  5. HSERIN doesn´t work
    By wurm in forum mel PIC BASIC Pro
    Replies: 4
    Last Post: - 29th July 2007, 14:23

Members who have read this thread : 0

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

Posting Permissions

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