eda技术课程设计-基于eda的课程设计脉冲按键电话显示器(编辑修改稿)

eda技术课程设计-基于eda的课程设计脉冲按键电话显示器(编辑修改稿)内容摘要：

GIC。 KEYOUT:OUT STD_LOGIC。 SET:OUT STD_LOGIC_VECTOR(3 DOWNTO 0)。 SEG8:OUT STD_LOGIC_VECTOR(7 DOWNTO 0))。 END ENTITY。 ARCHITECTURE ONE OF SHOW IS SUBTYPE TEN IS STD_LOGIC_VECTOR(3 DOWNTO 0)。 SIGNAL BCD :TEN。 TYPE NUMBER1 IS ARRAY(7 DOWNTO 0) OF STD_LOGIC_VECTOR(3 DOWNTO 0)。 7 SIGNAL NUMBER : NUMBER1。 SIGNAL KEY,KEY1,CLK1,DIAL1,RE_DIAL1:STD_LOGIC。 SIGNAL COUNT:STD_LOGIC_VECTOR(3 DOWNTO 0)。 SIGNAL COUNT1:STD_LOGIC_VECTOR(3 DOWNTO 0)。 SIGNAL COUNT2:STD_LOGIC_VECTOR(2 DOWNTO 0)。 SIGNAL DIN1: STD_LOGIC_VECTOR(9 DOWNTO 0)。 SIGNAL LOCK: STD_LOGIC_VECTOR(31 DOWNTO 0)。 BEGIN PROCESS(CLK)IS BEGIN IF RISING_EDGE(CLK) THEN COUNT1=COUNT1+1。 END IF。 END PROCESS。 CLK1=39。 039。 WHEN COUNT11100 ELSE 39。 139。 PROCESS(CLK1)IS BEGIN IF RISING_EDGE(CLK1) THEN DIN1(9 DOWNTO 0)=DIN(9 DOWNTO 0)。 DIAL1=DIAL。 RE_DIAL1=RE_DIAL。 END IF。 8 END PROCESS。 KEY=(DIN1(0) OR DIN1(1) OR DIN1(2) OR DIN1(3) OR DIN1(4) OR DIN1(5) OR DIN(6) OR DIN1(7) OR DIN1(8) OR DIN1(9))。 PROCESS(CLK1)IS BEGIN IF FALLING_EDGE(CLK1) THEN IF COUNT2=100 THEN IF CLEAR=39。 039。 AND RE_DIAL=39。 039。 THEN KEY1=KEY。 ELSIF CLEAR =39。 139。 AND RE_DIAL=39。 039。 THEN KEY1=CLK。 ELSE KEY1=RE_DIAL1。 END IF。 COUNT2=000。 ELSE COUNT2=COUNT2+1。 END IF。 END IF。 END PROCESS。 PROCESS(DIN1)IS BEGIN IF DIN1(6)=39。 139。 THEN BCD=0110。 ELSIF DIN1(1)=39。 139。 THEN BCD=0001。 ELSIF DIN1(2)=39。 139。 THEN BCD=0010。 ELSIF DIN1(3)=39。 139。 THEN BCD=0011。 ELSIF DIN1(4)=39。 139。 THEN BCD=0100。 9 ELSIF DIN1(5)=39。 139。 THEN BCD=0101。 ELSIF DIN1(0)=39。 139。 THEN BCD=0000。 ELSIF DIN1(7)=39。 139。 THEN BCD=0111。 ELSIF DIN1(8)=39。 139。 THEN BCD=1000。 ELSIF DIN1(9)=39。 1。