WebSVN – MLAB – Rev 1858 – /Designs/Data

#include <16F876A.h>
#device adc=10

#FUSES NOWDT                    //No Watch Dog Timer
#FUSES NOLVP,NOPROTECT,XT,NOBROWNOUT
#use delay(clock=4000000)
//#define EEPROM_SCL   PIN_C3
//#define EEPROM_SDA   PIN_C4
#use rs232(baud=9600,xmit=PIN_C6,disable_ints)
//#use i2c(Master,Fast,sda=PIN_C4,scl=PIN_C3)


#define LCD_RS          PIN_C7      // rizeni registru LCD displeje <lcd.c>
#define LCD_E           PIN_B7      // enable LCD displeje <lcd.c>
#define LCD_D0          PIN_B3      // data LCD  <lcd.c>
#define LCD_D1          PIN_B2
#define LCD_D2          PIN_B1
#define LCD_D3          PIN_B0
#define PWM_OUT         PIN_C2      // kontrast LCD - menic
#define LCD_ENABLE      PIN_A1

#define GM_PIN          PIN_A4      // vstup od GMT
#define HV_ENABLE       PIN_A3      // start 400V
#define CHARGE          PIN_A2      // nabijeni baterie

#define KBD_K4          0           //tlacitko na PIN_B7 neexistuje <kbd.c>
#define TL3             0x10        //tlacitko PIN_B4 -ostatni default, viz <kbd.c>
#define TL2             0x20        //tlacitko PIN_B5 <kbd.c>
#define TL1             0x40        //tlacitko PIN_B6 <kbd.c>

#define KBD_CALMTIME     1          //x*40ms - doba na zakmity tlacitek <kbd.c>
#define KEYDELAY        30          //x*40ms - doba podrzeni tlacitka do opakovani
#define KEYREPEAT        6          //x*40ms - doba opakovani stiskleho tlacitka
#define LOG_PERIOD      30          //perioda logovani v min
#define TIME_TO_SLEEP   19          //x*16s - doba do uspani, pokud zadny stisk a HV nebezi

#define MAX_EEPROM      255         //max velikost vnitrni ee pameti
#define EE_LOG_SWITCH   1           //misto v ee, kam se uklada zpusob logovani
#define EE_LOG_OFFSET   0           //misto v ee, kde je ulozen offset dalsiho volneho mista

#define ECHO_MAX_CYCLE  700         //ryhlost hlavni smyèky za 40ms /cca 20kHz/ (700)
#define ECHO_PIN1       PIN_C4      //piezo
#define ECHO_PIN2       PIN_C5      //piezo

#define TEST_V_BATT     0x0f        //maska minut pro test baterie
#define BATT_ENABLE     525         //1024/ADC*1.5+0.18 ADC=525 .. Ubat=3.1V; jeli Ubat nizsi pak sleep

#include <lcd.c>
#include <kbd.c>

int8 ms7RTC,sRTC,mRTC,hRTC,dRTC,mdRTC,yRTC;  //promenne RTC
int1 vypocet,refresh,counters,sleep,log,piezo; //povoleni vypoctu,zobrazeni,citani,uspani,logovani,cvak pieza
int16 avg,bkg,min,max,dif; //hlavni zobrazované promìnne
int32 gmcount,mincount;    //citac trubice GM,citac minut od startu
int8  timer_n,timer_s;     //citace pulzù do 40ms, v celych 40ms, v predchozi 40ms
int32 gmcount_p;           //pocet pulzu od zapnuti v predchozi cele minute
int32 gmcount_sm;          //pocet pulzu od zapnuti precteno v cele minute
int8  s25tik,sTIK;              //tiky pro casovani trubice 25tiku do sekundy, 60s do min
int8  key_timer,save_key,keyp;  //pomocny citac pro tlacitka,ulozeni stiskleho tlacitka,provedeni akce stiskleho tl.
int8 menu_A,menu_B;        //vektor pro pohyb v menu na LCD
int8 log_interval;         //minutovy citac do dalsiho logu
int8 log_switch;           //prepinac zpusobu logovani
int8 ee_offset;            //kam v ee ulozit dalsi zaznam
int8 echo_switch,echo_tik; //povolení echa,poèet tiku za 40ms
int16 echo_timer,echo_cycle; //èitaè rychlosti smyèky pro echo,cvaknuti v cyklu
int8 pwm;                     //kontrast
int8 tik_to_sleep;            //casovac pro uspani
float analog;              //napeti baterie
int1 test_batt;             //test napeti baterie
int1 test;                 //pokus
int8 timertest;            //pokus

