DETECTEUR EJP

/* DECODEUR TRAME EJP */
/* Programme en Langage C ,Compilateur Hi Tech Tools */


#include <htc.h>
#include <stdio.h>

/*==========================================================================

       Configuration Bits

==========================================================================*/



#define _XTAL_FREQ 4000000
__CONFIG(INTIO & WDTDIS & MCLREN & PWRTDIS & BORDIS);

/*==========================================================================

       Definition des Variables

==========================================================================*/

#define LEDROUGE   RC0
#define LEDVERTE   RA2

unsigned int s=0;

unsigned int k=0;
unsigned int j=0;
unsigned int  vref;
unsigned char i=0;
unsigned int  seuil;

unsigned int delta;
unsigned int d=0;
unsigned char calcu_vr=0;
unsigned char calcul_seuil=0;
unsigned char front_montant=0;
unsigned char bit_1=0;
unsigned char bit_0=0;
unsigned char start_trame=0;
unsigned char bit_5_sup=0;
unsigned char bit_5_inf=0;
unsigned char bit_15_sup=0;
unsigned char bit_15_inf=0;


/*==========================================================================

   Configuration du convertisseur Analogique Numérique (10 Bits)

==========================================================================*/
void SetupADC(void){

     ANSEL = 0x00; // An0-7  digital
     ANSELH = 0x01;  // AN8 en entrée analog numerique
     ADCON0 = 0b10100001; //CH0, ADC on
     ADCON1 = 0x60; //Fosc/64
}

