rfs.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 staten=0,state=0,statek=0,setp=0;
  unsigned long int  sec=0;
  unchar bdata secd=0;
  unsigned 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 delay( unchar k) //延时
     { unchar j;
      while(k--)
       {
    for(j=0;j<=250;j++)
	        {;}
       }    
    return;
    }  
     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;
      }
     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( )                 //计算cps值
  { unsigned long int i=0;
    unint j=0;
    unchar H1=0,L1=0;
    unchar k=0;
	unchar m=0;
    TR1=0;
	ET1=0;
	k=TH1;
    k=k>>4;//移出千位
	H1=TH1&0x0f;
    m=TL1;
	m=m>>4;//移出十位
	L1=TL1&0x0f;
    i=nh*65536;
    i+=k*4096;
    i+=H1*256;
    i+=m*16+L1;
    j=j&0x0000fffff;
    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; //cps千百十个位值分别送对应显示缓冲区
         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;      //1/8秒闪烁
			    case 1: buf2=0x0a; break;
                case 2: buf3=0x0a; break;                                     
                case 3: buf4=0x0a; break;
               }
          }
           dispss( );
       }
    
      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 wk6() // 对设定测量条件进行判段处理子程序（1态下任意键和2态下k3,k4键处理）
    {   unchar i,j;
        i=tjq*10+tjb;
        if(i)
        {
          if(tjq==0&&tjb)
           {
            tjq=1;
            tjb=0;
            tjs=0;
            tjg=0;
           }   /*定数*/
	      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;
        }
    }
void time1( ) interrupt 3
     {
          ++nh;
     }
void time0( ) interrupt 1 using 1
{ 	
    unsigned long int i=0,j=0;
	unchar k=0,m=0;
   	TL0=TL0|0x0ee;
	TH0=0x85;
    secd=secd+0x10;//1/16秒加一次
    time=time+1;
    if(time>16)
     {	//满一秒
      sec=sec+1;
      time=0;
      if(sec>=4)//满4秒否
       {
        if(!state&&cont)//启动一次点测
         {
          beg();
   	      state=1;
         }
       if(state==1)
        {
        if(dins)
	     {
          if(!nh)
	      {
	       k=TH1;
	       k=k>>4; 
           i=tjq*1000+tjb*100; /*计数条件*/
           m=TH1&0x0f;
           j=k*4096+m*256;    
	       if(i<j) cps();     //比较条件满足否
           else if(sec>64) cps();
          }
          else 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==2)
                 { 
                   wk6();
                   seting=0;
                   setp=0;
                 } //完成修改后分析处理定时or定数测量
                if(state==1)
                 {
                    cpsq=0;
                    cpsb=0;
                    cpss=0;
                    cpsg=0;
                    sec=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;
     	         }  //显示定位修改 
	            else  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; //键盘响应标志   
    }
  }
}