rfs2.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 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 statek=0,setp=0;
  unsigned long int  sec=0;
  unchar bdata state;
  unchar bdata secd=0;
  unchar bdata flag=0;
     sbit setph=state^0;
     sbit setpl=state^1;
     sbit noss=state^2;
     sbit tjss=state^3;
     sbit seting=state^4;
     sbit cont=state^5;
     sbit meas=state^6;
     sbit dins=state^7;
    /* sbit secd4=secd^4;*/
     sbit secd8=secd^5;
     sbit secd2=secd^7;
     sbit keyp=flag^0;
unchar code bxl[12]={0x09,0x0EB,0x98,0x8A,0x6A,0x0E,0x0C,0x0CB,0x08,0x0A,0x0FF,0x0FF};

void dispss(void);
void disp(void);
void cps(void);
void delay( unchar t )
     {
      unchar j;
     while(t--)
     {
      for(j=0;j<=250;j++)
	        { ; }
      }
     }

 void beg( )
     {  meas=1;
        nh=0;
    	TH1=0;
    	TL1=0;
    	sec=0;
    	secd=0;
    	time=0;
    	TL0=0x0ee;
    	TH0=0x85;
    	TR1=1;
        ET1=1;
     } 
void k41(void)
{
  unchar i,j;
  i=tjq*10+tjb;
  if(tjss) //条件状态
  {
   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;
     }
  } 
  sec=0;
  state=state&0x80;
}

 void key( )
      { unchar m=0,k=0,n=0;
        P1=0xff;
        k=P1;
        k=P1;
        k=k&0x0f;
        k=(~k)&0x0f;
       if(k)
       {
        n=keyc;
     	keyc=k;
    	k=n;
    	k=k^n;
       if(!k&&keyp)
        {
         cont=0;
         if(!meas)
         { statek=state;
	   setp=statek&0x03;
           switch(keyc)
             {
              case 1:if(noss&&(setp==0)&&seting){ ++noq;;if(noq>9) noq=0;} //序号状态
		             if(noss&&(setp==1)&&seting){ ++nob;;if(nob>9) nob=0;} 
                     if(noss&&(setp==2)&&seting){ ++nos;;if(nos>9) nos=0;} 
                     if(noss&&(setp==3)&&seting){ ++nog;;if(nog>9) nog=0;} 
                     if(tjss&&(setp==0)&&seting){ ++tjq;if(tjq>9) tjq=0;} //条件状态
		             if(tjss&&(setp==1)&&seting){ ++tjb;if(tjb>9) tjb=0;}   
                     if(tjss&&(setp==2)&&seting){ ++tjs;if(tjs>9) tjs=0;} 
                     if(tjss&&(setp==3)&&seting){ ++tjg;if(tjg>9) tjg=0;} 
                     if(noss||tjss) seting=1;
                     else beg( );
                     cont=1;break;
              case 2:if(seting&&(noss||tjss))
                               {statek=state;++statek;statek=statek&0x03;k=state;
                                state=statek;statek=k;statek=statek&0x0fc;
			                	state=statek|state;
			                   } 
                     if(noss||tjss) seting=1;  
                     else beg( );break;
       	      case 4:statek=state;statek=statek&0x0c;
                     if(!statek)
                      {state=((state&0x80)|8);}
                     else k41( );break;                          
	          case 8:statek=state;statek=statek&0x0c;
                     if(!statek)
                      {state=(state&0x80|4);}
                     else k41( );break;
              default:break;
             }
             /* seting=1;*/
          }
         else  if(meas)
         {
          meas=0;
	      cpsq=0;
          cpsb=0;
          cpss=0;
          cpsg=0;
	      sec=0;
         }
        }
       keyp=1;   
       }
  else keyp=0;  /* 注意 调试能否可行*/
      disp( );
      } 
   
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>16){
      time=0;
      sec=sec+1;
      if(sec>=4)
       {
       if(!meas&&cont)/*休止中且连测状态*/
         {
          beg();
   	     }
       if(meas)     /*测量中*/
         {
          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();
               } 
          }
          
         }
  
        }
      } 
      key( ); 
     }                
void main( )
{
    unchar i=0;
    unchar j=0;       
    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;
	ET0=1;
	TR0=1;
	EA=1;
    while(1) PCON=1;
}

 void cps( )
  {
     unsigned long int i=0;
     unint j=0;
	 unchar k=0;
	 unchar m=0;
	 unchar H1=0,L1=0;
     TR1=0;
     ET1=0;
     meas=0;
	k=TH1;
	k=k>>4;
	H1=TH1&0x0f;
    m=TL1;
	m=m>>4;
	L1=TL1&0x0f;
    i=nh*65536+k*4096+H1*256+m*16+L1;
    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;} //cps 封顶
	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;}// 序号大于9999后从1开始计
	sec=0;            
        }        	 
     void disp( )
      {   
       statek=state&0x4c;
       switch(statek)
	{ 	  
        case 0:{LED=1; buf4=cpsq;buf3=cpsb;buf2=cpss;buf1=cpsg;} break;
        case 4:{LED=secd8;buf4=noq;buf3=nob;buf2=nos;buf1=nog; } break; 
        case 8:{LED=secd2;buf4=tjq;buf3=tjb;buf2=tjs;buf1=tjg; } break;
	    case 64:{LED=0; 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){ statek=statek&0x03;
                           switch(statek)
                           {case 0: buf4=0x0a; break;
			                case 1: buf3=0x0a; break;
                            case 2: buf2=0x0a; break;                                     
                            case 3: buf1=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;
        }