Svenska ElektronikForumet

Kod: Markera allt

$ dir DKA200:[DANK.ARK.HV05]DAP020.OPT

Directory DKA200:[DANK.ARK.HV05]

DAP020.OPT;10              1/35       15-MAR-2005 16:02:27.49
DAP020.OPT;8               1/35        5-NOV-2004 14:10:56.44
DAP020.OPT;7               1/35        5-NOV-2004 14:10:56.44
DAP020.OPT;5               1/35       12-OCT-1999 10:41:28.38
DAP020.OPT;4               1/35       13-JAN-1986 16:30:05.00

Total of 5 files, 5/175 blocks.
$

Kod: Markera allt

program LEDbelysning

'PIC16F688. Intern oscillator på 8MHz.

' Lysdioder 1 - 6 : RC0 - RC5.
' Knapp (JP1) : RA4. (pin 3).
' Pot: RA2. (pin 11.)

'---------------------------------------------

symbol knapp = PORTA.4
symbol JP2 = PORTA.5

dim pot_hi as byte
dim pot_lo as byte
dim pot as word
dim tempknapp as byte


sub procedure Init
    TRISA = %00010100 ' Allt till utgångar, bortsett från knappen och poten.
    TRISC = $00 ' Alla till utgångar, för lysdioderna.
    
    PORTA = $00 ' Tomt
    PORTC = $FF ' Tomt  (Inverterat för lysdioderna pga PNP-drivning)

    knapplage = 0

    INTCON.GIE = 1    'Global interrupt enable bit  <--
    INTCON.PEIE = 1   'Enable unmasked peripheral interrupts <--
    INTCON.T0IE = 0   'Disable the Timer0 interrupt
    INTCON.INTE = 0   'Disable the RA2/INT external interrupt  <--
    INTCON.RAIE = 1   'Enable the PORTA change interrupt <--
    INTCON.T0IF = 0   'Timer0 did not overflow
    INTCON.INTF = 0   'RA2/INT external interrupt did not occur
    INTCON.RAIF = 0    'None of the PORTA-pins have changed state <--<<
    
    IOCA = %00010000   'RA4 interrupt on change. <--
    
    PIE1.EEIE = 0     'Disable the EE write complete interrupt
    PIE1.ADIE = 1     'Enable the ADC-interrupt <--
    PIE1.RCIE = 0     'Disable the EUSART receive interrupt
    PIE1.C2IE = 0     'Disable the comparator C2 interrupt
    PIE1.C1IE = 0     'Disable the comparator C1 interrupt
    PIE1.OSFIE = 0    'Disable the oscillator fail interrupt
    PIE1.TXIE = 0     'Disable the EUSART transmit interrupt
    PIE1.TMR1IE = 0   'Disable the Timer1 overflow interrupt

    PIR1 = $00        'Cleara alla interrupt
    PIR1.ADIF = 0     'AD interrupt clear <--

    PCON = %00000011  'Ingen Ultra Low-power Wake-up, BOR, POR eller BOR
    
    OSCCON.6 = 1      '8MHz IRCF2
    OSCCON.5 = 1      '8MHz IRCF1
    OSCCON.4 = 1      '8MHz IRCF0
    OSCCON.SCS = 0    'Fosc "är" systemklocka
    
    WPUA = $00        'Inga pull-up

    T1CON.TMR1ON = 0  'Timer1 avstängd
    
    CMCON0.CM2 = 1    'Comparators avstängda
    CMCON0.CM1 = 1    'Comparators avstängda
    CMCON0.CM0 = 1    'Comparators avstängda
    VRCON.VREN = 0    'CVref powered down

    ANSEL = %00000100 'AN2 (pin 11) analog. Resten digitala
    ADCON0.ADFM = 1   'Högerjusterad AD
    ADCON0.VCFG = 0   'Vdd som referens
    ADCON0.CHS2 = 0   'Channel: AN2 (pin 11)
    ADCON0.CHS1 = 1   'Channel: AN2 (pin 11)
    ADCON0.CHS0 = 0   'Channel: AN2 (pin 11)
    ADCON0.ADON = 1    'ADC enabled <--
    ADCON0.GO_DONE = 1 'AD-conversion in progress <-- 

    ADCON1.ADCS2 = 0  'AD Conversion clock: Fosc/32 = 250kHz
    ADCON1.ADCS1 = 1  'AD Conversion clock: Fosc/32 = 250kHz
    ADCON1.ADCS0 = 0  'AD Conversion clock: Fosc/32 = 250kHz

    TXSTA.TXEN = 0    'EUSART transmit disabled
    RCSTA = $00       'EUSART port disabled
    BAUDCTL.ABDEN = 0 'Auto-baud detect disabled

    
    WDTCON.SWDTEN = 0 'WDT turned off
    
end sub


sub procedure interrupt

    'Knapp-interrupt
    if TestBit(INTCON,RAIF) = 1 then
       tempknapp = knapp
       '
       ClearBit(INTCON,RAIF)
       SetBit(INTCON,RAIE)
    end if

    'Pot-interrupt
    if TestBit(PIR1,ADIF) = 1 then
       ClearBit(PIR1,ADIF)
       pot_lo = ADRESL
       pot_hi = ADRESH
       'pot = (word(pot_hi << 8)) OR pot_lo 'Slå ihop höga och låga delen (Blir 0 - 1024)
       
       SetBit(ADCON0, ADON)
       SetBit(ADCON0, GO_DONE)
    end if

end sub



Main:
    Init
    while true
        PORTC = %11000000
        delay_ms(1000)     ' Tar 5 gånger så lång tid när ADC-interrupt är enabled. <----
        PORTC = %11111111
        delay_ms(1000)
    wend
end.