rfs0bak.txt

伽马辐射检测仪

#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;
/*  unint  counter;*/
  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 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 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;
  /*	C=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; //键盘响应标志   
    }
  }
}