#priority timer2,timer1,rb

#int_TIMER2      //nastaven presne na 40ms,cte casovac timer0 GMT
TIMER2_isr()
{
   kbd_ticktimer();
   if (key_timer) key_timer--;
   if (!counters) {set_timer0(0);s25TIK=0;sTIK=0;return;}
   if (echo_switch) echo_switch=2;
   timer_n=get_timer0();
   s25TIK++;
   if (timer_n!=timer_s) //nastala zmena v citaci,pak proved pricteni puslu
   {
      if (timer_n < timer_s) {timer_s=256-timer_s+timer_n;gmcount=gmcount+timer_s;} //test preteceni casovace
      else {timer_s=timer_n-timer_s;gmcount=gmcount+timer_s;}
      echo_tik=timer_s;
      timer_s=timer_n;
    if (menu_A==1 && menu_B==0) refresh=true;
   }
   else echo_tik=0;
   if (s25TIK==25)    //cela sekunda
   {
      s25TIK=0;
      sTIK++;
      if (menu_A==1 && menu_B==5) refresh=true;
      if (sTIK==60)  //cela minuta
      {
         sTIK=0;
         mincount++;
         vypocet=true;
         gmcount_sm=gmcount;
      }
   }
}

#int_RB
RB_isr()
{
 kbd_pullkbd();
 tik_to_sleep = TIME_TO_SLEEP;
}

int8 modulo(int8 h,int8 m) //pomocna fce pro modulo x
{
   if (h<m) return (h);
   return(h-m);
}

void clear_lcd()
{
   printf(lcd_putc,"\f");
}

void set_date()         //citac datumu
{
   dRTC++;
   switch (mdRTC)
   {
      case 1:
      case 3:
      case 5:
      case 7:
      case 8:
      case 10:
      case 12: if(dRTC>=32) {dRTC=1;mdRTC++;if(mdRTC==13) {mdRTC =1;yRTC=modulo(yRTC++,100);}} break;
      case 4:
      case 6:
      case 9:
      case 11: if(dRTC>=31) {dRTC=1;mdRTC++;} break;
      case 2:  if (dRTC >= 30) {dRTC=1;mdRTC++;break;}
               if (dRTC ==29) {if (!(yRTC & 0x03)) break;dRTC=1;mdRTC++;}
   }

}



#int_TIMER1          // RTC
TIMER1_isr()
{
      sRTC=sRTC+16;
      if (sRTC >= 60)
      {
         mRTC++;sRTC=modulo(sRTC,60);          //1min
         if (mRTC>=60) {hRTC++;mRTC=0;}        //1hod
         if ((mRTC & TEST_V_BATT) == TEST_V_BATT) test_batt=true;
         if (hRTC>=24) {hRTC=0;set_date();}    //1den
      }
      refresh=true;
      if (tik_to_sleep) tik_to_sleep--;
}

void ee_head()  //ulozeni hlavicky do ee cas,datum,zpusob logovani
{               //v ee 100hhhhh /hodiny/,l0mmmmmm /log + minuty/,000ddddd /den/,yyyymmmm /rok-7,mesic/
   int8 data;
   log=true;
   if (!log_switch) return;
   if (ee_offset>5) {
      data=read_eeprom(ee_offset-4);
      if (bit_test(data,7)) ee_offset=ee_offset-4;
   }
   if (ee_offset>=(MAX_EEPROM-5)) {log=false;return;}
   log_interval=0;
   data=hRTC;
   bit_set(data,7);
   write_eeprom(ee_offset++,data);
   data=mRTC;
   if (bit_test(log_switch,0)) bit_set(data,7);
   write_eeprom(ee_offset++,data);
   write_eeprom(ee_offset++,dRTC);
   data=((yRTC-7) << 4)|mdRTC;
   write_eeprom(ee_offset++,data);
}



void menu_proces(int8 key)       //menu zobrazene na LCD pri citani
{
   switch (key)
   {
      case TL1:   menu_A=2;refresh=true;clear_lcd();return;
      case TL2:   if (log) log=false;
                  else ee_head();
                  break;
      case TL3:   menu_B=modulo(++menu_B,6);break;
   }
   printf(lcd_putc,"\rdif=%lu   ",dif);
   lcd_gotoxy(11,1);
   if (log) printf(lcd_putc,"L");  //pokud se loguje, zobraz L
   else  printf(lcd_putc," ");
   if (bkg) printf(lcd_putc,"B");  //pokud jiz je BKG,zobraz B
   lcd_gotoxy(14,1);
   printf(lcd_putc,"%3u\n",(int8)(MAX_EEPROM-ee_offset)/2); //zbivajici misto v ee

   switch (menu_B)
   {
      case 0: printf(lcd_putc,"n=%lu",gmcount);break;
      case 1: printf(lcd_putc,"min=%Lu",min);break;
      case 2: printf(lcd_putc,"max=%lu",max);break;
      case 3: printf(lcd_putc,"avg=%lu",avg);break;
      case 4: printf(lcd_putc,"bkg=%lu",bkg);break;
      case 5: printf(lcd_putc,"ontime=%lu:%02d ",mincount,sTIK);break;
   }
}

