vhdl 3层楼梯的程序问题

bailey53

library ieee;
use ieee.std_logic_1164.all;
use ieee.std_logic_unsigned.all;
use ieee.std_logic_arith.all;
entity threelift is
port(buttonclk,liftclk,reset,f1upbutton,
   f2upbutton,f2dnbutton,f3dnbutton,
   stop1button,stop2button,stop3button:in std_logic;
   fuplight,fdnlight,stoplight:buffer std_logic_vector(3 downto 1);
   position: buffer integer range 1 to 3;
   doorlight: out std_logic;
   udsig: buffer std_logic  
   );
end threelift;
architecture art of threelift is
type lift_state is
(stopon1,dooropen,doorclose,doorwait1,doorwait2,doorwait3,doorwait4,up,down,stop);
signal mylift: lift_state;
signal clearup: std_logic;
signal cleardn: std_logic;
begin
ctrlift: process(reset,liftclk)
variable pos: integer range 3 downto 1;
begin
if reset='1' then
    mylift<=stopon1;
    clearup<='0';
    cleardn<='0';
       doorlight<='1'
elsif liftclk'event and liftclk='1' then
case mylift is
   when stopon1=>   doorlight<='1';position<=1;pos:=1;mylift<=doorwait1;
   when doorwait1=> mylift<=doorwait2;
   when doorwait2=> clearup<='0';cleardn<='0';mylift<=doorwait3;
   when doorwait3=> mylift<=doorwait4;
   when doorwait4=> mylift<=doorclose;doorlight<='0';
           if udsig='0' then
           if position=3 then
              if stoplight="000" and fuplight="000" and fdnlight="000" then
                 udsig<='1'; mylift<=doorclose;
              else udsig<='1';mylift<=down;
              end if;
           elsif position=2 then
              if stoplight="000" and fuplight="000" and fdnlight="000" then
                 udsig<='0'; mylift<=doorclose;
              elsif stoplight(3)='1' or (stoplight(3)='0' and fdnlight(3)='1') then
                 udsig<='0'; mylift<=up;
              else udsig<='1'; mylift<=down;
              end if;
           elsif position=1 then
              if stoplight="000" and fuplight="000" and fdnlight="000" then
                 udsig<='0'; mylift<=doorclose;
              else udsig<='0';mylift<=up;
              end if;
              else null;
           end if;
       elsif udsig='1' then
           if position=1 then
              if stoplight="000" and fuplight="000" and fdnlight="000" then
                 udsig<='0'; mylift<=doorclose;
              else udsig<='0';mylift<=up;
              end if;
           elsif position=2 then
              if stoplight="000" and fuplight="000" and fdnlight="000" then
                 udsig<='1'; mylift<=doorclose;
              elsif stoplight(1)='1' or(stoplight(1)='0' and fdnlight(1)='1') then
                 udsig<='1'; mylift<=down;
              else udsig<='0'; mylift<=up;
              end if;
           elsif position=3 then
              if stoplight="000" and fuplight="000" and fdnlight="000"then
                 udsig<='1'; mylift<=doorclose;
              else udsig<='1'; mylift<=down;
              end if;
              else
           end if;
           else
     end if;
   when up=> position<=position+1; pos:=pos+1;
        if pos<3 and (stoplight(pos)='1' or fdnlight(pos)='1') then
              mylift<=stop;
        elsif pos=3 and (stoplight(pos)='1' or fdnlight(pos)='1') then
              mylift<=stop;
        else mylift<=doorclose;
        end if;
   when down=> position<=position-1; pos:=pos-1;
        if pos>1 and(stoplight(pos)='1' or fdnlight(pos)='1')then
              mylift<=stop;
           else mylift<=doorclose;
           end if;
   when stop=> mylift<=dooropen;
   when dooropen=> doorlight<='1';
           if udsig='0' then
           if position<=2 and (stoplight(position)='1' or fdnlight(position)='1') then
            clearup<='1';
           else clearup<='1';cleardn<='1';
           end if;
        elsif udsig='1' then
           if position>=2 and (stoplight(position)='1' or fdnlight(position)='1') then
             cleardn<='1';
           else clearup<='1';cleardn<='1';
           end if;
           else
        end if;
       mylift<=doorwait1;
    when others=> null;
end case;
else
end if;
end process ctrlift;
ctrlight: process(reset,buttonclk,cleardn,stop1button)
begin
if reset='1' then
    stoplight<="000";fuplight<="000";fdnlight<="000";
elsif buttonclk'event and buttonclk='1' then
    if clearup='1' then
     stoplight(position)<='0';fuplight(position)<='0';
    else
     if f1upbutton='1'then fuplight(1)<='1';
     elsif f2upbutton='1' then fuplight(2)<='1';
        else
            null;
        end if;
    end if;

    if cleardn='1' then   
      stoplight(position)<='0';fuplight(position)<='0';
    else
      if f2dnbutton='1' then fdnlight(2)<='1';
      elsif f3dnbutton='1' then fdnlight(3)<='1';
         else
      end if;
    end if;
    if stop1button='1' then
          stoplight(1)<='1';
    elsif stop2button='1' then
          stoplight(2)<='1';
    elsif stop3button='1' then
          stoplight(3)<='1';
       else
    end if;
   
     end if;
end process ctrlight;
end art;

这是我写的程序 不过不能实现功能 希望大家帮忙改一下啊 谢谢 。。。大侠帮忙啊~~~~~  
PS：要不谁给我个新的程序也行啊 急！急！急！ 在线===

skylzf

偶没有接触过VHDL语言，帮楼主顶一下。
期待高手，楼主能否说明白实现什么功能。
PS：（感觉像电梯开关设计）。

[ 本帖最后由 skylzf 于 2008-9-28 14:19 编辑 ]

bailey53

恩  是啊  就是3层电梯的设计啊

施老2005

不太懂，顶起。希望强人解答。

skylzf

给楼主找到一个程序，试试看：

我这里没有相关软件，打不开。楼主看看行不。
要不行的话先跟你说声抱歉了。
还有一个是现编的代码，记事本能够打开。
不知道行不行：

[ 本帖最后由 skylzf 于 2008-9-28 14:53 编辑 ]

bailey53

谢谢啦   我看看  再一次感谢啊 ~~~~

伊の星

看来语言还是挺兼容的
在语句功能理解上

bailey53

嘿嘿 其实也没什么啊  主要是这个程序有问题 分类不明确 也就是说有交集啊  希望高人指点吧

arccosx

晕，楼主你怎么不到EDACN上面去问？

arccosx

还有就是你要给别人看你的代码，最好注释一下，不然这个样子的代码，格式又不规范，别人很难理解。