/*==========================================================================

       Fonction Lecture tension numérique de la Voie 8

==========================================================================*/
unsigned int ConvertADC(){

unsigned int result;

    CHS3=1;CHS2=0;CHS1=0;CHS0=0; //Lecture voie AN8
    ADON=1;//Start conversion

    GODONE=1;

    while (GODONE ); //Attente fin de conversion;
	result<<=8;
	result|=ADRESL;
	
     return result; //Return ADC reading
}
/*=========================================================================

		Fonction sortie Etat leds suivant le bit 5 et 15 de la trame  

==========================================================================*/
void exploite_visu( unsigned char b_5_s, unsigned char b_15_s, unsigned char b_5_i, unsigned char b_15_i)
{
    unsigned char led_5,led_15;

	led_5=b_5_s+b_5_i;
    led_15=b_15_s+b_15_i;

	if(led_5 && !led_15){LEDROUGE=0;LEDVERTE=0;} // a voir pourquoi les deux leds ne marchent pas en meme temps
	else if (!led_5 && led_15) {LEDVERTE=0;LEDROUGE=1;}
	else if (led_5 && led_15) {LEDROUGE=0;LEDVERTE=1;}
	else{		
			LEDROUGE=1;LEDVERTE=0;
		}
}
/*==========================================================================

       Routine interruption Timer appelé toutes les 700hz

==========================================================================*/
static void interrupt timer()
{
    if(TMR1IF)
  {     
	
      TMR1H = 0xFA;  TMR1L = 0x85 ; // Rechargement du Timer pour l'interruption suivante
	
	 	
	k++;
	j++;

	if (calcu_vr == 0)    // Calcul du seuil sur une periode secteur=20ms
	{
		s=(ConvertADC())+s;
	
		if (k==14){
						s=(ConvertADC())+s;
						vref=s;
						k=0;s=0;calcu_vr=1;calcul_seuil=1;j=0;
				  }			
	}
	else if(calcul_seuil==1)
	{
		s=ConvertADC()+s;
		if (k==14) {
					seuil=s;s=0;k=0;calcul_seuil=0;
				
					s=0;k=0;
					j=0;d=0;
					}
	
		
	}
	else if (calcu_vr && !calcul_seuil)
	{
			s=ConvertADC()+s;
			if (j==14){// sur 20ms
						if (s>seuil){delta=s-seuil;}
						if (s<seuil){delta=seuil-s;}
						if (s==seuil){delta=0;}

						if (delta>=12){d++;} //
						s=0;
						j=0;
			}
			if (k== 700 && front_montant==0)// sur 1 sec
			{
					
					if (d>=50) 
					{
						front_montant=1;
													
					}
					else{
						front_montant=0;
						k=0;
						j=0;
						s=0;
						d=0;				
								
					}
			}			
			if (front_montant== 1 && bit_1==0)
			{
				if (k==700)  // Detecte si bit de start
				{
					if (d>=50 )
					{
						bit_1=1;
						front_montant=1;
						
						k=0;
						s=0;
						d=0;
						j=0;
					

					}
					else{
							bit_1=0;
							front_montant=0;
							LEDVERTE=0;
							LEDROUGE=1;
					   }
					k=0;
					j=0;
					s=0;
					d=0;
					
				}
			}		
			if (bit_1==1 && !start_trame)
			{
				if (k==1925)  // Sur 2.75s 
				{
						
					if (d<137) 
					{
						bit_0=1;
						front_montant=0;
						LEDROUGE=1;
						LEDVERTE=0;
					
					}
					else {
						bit_0=0;
						front_montant=0;
						bit_1=0;
						LEDROUGE=0;
						LEDVERTE=1;
					}
					k=0;
					j=0;
					s=0;
					d=0;
				}
			}
			
			if (bit_1== 1 && bit_0==1){
				start_trame=1;
				front_montant=1;
				bit_1=1;
				bit_0=0;
				i=1;
			}						 	
			  
			if (start_trame==1)
			{
					
				if (i==5 || i==15)
				{
							
				if (k==700)
				{
								
					if (d>=50)
					{
							if (i==5) {bit_5_sup=1;}
							if (i==15) {bit_15_sup=1;}
					}
					else{
							if(i==5) {bit_5_sup=0;}
							if (i==15){bit_15_sup=0;}
					}
							 s=0;
							 d=0;
							
				}			
				if (k==1750)
				{
							
				 	if (d>=75){
					    if (i==5) {bit_5_inf=1;}
						if (i==15) {bit_15_inf=1;}
								
							  }
					else{
						if(i==5) {bit_5_inf=0;}
						if (i==15){bit_15_inf=0;}
								
						}
							 s=0;
							 k=0;
						     j=0;
							 d=0;
							 i++;
				  }						
				}	
				if (i!=5 && i!=15 && i!=40){
					if (k==1750)
					{
					   k=0;
					   j=0;
					   i++;
					   s=0;
						d=0;
					}
				}							
				if (i==40)
				{
						
				if (k==1750){
				start_trame=0;
				front_montant=0;
				k=0;	
				s=0;
				d=0;
				j=0;
				bit_1=0;
				bit_0=0;
			
				exploite_visu(bit_5_sup,bit_15_sup,bit_5_inf,bit_15_inf);
							}			
				}
			}
		   // fin start_trame
			
			
				
			}
  }
 
TMR1IF=0;
}


void main(void) {
  	

	SetupADC();
	TRISC0=0;
	TRISA2=0;
	TRISB= 0b00000000; // PORTB en sortie RB7-4   
	IOCB = 0;
	WPUB = 0;


	C1ON=0;
	C2ON=0;
    SSPCON=0;
    ADON=0;
    RABIE=0;
	INTE=0;
	INTF=0;
    IOCB4=0; 
    SSPEN=0; 
	SSPSTAT=0;
    
  	
	TRISC0=0;
	TRISA2=0;
	LEDVERTE=1;
	LEDROUGE=1;
	SetupADC();

	__delay_ms(100);
	TRISC0=0;
	TRISA2=0;
	ADIE=0;
	SSPIE=0;
	CCP1IE=0;
	T0IE  = 0 ;
    GIE = PEIE = 1 ;//autorise interrupt
    T0IE  = 0 ;    //  inValid  TMR0  (OPTION = 0x04)
  
   TMR1ON = TMR1IE   = 1 ;               //   Validation du TIMER1
   TMR1H = 0xFA ;  TMR1L = 0x85;  // ~ 1.42 ms  pour echantillon à 700hz
  
  
  

  while (1)
 {
   
   
 }
					
            

  
}