void send_data()  //posle data z ee na rs232 9600 8N1
{
   int8 i;
   int16 data;
   int8 *adr;
   for (i=2;i<ee_offset;i)
   {
      adr=&data;
      *adr=read_eeprom(i++);
      if (bit_test(*adr,7)) //test, zda se nejedna o hlavicku v ee
      {
         bit_clear(*adr,7);
         printf("\r\n%d:",*adr);
         *adr=read_eeprom(i++);
         printf("%02d ",(0x3f&*adr));
         adr++;*adr=read_eeprom(i++);
         printf("%d/",*adr);
         *adr=read_eeprom(i++);
         printf("%02d/",*adr&0x0f);
         *adr=(*adr>>4)+7;
         printf("%02d ",*adr);
         adr--;
         if (bit_test(*adr,7)) printf("1min");
         else  {*adr=LOG_PERIOD;printf("%umin",*adr);}

      }
      else{
      data=data<<8;
      *adr=read_eeprom(i++);
      printf("\r\n%lu",data);
      }

   }
}

void display(int8 key)                //zobrazeni na LCD - zakladni menu
{
   int8 mon,year;                    //pomocne promenne
   if (key) clear_lcd();
   keyp=0;
   refresh=false;
   if (menu_A>1) {                    //zmena pri stisku tl spolecna pro vetsinu menu_A

      if (key==TL3) {menu_A++;if (menu_A>11) menu_A=2;} //TL3 pak rolluj v menu_A
      if ( ( menu_A != 10 ) && ( menu_A != 6 ) && (menu_A != 11)  )
      {
         if (key==TL1)
         {
            if (counters) menu_A=1;
            else menu_A=0;
            key=0;
         }
         else printf(lcd_putc,"\r\nesc   cr    roll\r");
      }
   }

   switch (menu_A)         //hlavni menu
   {
   case 0: min=0xffff;    //zakladni menu po resetu, nastaveni promennych
           max=gmcount=gmcount_sm=gmcount_p=timer_s=timer_n=mincount=dif=avg=bkg=0;
           vypocet=sleep=counters=log=echo_switch=false;
           test_batt = true;
           log_switch=read_eeprom(EE_LOG_SWITCH);
           ee_offset=read_eeprom(EE_LOG_OFFSET);
           output_high(HV_ENABLE);
           printf(lcd_putc,"\r%d:%02d  %d.%d.%02d   \nmenu  off  start",hRTC,mRTC,dRTC,mdRTC,yRTC);
            switch (key)
            {
            case TL1:   menu_A=2;break;
            case TL2:   menu_A=menu_B=0;sleep=true;break;
            case TL3:   menu_A=1;menu_B=0;
                        output_low(HV_ENABLE);
                        printf(lcd_putc,"\fSTART HV 400V");
                        delay_ms(2000);
                        counters=true;
                        break;
            }
            if (key) {refresh=true;clear_lcd();}
            break;
   case 1: menu_proces(key);break;  //skok na menu zobrazujici vypoctene a nacitane promenne
   case 3: if (key==TL2) {log_switch=modulo(++log_switch,3);write_eeprom(EE_LOG_SWITCH,log_switch);log=false;}
           switch (log_switch)
           {
            case 0: printf(lcd_putc,"log \176 rs232");break;
            case 1: printf(lcd_putc,"log \176 eeprom 1m");break;
            case 2: mon=LOG_PERIOD;printf(lcd_putc,"log \176 eeprom %um",mon);break;
            //case 3: printf(lcd_putc,"log \176 off       ");break;
           }
           break;
   case 9: printf(lcd_putc,"OFF (stand by)");
           if (key==TL2) {menu_A=menu_B=0;sleep=true;output_high(HV_ENABLE);}
           break;
   case 8: if (key==TL2) if (echo_switch) echo_switch=0;else echo_switch=1;

           if (echo_switch) printf(lcd_putc,"echo  on");
           else printf(lcd_putc,"echo  off");
           break;
   case 4: if (key==TL2) send_data();
           printf(lcd_putc,"send log \176 rs232");
           break;
   case 5: if (key==TL2) {log=false;ee_offset=2;write_eeprom(EE_LOG_OFFSET,2);}
           printf(lcd_putc,"erase eeprom %3u",(int8)(MAX_EEPROM-ee_offset)/2);
           break;
   case 2: printf(lcd_putc,"STOP & clear");
           if (key==TL2) {menu_A=0;menu_B=0;refresh=true;}
           break;
   case 7: printf(lcd_putc,"batterie ");
           //if (!input(CHARGE)) {printf(lcd_putc,"charge");break;}
           if ( key == TL2 || counters )
           {
            if ( !counters ) {output_low(HV_ENABLE);delay_ms(30);}
            analog = (float) (read_adc());
            analog = 1024/analog*1.5 + 0.18;
            if ( !counters ) output_float(HV_ENABLE);
            printf(lcd_putc,"%1.2fV",analog);
           }
           break;
   case 6: if (key == TL2) {pwm++;if (pwm > 10) pwm --;}
           if (key == TL1) {pwm--;if (pwm < 2) pwm ++;}
           set_pwm1_duty(pwm);
           printf(lcd_putc,"contrast: %d\n -     +    roll",pwm);
           break;
   case 10: if (key==TL2) {set_timer1(0);sRTC=0;mRTC=modulo(++mRTC,60);}
           if (key==TL1) hRTC=modulo(++hRTC,24);
           printf(lcd_putc,"\rtime %2d:%02d\nhod   min   roll",hRTC,mRTC);
           break;
   case 11: if (key==TL1) {mon=mdRTC;year=yRTC;set_date();mdRTC=mon;year=yRTC;}
           if (key==TL2) {mon=dRTC;year=yRTC;dRTC=32;set_date();year=yRTC;}
           if (key==0x30) {mon=mdRTC;yRTC++;dRTC--;set_date();}
           printf(lcd_putc,"\rdate %2d.%02d.%02d\nday   mon   roll",dRTC,mdRTC,yRTC);
           break;
   }
}

