85问答库 > 求各位大侠看个VHDL程序解释下为什么这个下载后LED全亮无变化

求各位大侠看个VHDL程序解释下为什么这个下载后LED全亮无变化

2025-03-03 08:59:59

推荐回答（2个）

回答1：

library ieee;
use ieee.std_logic_1164.all;
use ieee.std_logic_arith.all;
use ieee.std_logic_unsigned.all;
entity WATER_LED is --实体开始
port (
clk:in std_logic; --定义时钟 ,我的是50Mhz的时钟
led:out std_logic_vector(7 downto 0)
);
end WATER_LED; --实体结束

architecture behave of WATER_LED is --结构体开始
signal light :std_logic_vector(7 downto 0);--中间信号，在程序中主要处理的对象,程序开始的时候是00000000
constant len: integer:=7; --定义常量len
signal banner: std_logic:='0'; --定义信号banner为两种节拍转换信号
signal clk1,clk2,clk3:std_logic; --定义信号clk1，clk2作为辅助时钟信号

begin

process (clk) --进程开始，由clk分得10hz clk1 和 5hz clk2
variable a:natural:=1;
variable b:natural:=1;
begin
if (clk'event and clk='1') then
if(a=2500000)then
a:=1;
clk1<=not clk1;
else
a:=a+1;
end if;
if(b=5000000)then
b:=1;
clk2<=not clk2;
else
b:=b+1;
end if;
end if;
end process;

process (clk1,clk2,banner) --进程开始，实现彩灯循环
variable flag:natural:=0; --定义标志变量flag
begin
clk3<=(clk1 and banner) or (clk2 and not banner); --实现时钟clk3，包括两种循环节拍clk1和clk2
if (clk3'event and clk3='1') then
if(flag=0)then --第一种花型，顺序
light<='1'&light(len downto 1);
if light(1)='1' then
flag:=1; --彩灯全亮后，将flag赋值为1
end if;
elsif(flag=1)then --第一花型，逆序
light<=light(len-1 downto 0)&'0';
if light(6)='0' then
flag:=2; --彩灯全灭后，将flag赋值为2
end if;
elsif(flag=2)then --第二花型，渐亮
light(len downto 4)<=light(len-1 downto 4)&'1';
light(len-4 downto 0)<='1'&light(len-4 downto 1);
if light(1)='1' then
flag:=3; --彩灯全亮后，将flag赋值3
end if;
elsif(flag=3)then --第二种花型，渐灭
light(len downto 4)<='0'&light(len downto 5);
light(len-4 downto 0)<=light(len-5 downto 0)&'0';
if light(2)='0' then flag:=4; --彩灯全灭后，将flag赋值为4
end if;
elsif(flag=4)then --第三花型
light(len downto 4)<='1'&light(len downto 5);
light(len-4 downto 0)<='1'&light(len-4 downto 1);
if light(1)='1' then
flag:=5; --彩灯全亮后，将flag赋值为5
end if;
elsif(flag=5)then
light<="00000000";
flag:=6; --彩灯全灭后，将flag赋值为6
elsif(flag=6)then --实现banner信号转换，实现第二种节拍
banner<=not banner;
flag:=0; --所有过程结束，将flag置初始值
end if;
end if;
led<=light;--将中间信号的值赋给输出端
end process; --进程结束

end behave; --结构体结束

第一种花型，顺序
light<='1'&light(len downto 1);
00000000=>10000000=>11000000......=>11111111
第一种花型，逆序
light<='1'&light(len downto 1);
00000000<=10000000<=11000000......<=11111111

第二种花型渐亮
light(len downto 4)<=light(len-1 downto 4)&'1';
前四位的变化
0000=>0001=>0011=>0111=>1111
light(len-4 downto 0)<='1'&light(len-4 downto 1);
后四位的变化
0000=>1000=>1100=>1110=>1111
写到一起看
00000000=>10000001=>11000011=>11100111=>11111111

第二种花型渐灭
light(len downto 4)<='0'&light(len downto 5);
前四位的变化
1111=>0111=>0011=>0001=>0000
light(len-4 downto 0)<=light(len-5 downto 0)&'0';
后四位的变化
1111=>1110=>1100=>1000=>0000
写到一起看
00000000<=10000001<=11000011<=11100111<=11111111

第三花型
light(len downto 4)<='1'&light(len downto 5);
1000=>1100=>1110=>1111
light(len-4 downto 0)<='1'&light(len-4 downto 1);
1000=>1100=>1110=>1111

最后说洗一下：
我把分得频率降下来了，频率太高，人眼就看不到变化了；

variable: 变量名：类型：=初值；
signal: 信号名：类型：=初值；
这两个的类型要注意，不要弄混了。

要看到比较好的效果，就一定要把频率调好

回答2：

你才二分频，一般时钟频率都在100MHz左右，你二分频，也有50M吧，那么LED的闪炼是非常的快，你想想看，人的肉眼怎么能观察到50MHz的变化，你至少要把频率分在100Hz以下才能观察到LED的变化，，建议你改下分频程序，把频率降到人肉可以分辩的范围！！！

如何做一名拥有职业幸福感的教师?

做完痔疮手术后可以吃白粥香蕉吗

三位数除以一位数的商（　　） A．一定是两位数 B．可能是三位数也可能是两位数 C．可能是两位数也可能是

有一首歌里面有句词叫，心碎了无痕，不是张学友唱的。注意了~好像声音很沧桑类似与张宇的？~大家知道吗

安装linux需要注意什么

以前吃过一种干货，白色的，一片一片的，用水泡了之后，炒来吃，很好吃，滑滑的。不知道叫什么，求名字

从顾村公园到交通大学怎么坐公交车，最快需要多久

手机QQ里缓存的图片怎么设置放到外置SD卡里？

AI, CDR 快捷键

求各位大侠看个VHDL程序 解释下为什么这个下载后LED全亮无变化

求各位大侠看个VHDL程序解释下为什么这个下载后LED全亮无变化