资源描述：
《简易数字频率计c程序清单》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、河池学院2004届本科生毕业论文（设计）简易数字频率计附件源程序如下：#includeunsignedchardatakey,flag_ft,point,buffer,j,INT1_ready,couter0,couter1,bus0,bus1,cycle;//键盘，频率判决结果,小数点位置标志,判决频率寄存,显示缓冲变量,边沿触发界定,定时器0定时寄存,定时器1定时寄存,显示刷新循环寄存CT0计数值寄存,CT1计数值寄存，显示循环变量unsignedintdataZ,delay,k,turn
2、;//占空比,程序延迟循环变量,判断频率段跳转值，等于各测量值floatdataT,F,T_T,F_F,W;//周期,频率,脉宽unsignedcharcodeBitTab[4]={0x7f,0xbf,0xdf,0xef};//位驱动码unsignedcharcodeDispTab[]={0x3F,0x06,0x5B,0x4F,0x66,0x6D,0x7D,0x07,0x7F,0x6F,0x80};//字形码/*0123456789.*/unsignedchardataDispBuf[4];//待显示数据寄存s
3、bitP2_0=P2^0;//位变量定义sbitP2_1=P2^1;sbitP2_2=P2^2;sbitP2_3=P2^3;sbitP1_0=P1^0;sbitP1_1=P1^1;sbitP1_2=P1^2;sbitP1_3=P1^3;sbitP1_4=P1^4;sbitP1_5=P1^5;sbitP1_6=P1^6;sbitP1_7=P1^7;sbitP0_7=P0^7;sbitP3_3=P3^3;////////////////////////////////////////////////////////
4、///////////voidFt();//1KHZ/16KHZ门限频率判决函数voidFt_10();//10KHZ门限频率判决函数voidtest_af();//小于1KHZ的频率测量函数voidtest_w();//小于10KHZ脉冲宽度测量函数voidtest_bf();//1KHZ~16KHZ频率测量函数voidtest_z();//占空比测量函数voidtest_at();//小于1KHZ的周期测量函数voidtest_bt();//1KHZ~16KHZ周期测量函数voidtest_cf();//1
5、6KHZ以上频率测量函数voidtest_ct();//16KHZ以上周期测量函数voidDisplay();//显示驱动函数voidDelay_5m();//软件延迟约5ms函数voidMeasure();//按键处理与对应测量函数/////////////////////////////////////////////////////////////////////voidFt()//判决1KHZ/16KHZ13河池学院2004届本科生毕业论文（设计）简易数字频率计{//unsignedcharp;TMOD
6、=0x15;TL1=0xb0;TH1=0x3c;TH0=0;TL0=0;TR1=1;TR0=1;for(;TF1==0;);TF1=0;for(;TF1==0;);TF1=0;for(;TF1==0;);TF1=0;TR0=0;TR1=0;k=TL0
7、(TH0<<8);if(k>131)flag_ft=3;elseif(k>10)flag_ft=2;elseflag_ft=1;}///////////////////////////////////////////////////////////////////
8、/////////////voidFt_10()//判决10KHZ函数{TMOD=0X15;TL1=0XC0;TH1=0XE0;TH0=0;TL0=0;TR1=1;TR0=1;for(;TF1==0;);TF1=0;TR0=0;TR1=0;k=TL0
9、(TH0<<8);if(k<=5)flag_ft=4;elseflag_ft=5;}////////////////////////////////////////////////////////////////////////////////voidtest_a
10、f(void)//测量小于1KHZ的频率,用INT1和CT0。{F=0;13河池学院2004届本科生毕业论文（设计）简易数字频率计test_at();P1=P1
11、0xff;//清除上次单位指示F=1000000/T_T;if(F<10){F*=1000;point=1;}elseif(F<100){F*=100;point=2;}elseif(F<1000){F*=10;point=3