void counters_fce()
{
   int8 *adr;
   if (vypocet)      //1x za minutu se provede vypocet a log
   {
      dif=gmcount_sm-gmcount_p;
      gmcount_p=gmcount_sm;
      avg=gmcount_sm/mincount;
      if (dif>max) max=dif;
      if (dif<min) min=dif;
      if (mincount==5) bkg=gmcount_sm/5;
      vypocet=false;
      refresh=true;

      if (log)
      {
         //if (log_switch && (ee_offset>(MAX_EEPROM-2))) {log=false;return;}
         switch (log_switch)
         {
         case 0: printf("\n\r%d:%02d %2d/%02d/%02d dif=%lu",hRTC,mRTC,dRTC,mdRTC,yRTC,dif);break;
         case 2: if (log_interval) break;
         case 1: adr=&dif;adr++;bit_clear(*adr,7);
                 write_eeprom(ee_offset++,*adr);
                 write_eeprom(ee_offset++,*(--adr));
                 write_eeprom(EE_LOG_OFFSET,ee_offset);
                 if (ee_offset > (MAX_EEPROM-2)) log=false;
                 break;
         }
         log_interval=modulo(++log_interval,LOG_PERIOD);
      }
   }
}

void echo_fce()
{
   int8 a,c;
   int16 b;
   if (!echo_tik || !counters) return;
   //if (echo_switch==2) {echo_switch=1;echo_cycle=ECHO_MAX_CYCLE/echo_tik;echo_timer=0;}
   if (echo_tik == 1)
   {
         for (a=0;a<2;a++) {output_high(ECHO_PIN1);delay_us(160);output_low(ECHO_PIN1);delay_us(160);}
         echo_tik=0;
   }
   else /*if ((echo_timer == echo_cycle) || (!echo_timer))*/
   {
      echo_switch=1;
      c=echo_tik;
      if (echo_tik <40) {a=40/c;b=0;}
      if ((echo_tik >=40) && (echo_tik < 60)) {a=0;b=40000/c;}
      if (echo_tik >=60) {a=0;b=160;}
      while (echo_tik && (echo_switch==1) && !kbd_press())
      {
         echo_timer=0;
         output_high(ECHO_PIN1);
         delay_us(160);
         output_low(ECHO_PIN1);
         piezo=~piezo;
         delay_us(b);
         delay_ms(a);
      }

      //output_bit(ECHO_PIN2,piezo);
   }
   echo_timer++;
}

