发 帖  
原厂入驻New

采用等精度测频原理的频率计的程序与仿真

2008-6-27 10:57:50  5651
分享

times New="New" Roman'; mso-bidi-font-family: 'Times New="New" Roman'; mso-ascii-font-family: 'Times New="New" Roman'; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA">采用等精度测频原理的频率计的程序与仿真

 

--文件名:PLJ.vhd

--功能:4位显示的等精度频率计。

--最后修改日期:2004.4.14

library ieee;

use ieee.std_logic_1164.all;

use ieee.std_logic_unsigned.all;

use ieee.std_logic_arith.all;

entity PLJ is

  port(clk:in std_logic;                      --基准时钟(10KHz)

      tclk:in std_logic;                     --被测信号

      start:in std_logic;                     --复位信号

      alarm0,alarm1:out std_logic;            --超量程,欠量程显示 

      dian:out std_logic_vector(3 downto 0);    --小数点

      data1:out integer range 0 to 9999);        --频率数据

end PLJ; 

architecture behav of PLJ is

signal q:integer range 0 to 9999;               --预置闸门分频系数

signal q1:integer range 0 to 10000;             --被测信号计数器

signal q2:integer range 0 to 20000;             --基准信号计数

signal en,en1:std_logic;                      --预置闸门,实际闸门

signal qq,qqq:integer range 0 to 200000000;     --运算器

signal data0:integer range 0 to 9999;           --频率数据中间信号

microsoft-com:office:office" /> 

begin

process(clk)                 --此进程得到一个预置闸门信号

begin

  if clk'event and clk='1' then

     if start='1' then q<=0;en<='0';

     elsif q=9999 then q<=9999;en<='0';

     else q<=q+1;en<='1';

     end if;

  end if;

end process;

 

process(tclk)               --此进程计被测信号脉冲数,和得到一个实际闸门信号

begin

  if tclk'event and tclk='1' then

     if start='1' then q1<=0;en1<='0';

     elsif en='1' then q1<=q1+1;en1<='1';

     else en1<='0';

     end if;

  end if;

end process;

 

process(clk)           --此进程完成在实际闸门时间内,计基准脉冲数  

begin

  if clk'event and clk='1' then

     if start='1' then q2<=0;

     elsif en1='1' then

        if q2=20000 then q2<=20000;

        else q2<=q2+1;

        end if;

     end if;

  end if;

end process;

 

process(clk)                --此进程完成等精度频率计的运算

begin

  if clk'event and clk='1' then

     if start='1' then data0<=0;dian<="0000";alarm0<='0';alarm1<='0';qqq<=0;qq<=00;

     elsif en1='0' then

        if q1>=1000  then qq<=q1*10000;          --根据q1的大小来判断小数点的位置

           if qqq<qq then qqq<=qqq+q2;data0<=data0+1;dian<="0000";     --完成数据运算

           elsif data0>=10000 then alarm0<='1';                          --超量程显示        

           else data1<=data0;

           end if;

        elsif q1>=100 then qq<=q1*100000;

           if qqq<qq then qqq<=qqq+q2;data0<=data0+1;

           elsif data0>=10000 then data1<=1000;dian<="0000"; 

           else data1<=data0;dian<="0010";

           end if;

        elsif q1>=10 then qq<=q1*1000000;

           if qqq<qq then qqq<=qqq+q2;data0<=data0+1;

           elsif data0>=10000 then data1<=1000;dian<="0010"; 

           else data1<=data0;dian<="0100";

           end if;

        elsif q1>=1 then qq<=q1*10000000;

           if qqq<qq then qqq<=qqq+q2;data0<=data0+1;

           elsif data0>=10000 then data1<=1000;dian<="0100"; 

           else data1<=data0;dian<="1000";

           end if;   

        end if;  

     elsif q2>19999 then alarm1<='1';                                    --欠量程显示

     else alarm1<='0';

     end if;

  end if;

end process;

end behav;

 

等精度频率计仿真图

说明:小数点dianen1的下降沿就输出,在某些特殊情况(1000tclk=clk仿真图所示),只有当数据转换完成时,小数点dian的信号才能保证正确。用数据作为闸门来控制小数点dian信号输出,这部分可以在译码部分完成。

q5nfERm0.doc (174 KB, 下载次数: 65)

0
2008-6-27 10:57:50   评论 分享淘帖
14 个讨论
请教大虾我想做的等精度频率计需要32位计数器该怎么实现呢,我看到很多资料的原理框图32为计数器为一个框图,我想请问这表示有现成的32位计数器?还是仍然需要组合??谢谢!
2008-7-14 21:25:04 评论

举报

我想学习学习,呵呵
2010-8-31 21:02:21 评论

举报

这个程序我一直在写
2011-12-24 19:49:47 评论

举报

最近在测量频率  刚好
2012-3-22 21:42:26 评论

举报

这样不好看啊
2012-6-28 22:39:03 评论

举报

没钱了,多回复两次
2012-6-28 22:40:07 评论

举报

{:soso_e167:}{:soso_e132:}
2012-9-4 14:10:38 评论

举报

kankkn
2012-9-4 14:38:55 评论

举报

用cpld做的!
2013-3-15 09:33:27 1 评论

举报

1 条评论
看看,学习下!!!!
2013-4-18 22:46:11 评论

举报

谢谢…………………………………………
顶顶顶顶顶顶顶顶顶顶
2013-5-14 20:59:24 评论

举报

支持支持支持支持支持支持
不错的,顶一个!!!!
2013-12-25 22:23:58 评论

举报

高级模式
您需要登录后才可以回帖 登录 | 注册

声明:本文内容及配图由入驻作者撰写或者入驻合作网站授权转载。文章观点仅代表作者本人,不代表电子发烧友网立场。文章及其配图仅供工程师学习之用,如有内容图片侵权或者其他问题,请联系本站作侵删。 侵权投诉
发表新帖
关闭

站长推荐 上一条 /8 下一条

快速回复 返回顶部 返回列表