基于FPGA的数字频率计代码.docx
- 文档编号:8576330
- 上传时间:2023-01-31
- 格式:DOCX
- 页数:5
- 大小:15.13KB
基于FPGA的数字频率计代码.docx
《基于FPGA的数字频率计代码.docx》由会员分享,可在线阅读,更多相关《基于FPGA的数字频率计代码.docx(5页珍藏版)》请在冰豆网上搜索。
基于FPGA的数字频率计代码
--功能:
频率计。
具有4位显示,能自动根据7位十进制计数的结果,自动选择有效数据的
--高4位进行动态显示。
小数点表示是千位,即KHz。
libraryieee;
useieee.std_logic_1164.all;
useieee.std_logic_unsigned.all;
entitypljis
port(start:
instd_logic;--复位信号
clk:
instd_logic;--系统时钟
clk1:
instd_logic;--被测信号
yy1:
outstd_logic_vector(7downto0);--八段码
w1:
outstd_logic_vector(3downto0));--数码管位选信号
endplj;
architecturebehavofPLjis
signalb1,b2,b3,b4,b5,b6,b7:
std_logic_vector(3downto0);--十进制计数器
signalbcd:
std_logic_vector(3downto0);--BCD码寄存器
signalq:
integerrange0to49999999;--秒分频系数
signalqq:
integerrange0to499999;--动态扫描分频系数
signalen,bclk:
std_logic;--使能信号,有效被测信号
signalsss:
std_logic_vector(3downto0);--小数点
signalbcd0,bcd1,bcd2,bcd3:
std_logic_vector(3downto0);
--寄存7位十位计数器中有效的高4位数据
begin
second:
process(clk)--此进程产生一个持续时间为一秒的的闸门信号
begin
ifstart='1'thenq<=0;
elsifclk'eventandclk='1'then
ifq<49999999thenq<=q+1;
elseq<=49999999;
endif;
endif;
ifq<49999999andstart='0'thenen<='1';
elseen<='0';
endif;
endprocess;
and2:
process(en,clk1)--此进程得到7位十进制计数器的计数脉冲
begin
bclk<=clk1anden;
endprocess;
:
process(start,bclk)--此进程完成对被测信号计脉冲数
begin
ifstart='1'then--复位
b1<="0000";b2<="0000";b3<="0000";b4<="0000";b5<="0000";b6<="0000";b7<="0000";
elsifbclk'eventandbclk='1'then
ifb1="1001"thenb1<="0000";--此IF语句完成个位十进制计数
ifb2="1001"thenb2<="0000";--此IF语句完成百位十进制计数
ifb3="1001"thenb3<="0000";--此IF语句完成千位十进制计数
ifb4="1001"thenb4<="0000";--此IF语句完成万位十进制计数
ifb5="1001"THENb5<="0000";--此IF语句完成十万位十进制计数
ifb6="1001"thenb6<="0000";--此IF语句完成百万位十进制计数
ifb7="1001"thenb7<="0000";--此IF语句完成千万位十进制计数
elseb7<=b7+1;
endif;
elseb6<=b6+1;
endif;
elseb5<=b5+1;
endif;
elseb4<=b4+1;
endif;
elseb3<=b3+1;
endif;
elseb2<=b2+1;
endif;
elseb1<=b1+1;
endif;
endif;
endprocess;
process(clk)--此进程把7位十进制计数器有效的高4位数据送如bcd0~3;并得到小数点信息
begin
ifrising_edge(clk)then
ifen='0'then
ifb7>"0000"thenbcd3<=b7;bcd2<=b6;bcd1<=b5;bcd0<=b4;sss<="1110";
elsifb6>"0000"thenbcd3<=b6;bcd2<=b5;bcd1<=b4;bcd0<=b3;sss<="1101";
elsifb5>"0000"thenbcd3<=b5;bcd2<=b4;bcd1<=b3;bcd0<=b2;sss<="1011";
elsebcd3<=b4;bcd2<=b3;bcd1<=b2;bcd0<=b1;sss<="1111";
endif;
endif;
endif;
endprocess;
weixuan:
process(clk)--此进程完成数据的动态显示
begin
ifclk'eventandclk='1'then
ifqq<99999thenqq<=qq+1;bcd<=bcd3;w1<="0111";
ifsss="0111"thenyy1(0)<='0';
elseyy1(0)<='1';
endif;
elsifqq<199999thenqq<=qq+1;bcd<=bcd2;w1<="1011";
ifsss="1011"thenyy1(0)<='0';
elseyy1(0)<='1';
endif;
elsifqq<299999thenqq<=qq+1;bcd<=bcd1;w1<="1101";
ifsss="1101"thenyy1(0)<='0';
elseyy1(0)<='1';
endif;
elsifqq<399999thenqq<=qq+1;bcd<=bcd0;w1<="1110";
ifsss="1110"thenyy1(0)<='0';
elseyy1(0)<='1';
endif;
elseqq<=0;
endif;
endif;
endprocess;
m0:
process(bcd)--译码
begin
casebcdis
when"0000"=>yy1(7downto1)<="0000001";
when"0001"=>yy1(7downto1)<="1001111";
when"0010"=>yy1(7downto1)<="0010010";
when"0011"=>yy1(7downto1)<="0000110";
when"0100"=>yy1(7downto1)<="1001100";
when"0101"=>yy1(7downto1)<="0100100";
when"0110"=>yy1(7downto1)<="1100000";
when"0111"=>yy1(7downto1)<="0001111";
when"1000"=>yy1(7downto1)<="0000000";
when"1001"=>yy1(7downto1)<="0001100";
whenothers=>yy1(7downto1)<="1111111";
endcase;
endprocess;
endbehav;
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 基于 FPGA 数字频率计 代码