rfsbak.c

伽马辐射检测仪

#include <reg51.h>
typedef unsigned char unchar;
typedef unsigned int  unint;
sbit LED=P3^4;
  unchar data buf1=0,buf2=0,buf3=0,buf4=0,time=0;
  unchar data sec=0,keyc=0,nh=0,noq=0,nob=0,nos=0,nog=0;
  unchar data tjq=0,tjb=0,tjs=0,tjg=0,cpsw=0,cpsq=0,cpsb=0,cpss=0,cpsg=0;
  unchar data staten=0,state=0,statek=0,setp=0;
  unint  counter;
  unchar bdata secd=0;
  unchar bdata flag=0;
     sbit secd4=secd^4;
     sbit secd8=secd^5;
     sbit secd2=secd^7;
     sbit keyp=flag^0;
     sbit disply=flag^1;
     sbit setg=flag^3;
     sbit seting=flag^4;
     sbit cont=flag^5;
     sbit dins=flag^7;
  unchar code statekey[16]={0x11,0x21,0x32,0x43,0x60,0x60,0x60,0x60,
                            0x72,0x82,0x60,0x60,0x93,0x83,0x60,0x60} ;
  unchar code key[16]={0,1,2,0,3,0,0,0,4,0,0,0,0,0,0,0};
  unchar code bxl[12]={0x09,0x0EB,0x98,0x8A,0x6A,0x0E,0x0C,0x0CB,0x08,0x0A,0x0FF,0x0FF};
void init(void);
void delay(unchar k );
void dispss(void);
void disp(void);
void cps(void);
void beg(void);
unchar kin(void);
void wk6(void);
void time1( ) interrupt 3
     {
          ++nh;
     }
void time0( ) interrupt 1 using 1
{ 	
        unint i=0,j=0;
	unchar k=0;
  /*	C=0;*/
   	TL0=TL0|0x0ee;
	TH0=0x85;
        secd=secd+0x10;
       time=time+1;
  if(time>15){	
      sec=sec+1;
      time=0;
      if(sec>=4)
       {
        if(!state&&cont)
         {
          beg();
   	  state=1;
         }
       if(state==1)
         {
          if(dins)
	    {
            if(!nh)
	     {k=TH1;
	     k=k>>4; 
             i=tjq*1000+tjb*100; /*计数条件*/
	     j=k*4096+(TH1&0x0f)*256;    /* ***** */
	     if(i<j) cps();
             else if(sec>64) cps();
	     } }
           else if (tjs*10+tjg==sec) 
               {
                 cps();
               } 
         
         }
       }
      } 
	disply=secd4;
    }                
