按键显示器vhdl程序
4星 · 超过85%的资源 需积分: 10 17 浏览量
2009-02-26
12:25:48
上传
评论 5
收藏 24KB DOC 举报 
library IEEE;
use IEEE.STD_LOGIC_1164.ALL;
use IEEE.STD_LOGIC_UNSIGNED.ALL;
entity xianshi is
port(A0,A1,A2,A3,A4,A5,A6,A7,A8,A9:IN STD_LOGIC;
clk:in std_logic;
q1,q2,q3,q4,q5,q6,q7,q8:out std_logic_vector(3 downto 0));
end;
architecture one of xianshi is
begin
process(clk,A0,A1,A2,A3,A4,A5,A6,A7,A8,A9)
VARIABLE P:STD_LOGIC_VECTOR(9 DOWNTO 0);
VARIABLE s:integer range 0 to 8;
VARIABLE t:STD_LOGIC_VECTOR(3 DOWNTO 0);
VARIABLE w:STD_LOGIC_VECTOR(7 DOWNTO 0);
variable m1,m2,m3,m4,m5,m6,m7: std_logic_vector(3 downto 0);
begin
if clk'event and clk='1'then
p:=A0&A1&A2&A3&A4&A5&A6&A7&A8&A9;
if p>0 then s:=s+1;
if s>8 then s:=0;
end if;
case s is
when 0 =>w:="00000000";
when 1 =>w:="00000001";
when 2 =>w:="00000011";
when 3 =>w:="00000111";
when 4 =>w:="00001111";
when 5 =>w:="00011111";
when 6 =>w:="00111111";
when 7 =>w:="01111111";
when 8 =>w:="11111111";
when others =>null;
end case;
case p is
when "0000000001"=>t:="1001";
when "0000000010"=>t:="1000";
when "0000000100"=>t:="0111";
when "0000001000"=>t:="0110";
when "0000010000"=>t:="0101";
when "0000100000"=>t:="0100";
when "0001000000"=>t:="0011";
when "0010000000"=>t:="0010";
when "0100000000"=>t:="0001";
资源评论
withwindcool2015-06-11不错的资源，正好有我嗦需要的- tian_wei092013-11-14不错 很实用的程序 谢谢啦
- pjf4122013-12-25挺好的 虽然不是我需要的 但是值得参考
Lynnsea2013-07-29挺好的，跟我要的要求一样
