找回密码
 注册会员
查看: 665|回复: 0

用EDA编写模200计数器的程序

[复制链接]
发表于 2010-5-21 12:34:46 | 显示全部楼层 |阅读模式
<p>用EDA编写模200计数器的程序</p>
<p><img src="http://img.baidu.com/img/iknow/icn_point.gif"> 悬赏分:0 -</p>
<p>解决时间:2010-5-21 12:30</p>
<p>提问者: 0canghaiyisu0 - 一级</p>
<p>最佳答案</p>
<p>library  ieee;</p>
<p>use ieee.std_logic_1164.all;</p>
<p>entity counter is</p>
<p>port (clk,reset: in std_logic;</p>
<p>digit1,digit2,digit3:out std_logic_vector(6 downto 0) );</p>
<p>end counter;</p>
<p>architecture counter of counter is</p>
<p>begin</p>
<p>process (clk, reset)</p>
<p>variable temp1: integer range 0 to 10;</p>
<p>variable temp2: integer range 0 to 10;</p>
<p>variable temp1: integer range 0 to 2;</p>
<p>begin</p>
<p>if(reset=\'1\')then</p>
<p>temp1:=0;</p>
<p>temp2:=0;</p>
<p>temp3:=0;</p>
<p>elsif (clk\'event and clk=\'1\')then</p>
<p>temp1:=temp1+1;</p>
<p>if (temp1=10)then</p>
<p>temp1:=0;</p>
<p>temp2:=temp2+1;</p>
<p>if (temp2=10) then</p>
<p>temp3:=temp3+1;</p>
<p>if (temp3=2) then</p>
<p>temp3:=0</p>
<p>end if;</p>
<p>end if;</p>
<p>end if;</p>
<p>end if;</p>
<p>case temp1 is</p>
<p>when 0 => digit1<="1111110";</p>
<p>when 1 => digit1<="0110000";</p>
<p>when 2 => digit1<="1101101";</p>
<p>when 3 => digit1<="1111001";</p>
<p>when 4 => digit1<="0110011";</p>
<p>when 5 => digit1<="1011011";</p>
<p>when 6 => digit1<="1011111";</p>
<p>when 7 => digit1<="1110000";</p>
<p>when 8 => digit1<="1111111";</p>
<p>when 9 => digit1<="1111011";</p>
<p>when others=>null;</p>
<p>end case;</p>
<p>case temp2 is</p>
<p>when 0 => digit2<="1111110";</p>
<p>when 1 => digit2<="0110000";</p>
<p>when 2 => digit2<="1101101";</p>
<p>when 3 => digit2<="1111001";</p>
<p>when 4 => digit2<="0110011";</p>
<p>when 5 => digit2<="1011011";</p>
<p>when 6 => digit2<="1011111";</p>
<p>when 7 => digit2<="1110000";</p>
<p>when 8 => digit2<="1111111";</p>
<p>when 9 => digit2<="1111011";</p>
<p>when others=>null;</p>
<p>end case;</p>
<p>case temp3 is</p>
<p>when 0 => digit3<="1111110";</p>
<p>when 1 => digit3<="0110000";</p>
<p>when others=>null;</p>
<p>end case;</p>
<p>end process;</p>
<p>end counter;</p>
<p>1</p>
<p>回答者:</p>
<p>0夏至将至0 - 三级   2010-5-21 12:30</p>
<p>我来评论>></p>
您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

QQ|文字版|手机版|小黑屋|襄阳城

GMT+8, 2025-5-20 08:39

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表