void main(void)
{  /* unchar i,j;*/       
    init();
    while(1)
   {if(!disply) 
      disp();
     keyc=kin();
     delay(50);
     keyc=kin();
     if(keyc==0) keyp=0;                    /*防止连击*/                    
   if(keyc&&!keyp)
     {   cont=0;
	statek=4*state+keyc;                
	statek=*(statekey+statek-1);         /*取对应状态键码*/
	keyc=statek;
	statek=statek&0x0f;                /*取次态*/
	staten=statek;
	statek=keyc;
	statek=statek>>4; 
    if(statek==7||statek==9) setg=1;
    else setg=0;                /*取执行模块号*/
      switch(statek)
       {
        case 0:                   break;
    	case 1: beg(); cont=1;    break;
    	case 2: beg();            break;
    	case 3:
    	case 4: seting=0; setp=0; break;
    	case 5:                   break;
        case 6: if(state==1) cpsq=0;cpsb=0;cpss=0;cpsg=0;sec=0;break;
	        	if(state==2)
                {
                   wk6(); 
	        	   seting=0;
			       setp=0;
                }           break;
    	case 7: if((setp==3)&&seting){ ++tjq;if(tjq>9) tjq=0;} 
	        	if((setp==2)&&seting){ ++tjb;if(tjb>9) tjb=0;} 
                if((setp==1)&&seting){ ++tjs;if(tjs>9) tjs=0;} 
                if((setp==0)&&seting){ ++tjg;if(tjg>9) tjg=0;} break;
	case 8: if(seting){setp=setp+1; setp=setp&0x03;}   break;
	           seting=1;break;
	case 9: if((setp==3)&&seting){++noq;if(noq>9)noq=0;}
		if((setp==2)&&seting){ ++nob;if(nob>9) nob=0;}
                if((setp==1)&&seting){ ++nos;if(nos>9) nos=0;} 
                if((setp==0)&&seting){ ++nog;if(nog>9) nog=0;} break; 
       	default:break;
       }
              if(setg)  seting=1;
               state=staten;
               keyp=1;    
    }
  }
}
void init()
{	
        unchar i;
        for(i=0;i<3;i++) 
        { LED=0;
	 delay(200);
	 LED=1;
	 delay(100);
        }	 
        for(i=0;i<11;i++)
	{ buf1=buf2=buf3=buf4=i;
	  dispss();
	  delay(200);
 	}
        /* 自检 */ 
	tjg=4;
  	nog=1;

	TH0=0x85;
	TL0=0x0ee;
	TMOD=0x51;
	PT1=1;
	ET1=0;
	TR0=1;
	ET0=1;
	EA=1;
}
 void cps( )
  {     unsigned long int i=0;
        unint j=0;
	unchar k=0;
	unchar m=0;
        TR1=0;
	ET1=0;
	k=TH1;
	k=k>>4;
	TH1=TH1&0x0f;
        m=TL1;
	m=m>>4;
	TL1=TL1&0x0f;
        i=nh*65536+k*1024+TH1*256+m*16+TL1;
        j=j&0x000fffff;
        j=i/sec;
        cpsw=j/10000;
	j=j%10000;
        cpsq=j/1000;
	j=j%1000;
	cpsb=j/100;
	j=j%100;
	cpss=j/10;
	cpsg=j%10; 
	if(cpsw){cpsq=9;cpsb=9;cpss=9;cpsg=9;}
	nog=nog+1;
	if(nog>9) {nog=0; nos=nos+1;}
	if(nos>9) {nos=0; nob=nob+1;}
	if(nob>9) {nob=0; noq=noq+1;}
	if(noq>9) {nog=1; nos=0;nob=0;noq=0;}
	state=0;
	sec=0;            
        }        	 
     void disp( )
      {   
       disply=1;
       switch(state)
	{
         case 0:{LED=1; buf4=cpsq;buf3=cpsb;buf2=cpss;buf1=cpsg;} break;
         case 1:{LED=0; buf4=noq; buf3=nob;buf2=nos;buf1=nog ;  } break;
	     case 2:{LED=secd2;buf4=tjq;buf3=tjb;buf2=tjs;buf1=tjg; } break;
	     case 3:{LED=secd8;buf4=noq;buf3=nob;buf2=nos;buf1=nog; } break;
	}
       if(!seting){if(buf4==0){buf4=0x0a;
			       if(buf3==0){buf3=0x0a;                     /*灭零处理*/
                   if(buf2==0)buf2=0x0a;}}}         
       if(seting&&secd8){ setp=setp&0x03;
                           switch(setp)
                           {case 0: buf1=0x0a; break;
			    case 1: buf2=0x0a; break;
                            case 2: buf3=0x0a; break;                                     
                            case 3: buf4=0x0a; break;
                           }
                        }
           dispss( );
       }
     void dispss( )
      { SCON=0;
	SBUF=*(bxl+buf1);
	while(!TI){ } 
	TI=0;
        SCON=0;
	SBUF=*(bxl+buf2);
	while(!TI){ } 
	TI=0;
        SCON=0;
	SBUF=*(bxl+buf3);
	while(!TI){ } 
	TI=0;
        SCON=0;
	SBUF=*(bxl+buf4);
	while(!TI){ } 
	TI=0;
      }
      unchar kin( )
      { unchar k;
        P1=0xff;
        k=P1;
        k=(~k)&0x0f;
        k=*(key+k);
        return k;       
      } 
    void beg()
     {  nh=0;
	TH1=0;
	TL1=0;
	sec=0;
	secd=0;
	TL0=0x0ee;
	TH0=0x85;
	TR1=1;
    ET1=1;
     } 
    void delay( unchar k)
     { unchar j;
         while(k--)
       {
    for(j=0;j<=250;j++)
	        {;}
       }    
    return;
    }
    void wk6()
    {   unchar i,j;
        i=tjq*10+tjb;
        if(tjq==0&&tjb){tjq=1;tjb=0;tjs=0;tjg=0;dins=1;}   /*定数*/
		if(i>=95){tjq=9;tjb=0;tjs=0;tjg=0;dins=1;}
		if(i==0)                                          /*定时*/
		{j=tjs*10+tjg;
		if(j>64) tjs=6,tjg=4;
		if(j<4)  tjs=0,tjg=4;
		dins=0;
        }
    }