大家帮个忙帮我看小这个小键盘和扫描程序我有点看不懂。

发表于 2007-8-22 11:16

大家帮个忙帮我看小这个小键盘和扫描程序我有点看不懂。。。 扫描程序 ------------------------------------------------- --芳元电子工作室，版权所有，严禁用于商业用途 --实体名：keyboard --功  能：4×4键盘扫描和获得键盘值 --接  口：clk -时钟输入 --        lie -列值输入 --        hang-行扫描输出 --        qout-键盘值BCD码输出 --作  者：Justin Xu  --日  期：2005-08-16 ------------------------------------------------- library ieee; use ieee.std_logic_1164.all; use ieee.std_logic_unsigned.all; use ieee.std_logic_arith.all; entity keyboard is port (clk  :in  std_logic;  lie  :in  std_logic_vector(3 downto 0);  hang :out std_logic_vector(3 downto 0);  qout :out std_logic_vector(3 downto 0) ); end keyboard; architecture behave of keyboard is signal cnt:std_logic_vector(1 downto 0); signal hang_tem:std_logic_vector(3 downto 0); signal tem:std_logic_vector(3 downto 0); signal reg:std_logic_vector(3 downto 0); begin tem&lt=lie; process(clk) begin   if clk'event and clk='1' then      if cnt="11" then         cnt&lt="00";      else         cnt&lt=cnt+1;      end if;      case cnt is        when "00"=&gthang_tem&lt="1101";                   if tem="1110" then                      reg&lt="0000";                   elsif tem="1101" then                      reg&lt="0001";                   elsif tem="1011" then                      reg&lt="0010";                   elsif tem="0111" then                      reg&lt="0011";                   else                      reg&lt=reg;                   end if;        when "01"=&gthang_tem&lt="1011";                   if tem="1110" then                      reg&lt="0100";                   elsif tem="1101" then                      reg&lt="0101";                   elsif tem="1011" then                      reg&lt="0110";                   elsif tem="0111" then                      reg&lt="0111";                   else                      reg&lt=reg;                   end if;              when "10"=&gthang_tem&lt="0111";                   if tem="1110" then                      reg&lt="1000";                   elsif tem="1101" then                      reg&lt="1001";                   elsif tem="1011" then                      reg&lt="1010";                   elsif tem="0111" then                      reg&lt="1011";                   else                      reg&lt=reg;                   end if;                when "11"=&gthang_tem&lt="1110";                   if tem="1110" then                      reg&lt="1100";                   elsif tem="1101" then                      reg&lt="1101";                   elsif tem="1011" then                      reg&lt="1110";                   elsif tem="0111" then                      reg&lt="1111";                   else                      reg&lt=reg;                   end if;                when others=&gthang_tem&lt="1111";                     reg&lt=reg;      end case;    end if;    hang&lt=hang_tem;    qout&lt=reg; end process;  end behave; 电路图也上传了 谢谢大家

发表于 2007-8-25 12:53

library ieee; use ieee.std_logic_1164.all; use ieee.std_logic_unsigned.all; use ieee.std_logic_arith.all; entity keyboard is               --由hang输出扫描信号，此时监听lie信号，来判断是什么键按下。 port (clk  :in  std_logic; lie  :in  std_logic_vector(3 downto 0); hang :out std_logic_vector(3 downto 0); qout :out std_logic_vector(3 downto 0) ); end keyboard; architecture behave of keyboard is signal cnt:std_logic_vector(1 downto 0);--扫描哪一行 signal hang_tem:std_logic_vector(3 downto 0);--hang的缓存，当成hang好了 signal tem:std_logic_vector(3 downto 0);--lie的输入缓存，当成lie signal reg:std_logic_vector(3 downto 0);--翻译成的bcd码 begin tem&lt=lie; process(clk) begin   if clk'event and clk='1' then  --扫描每一行为一个状态      if cnt="11" then         cnt&lt="00";      else         cnt&lt=cnt+1;      end if;      case cnt is        when "00"=&gthang_tem&lt="1101";  --扫描hang3                   if tem="1110" then  -- 如果按下sw11，                      reg&lt="0000";     --bcd为0                   elsif tem="1101" then   --如果按下sw10                      reg&lt="0001";       --bcd为1                   elsif tem="1011" then   --如果按下sw9                      reg&lt="0010";   -- bcd为2                   elsif tem="0111" then                      reg&lt="0011";                   else                      reg&lt=reg;                   end if;        when "01"=&gthang_tem&lt="1011";    --剩下的不用我说了吧，这是扫描hang2                   if tem="1110" then                      reg&lt="0100";                   elsif tem="1101" then                      reg&lt="0101";                   elsif tem="1011" then                      reg&lt="0110";                   elsif tem="0111" then                      reg&lt="0111";                   else                      reg&lt=reg;                   end if;              when "10"=&gthang_tem&lt="0111";                   if tem="1110" then                      reg&lt="1000";                   elsif tem="1101" then                      reg&lt="1001";                   elsif tem="1011" then                      reg&lt="1010";                   elsif tem="0111" then                      reg&lt="1011";                   else                      reg&lt=reg;                   end if;                when "11"=&gthang_tem&lt="1110";                   if tem="1110" then                      reg&lt="1100";                   elsif tem="1101" then                      reg&lt="1101";                   elsif tem="1011" then                      reg&lt="1110";                   elsif tem="0111" then                      reg&lt="1111";                   else                      reg&lt=reg;                   end if;                when others=&gthang_tem&lt="1111";                     reg&lt=reg;      end case;    end if;    hang&lt=hang_tem;    qout&lt=reg; end process;  end behave;

发表于 2007-8-25 13:59

搞明白了  谢谢了

发表于 2007-8-29 23:56

上面的程序好像没有去抖啊

大家帮个忙帮我看小这个小键盘和扫描程序我有点看不懂。

相关帖子

我给你加个注释，嘿嘿

搞明白了 谢谢了

疑问

浏览过的版块

浏览过的版块

搞明白了谢谢了