智力抢答器源程序.doc

智力抢答器源程序 ???加入收藏?????? 来源： 作者：qdq 时间：2005-11-1 21:40:25 网友评论：0 点击数：2707 library ieee;use ieee.std_logic_1164.all;use ieee.std_logic_unsigned.all;use ieee.std_logic_arith.all; entity count10 isport( clk:in std_logic; --1hzen:in std_logic;clr:in std_logic;up,dn:in std_logic;dout:out std_logic_vector(3 downto 0));end count10; architecture behav of count10 issignal q:integer range 0 to 9; begin process(clk,clr)beginif clr=1 then q=3;elsif clkevent and clk=1 thenif en=1 thenif up=1 then if q9 then q=q+1;else q=3;end if; elsif dn=1 thenif q0 then q=q-1;else q=3;end if;end if; end if;end if;end process; dout=conv_std_logic_vector (q,4);end behav;--*************************************************************LIBRARY IEEE;USE IEEE.STD_LOGIC_1164.ALL;USE IEEE.STD_LOGIC_ARITH.ALL;USE IEEE.STD_LOGIC_UNSIGNED.ALL; --**************************************************************ENTITY Debunce isPORT(CP : IN STD_LOGIC; -- CLOCK 4MHZKey : IN STD_LOGIC; -- Input SignalDOUT : OUT STD_LOGIC -- Debounce O/P );END Debunce; --**************************************************************ARCHITECTURE a OF Debunce ISSIGNAL SAMPLE, DIFF,DLY_OUT: STD_LOGIC; -- Binary BEGIN Free_Counter : Block -- 计数器 产生扫描信号 Signal Q : STD_LOGIC_VECTOR(14 DOWNTO 0);Signal D0 : STD_LOGIC;Begin PROCESS (CP) -- 计数器计数 BeginIF CPEvent AND CP=1 thenD0 = Q(14);Q = Q+1; END IF;END PROCESS; SAMPLE = Q(14) AND NOT D0; --产生125HZ脉冲? END Block Free_Counter; Debounce : Block -- Timer Key DebounceSIGNAL D0, D1, S, R,DLY,NDLY : STD_LOGIC; BeginProcess (CP)BeginIF CPEVENT AND CP=1 THENIF SAMPLE = 1 THEND1 = D0; D0 =NOT Key; --二级延迟S = D0 AND D1;R = NOT D0 AND NOT D1;END IF; END IF;End Process; DLY = R NOR NDLY; --RS 触发器 NDLY =S NOR DLY; DLY_OUT = DLY; --RS 触发器输出 End Block Debounce; Differential : BlockSignal D1,D0 : STD_LOGIC;BEGINProcess (CP)BeginIF CPEVENT AND CP=1 THEND1 = D0; D0 = DLY_OUT; --二级延迟END IF;End Process; DIFF = D0 AND NOT D1; -