Svenska ElektronikForumet

Kod: Markera allt

/*PicAmp
PHermansson 2006-2007
For mikroC compiler for PIC, www.mikroelektronika.co.yu
*/

int temp;
int test;
int sndlevel;
long sndHyst;
unsigned short pwmcounter;
unsigned short pwmlen;

void interrupt(){
//Interrupt routine. Declared by mikroC
   if (INTCON.T0IF) {
      //Timer0 interrupt
      TMR0   = 50;
      INTCON = 0x20;             // set T0IE, clear T0IF = Reset interrupt
      pwmcounter ++;                // increment counter
   }
   return;
   if (PIR1.TMR1IF) {
      //Timer1 interrupt
      if (test >= 1) {
         GPIO.GP5 = 1;
         test = 0;
      }
      else {
         GPIO.GP5 = 0;
         test = 1;
      }
      PIR1.TMR1IF = 0;  //Clear interrupt flag
   }
}

void main() {
    //Settings
    OPTION_REG = 0b11010000;  //GPIO pullup and TMR0 setup
    T1CON = 0b00000101;   //Setup Timer1
    TMR1H = 0;            //Reset Timer1 registers
    TMR1L = 0;
    PIR1.TMR1IF = 0;

    //Outputs
    TRISIO = 0b00010010;    //GP4, GP1 = input
    GPIO = 0xFF;    // initialize gpio
    GPIO = 0b00000000;       // GP2(fan), GP5(relay) off
    GPIO.GP5 = 1;
    
    //Parameters
    pwmcounter = 0;    // reset counter
    pwmlen = 160;      //Higher value, higher fan speed
    TMR0 = 254;     // set timer0

    
    //Enable interrupts
    PIE1.TMR1IE = 1;      //Timer1 interrupt enable
    INTCON = 0b10100000; // TMRO interrupt enabled, Global Interrupt Enabled
    
    //Tempsensor = GP4/AN3
    //Setup AD
    //GP4/AN3, GP1/AN1 = analog input, rest is digital. x,010(Fosc/32),1010(AN3:AN0)
    //1 indicates analog, 0 = digital.
    ANSEL = 0b00101010;
    //ADCON0. 0 (ADFM), 0 (Vref=VDD),00 (dont care),10 (channel select, chan 02),0 (Go/Done), 1 (AD is on)
    ADCON0 = 0b00001101;

    do{                         // Loop

        //------------Start AD-conversion, check temperature-------------//
	/*
	10bit/5V
	1024 = max => 0,0048828125 V/bit
	Omslag vid hudkontakt läser ca 155
	155*0,004...= 0,7568359
	TC1047 ger 500mV@0C
	0,7568359-0,5= 0,2568 = 26C
	*/
        
	temp = Adc_Read(3);
        //10 bits -> max=1023

        if (temp>160) {
           INTCON = 0b10100000; // TMRO interrupt enabled
           //PWM
           if (pwmcounter > pwmlen)      // Counts from n to 255 and then flips to 0
              GPIO.GP2 = 0;              
           else                      
              GPIO.GP2 = 1;     //GP2(fan) on
        } else {
           GPIO.GP2 = 0;    //Fan off
           INTCON = 0b10000000; // TMRO interrupt disabled
        }
     
        //Detect audio level
        //Relay on as soon as audio is detected, but off a few minutes after
        sndlevel = Adc_Read(1);
        if (sndlevel > 610)  { //Sound in detected
           GPIO.GP5 = 1;  //Relay on
           sndHyst = 100000;          
        }
        else {
           //GPIO.GP5 = 0;
           sndHyst--;
        }
        if (sndHyst < 100)
           GPIO.GP5 = 0;
        
    } while(1);
}