导航: 老古网老古论坛XMOS公共讨论区XMOS开源项目区单片机程序设计嵌入式系统广告区域
→再看一下小弟的vhdl程序!

* 27461: 再看一下小弟的vhdl程序!

   ruanhan 
ruanhan发表的帖子 

 再看一下小弟的vhdl程序!
各位高手,请看一下小弟的vhdl(maxplus2下)的程序,我实现
的功能很简单,就是按add(add下调沿),数码管的数加一,从0到8
然后从头开始,按clr则清零,
library ieee;
use ieee.std_logic_1164.all;
entity rh1 is
port( add,clr :in std_logic; 
     digital8 :OUT std_logic_vector(7 downto 0);--数码管的8位输出
     select4 :OUT std_logic_vector(3 downto 0)--4个数码管的控制位
    );
 end rh1;
ARCHITECTURE xq1 of rh1 is
begin
 process(add,clr)
 variable k: integer range 0 to 8;
 begin
 if(clr='0') then
  k:=0;
  select4  <="0000";--选择4个数码管都亮
  digital8  <="11000000";--显示0
  elsif(add'event and add='0') then --(改后:elsif(add='0') then )
     if(k  <=7) then            
     k:=k+1;
     else
     k:=0;
     end if;
     case k is
     when 0=>  digital8  <="11000000";--显示0
     when 1=>  digital8  <="11111001";--显示1
     when 2=>  digital8  <="10100100";
     when 3=>  digital8  <="10110000";
     when 4=>  digital8  <="10011001";
     when 5=>  digital8  <="10010010";
     when 6=>  digital8  <="10000010";
     when 7=>  digital8  <="11111000";
     when 8=>  digital8  <="10000000";--显示8
     end case;
  end if;
 end process;
end xq1;  
这样编译(compile)通过,但是按start时,到partitioner时停了,就是到不了
fitter,并且提示:project does't fit等等,后来我把add'event 去掉,
则编译,连接等都通过了,,但是下载下来时,我按清零时可以显示4个
数码管都亮0,但是按add时,却不能变化,,我是买一个试验板,
cpld是emp7128sl84-15不知这是为什么???
谢谢各位高手指点!!!小弟感激万分!!

发表时间:2003年4月25日22:15:52

  
回复该帖

本主题共有 5 帖,分页:>>>>>该主题的所有内容[5]条

 *树形目录 只列出部分跟帖的标题以及简单的摘要信息 该主题的部分跟帖如下:

  27468.[详细]看:
摘要:首先你的这种思路只是理论上的,实际应用的时候是不太可行的。原因: 键盘要有防抖动,否则就算是什么都通过了,按下ADD后,数码管可能就会显示8(不是真的8,而是跑个不停),不知你所说的 “按add时,却不能变化” ......(297字)
- [huzimax][1355次] 2003年4月26日

  27499.[详细]刚才发错了,对不起,小弟还有一下不明白:
摘要:以下再贴一下程序: library ieee; use ieee.std_logic_1164.all; entity rh1 is port( ad......(1330字)
- [ruanhan][1033次] 2003年4月26日

  27967.[详细]我怎么用maxplus2 能综合add'event and ..
摘要:我怎么用maxplus2 能综合add'event and add='1'? 你这个程序没问题牙!!......(72字)
- [liao-nuaa][1115次] 2003年4月29日

[上一篇帖子]:键盘程序请教?现在要在P1口接一八位拔动开关,要求相应位拔则延时在原(10秒)的基础上增加或减少延时
[下一篇帖子]:谁能回答,我也想知道.