void pin_set_sleep()
{
   #use fast_IO(A)
   set_tris_A(0x15);
   output_A(0x2a);
   #use standard_IO(A)
   #use fast_IO(B)
   set_tris_B(0x70);
   output_B(0x8f);
   #use standard_IO(B)
   #use fast_IO(C)
   set_tris_C(0x2);
   output_C(0x84);
   #use standard_IO(C)
}

void sleep_fce()
{
   /*if (!input(CHARGE))           // pokud se nabiji, pak nespi
   {
      printf(lcd_putc,"\fcharged batt");
      tik_to_sleep = 0;
      while (!tik_to_sleep) if (input(CHARGE)) return;
      kbd_getc();
      sleep = false;
   }
   else */
   {
    
   //setup_timer_0(RTCC_DIV_1|RTCC_INTERNAL);
   //setup_timer_1(T1_DISABLED);
   //setup_timer_2(T2_DIV_BY_16,249,10);
   
      
      counters=false;
      printf(lcd_putc,"\fchrrr");
      delay_ms(1000);
      setup_adc_ports(ADC_OFF);
      setup_ccp1(CCP_OFF);
      //SET_TRIS_A(0xFF);
      //SET_TRIS_B(0xFF);
      //SET_TRIS_C(0xFF);
      pin_set_sleep();
      do {sleep();delay_cycles(1);} while ( kbd_state!=0x20 /*&& input(CHARGE)*/ );
      #use fast_IO(B)
      set_tris_B(0x70);
      output_B(0);
      #use standard_IO(B)
      setup_adc_ports(AN0);
   setup_adc(ADC_CLOCK_DIV_16);
   set_adc_channel(0);
   //setup_timer_0(RTCC_DIV_1|RTCC_EXT_L_TO_H);
   
   //setup_timer_2(T2_DIV_BY_16,249,10);
   //setup_ccp1(CCP_PWM);
  
      menu_A=menu_B=0;
      setup_ccp1(CCP_PWM);
      set_PWM1_duty(pwm);
      delay_ms(200);
      output_low(LCD_ENABLE);
      output_high(HV_ENABLE);
      lcd_init();
      //printf(lcd_putc,"\fhello");
      delay_ms(1000);kbd_getc();
      keyp=0;
      sleep=false;
      refresh=true;
   }
}


void main()
{
   setup_adc_ports(AN0);
   setup_adc(ADC_CLOCK_DIV_16);
   set_adc_channel(0);
   setup_timer_0(RTCC_DIV_1|RTCC_EXT_L_TO_H);
   setup_timer_1(T1_EXTERNAL|T1_DIV_BY_8|T1_CLK_OUT);
   setup_timer_2(T2_DIV_BY_16,249,10);
   setup_ccp1(CCP_PWM);
   set_PWM1_duty(0x5);

   enable_interrupts(INT_TIMER2);
   enable_interrupts(INT_RB);
   enable_interrupts(INT_TIMER1);
   enable_interrupts(GLOBAL);

   output_low(LCD_ENABLE);
   KBD_init();
   LCD_init();
   pwm=5;
   sRTC=0;
   mRTC=0;
   hRTC=0;
   dRTC=18;
   mdRTC=10;
   yRTC=07;

   menu_A=menu_B=0;
   refresh=true;
   keyp=0;


   while (TRUE)
   {
     if (refresh) display(keyp);               //povoleni zobrazeni(menu + fce tlacitek)
     if (counters) { tik_to_sleep = TIME_TO_SLEEP;counters_fce();}    //povoleni citacu,vypoctu a logovani
     else if (! tik_to_sleep) sleep = true;    //necita a zadny stisk tlacitek do TIME_TO_SLEEP pak sleep
     if (echo_switch) echo_fce();
     if (kbd_press())                          //test stisku tlacitek,repeat, delay
     {
        if (!save_key) {save_key=kbd_getc();keyp=save_key;refresh=true;key_timer=KEYDELAY;} //delay key
        if (!key_timer) {refresh=true;keyp=save_key;key_timer=KEYREPEAT;}      //repeat key
     }
     else key_timer=save_key=keyp=0;
            //echo (piezo)
     if (test_batt && counters)                     //test napeti baterie
     {
         if (read_adc() > BATT_ENABLE)
            {
               printf(lcd_putc,"\flow batt");
               delay_ms(2000);
               sleep = true;
            }
         test_batt=false;
     }
     if (sleep) sleep_fce();                            //sleep
     //if (!timertest) {timertest=30;output_bit(PIN_C3,test);test=~test;}
     //timertest--;
   }

}
Subversion Repositories – MLAB

(root)/Designs/Data_loggers/GMCOUNT/SW/GMC01A.c

Rev 1858
