EDA 综合实习报告一李爱20111154006电子科学与技术2011 级1. 数字频率计的设计（1）8 位 16 进制频率计主程序：LIBRARY IEEE;ENTITYMAIN ISPORT (A,clk1,CLK: IN STD_LOGIC;O:OUT STD_LOGIC_VECTOR(2 DOWNTO 0);P: OUT STD_LOGIC_VECTOR(6 DOWNTO 0);END;ARCHITECTURE HEAD OF MAIN ISCOMPONENT CEPINPORT (CLK1:IN STD_LOGIC;CNT: OUT STD_LOGIC;RST:OUT STD_LOGIC;LOAD:OUT STD_LOGIC);END COMPONENT;COMPONENT JISHUPORT (CLR:IN STD_LOGIC;EN:IN STD_LOGIC;FIN:IN STD_LOGIC;COUT:OUT STD_LOGIC_VECTOR(31 DOWNTO 0) );END COMPONENT;COMPONENTSUOCUNPORT( LK :IN STD_LOGIC;DIN:IN STD_LOGIC_VECTOR (31 DOWNTO 0);QDOUT: OUT STD_LOGIC_VECTOR (31 DOWNTO 0);END COMPONENT;COMPONENT XIANSHIPORT (clk: in std_logic;Q:IN STD_LOGIC_VECTOR(31 DOWNTO 0);T:buffer STD_LOGIC_VECTOR(2 DOWNTO 0);Y:OUT STD_LOGIC_VECTOR(6 DOWNTO 0);END COMPONENT;SIGNALNET1,NET2,NET3:STD_LOGIC;SIGNAL NET4,NET5 :STD_LOGIC_VECTOR(31 DOWNTO 0);BEGINU1:CEPIN PORT MAP (CLK1=CLK,CNT=NET1,RST=NET2,LOAD=NET3);U2:JISHU PORT MAP (CLR=NET2,EN=NET1,FIN=A,COUT=NET4);U3:SUOCUN PORT MAP (LK=NET3,DIN=NET4,QDOUT=NET5);U4:XIANSHI PORT MAP (clk=clk1,Q=NET5,Y=P,T=O);END HEAD;测频LIBRARY IEEE;ENTITYcepin ISPORT (CLK1:IN STD_LOGIC;CNT: OUT STD_LOGIC;RST:OUT STD_LOGIC;LOAD:OUT STD_LOGIC);END ;ARCHITECTURE one OF cepin ISSIGNAL M: STD_LOGIC;BEGINPROCESS (CLK1)BEGINIF CLK1 EVENT AND CLK1=1 THENM= NOT M;END IF;END PROCESS;PROCESS (CLK1,M)BEGINIF CLK1=0 AND M=0 THEN RST=1;ELSE RST =0;END IF;END PROCESS;LOAD = NOT M;CNT =M;END one;计数LIBRARY IEEE;ENTITY JISHU ISPORT (CLR:IN STD_LOGIC;EN:IN STD_LOGIC;FIN:IN STD_LOGIC;COUT:OUT STD_LOGIC_VECTOR(31 DOWNTO 0);END ;ARCHITECTURE two OF JISHU ISSIGNAL Q: STD_LOGIC_VECTOR(31 DOWNTO 0);BEGINPROCESS (CLR,EN,FIN) BEGINIF CLR=1 THEN Q 0);ELSIF FIN EVENT AND FIN=1 THENIF EN=1 THEN Q = Q+1;END IF;END IF;END PROCESS;COUT =Q;END two;锁存LIBRARY IEEE;ENTITYSUOCUN ISPORT( LK :IN STD_LOGIC;DIN:IN STD_LOGIC_VECTOR (31 DOWNTO 0);qDOUT: OUT STD_LOGIC_VECTOR (31 DOWNTO 0);END ;ARCHITECTURE three OF SUOCUN ISBEGINPROCESS (LK,DIN)BEGINIF LK EVENT AND LK=1 THEN qDOUT T=000;YT=000;YT=000;YT=000;YT=000;YT=000;YT=000;YT=000;YT=000;YT=000;YT=000;YT=000;YT=000;YT=000;YT=000;YT=000;Y NULL;END CASE;elsif Q1=0010 thenCASE Q(7 downto 4) ISWHEN 0000=T=001;YT=001;YT=001;YT=001;YT=001;YT=001;YT=001;YT=001;YT=001;YT=001;YT=001;YT=001;YT=001;YT=001;YT=001;YT=001;Y NULL;END CASE;elsif Q1=0011thenCASE Q(11 downto 8) ISWHEN 0000=T=010;YT=010;YT=010;YT=010;YT=010;YT=010;YT=010;YT=010;YT=010;YT=010;YT=010;YT=010;YT=