|
模块JIFEI见图3.2。输入端口START、STOP、PAUSE、JS分别为汽车起动、停止、暂停、加速按键。 copyright paper51.com libraryieee; paper51.com useieee.std_logic_1164.all; copyright paper51.com useieee.std_logic_unsigned.all; 内容来自论文无忧网 www.paper51.com entityjifei is 内容来自www.paper51.com port(clk,start,stop,pause,js:in std_logic; 内容来自www.paper51.com chefei,luc:outinteger range 0 to 8000); 内容来自www.paper51.com endjifei; copyright paper51.com architecturertl of jifei is paper51.com begin paper51.com
process(clk,start,stop,pause,js) http://www.paper51.com variablea,b:std_logic; 内容来自www.paper51.com variableaa:integer range 0 to 100; http://www.paper51.com variablechf,lc:integer range 0 to 8000; http://www.paper51.com variablenum:integer range 0 to 9; 内容来自论文无忧网 www.paper51.com begin paper51.com if(clk'eventand clk='1')then paper51.com if(stop='0')then paper51.com chf:=0; http://www.paper51.com
num:=0; paper51.com b:='1'; 内容来自论文无忧网 www.paper51.com aa:=0; copyright paper51.com lc:=0; 内容来自www.paper51.com elsif(start='0')then paper51.com
b:='0'; paper51.com
chf:=700; copyright paper51.com lc:=0; 内容来自论文无忧网 www.paper51.com
elsif(start='1'and js='1'and pause='1')then copyright paper51.com
if(b='0')then paper51.com
num:=num+1; http://www.paper51.com
endif; copyright paper51.com if(num=9)then 内容来自论文无忧网 www.paper51.com
lc:=lc+5; copyright paper51.com num:=0; paper51.com
aa:=aa+5; http://www.paper51.com endif; paper51.com elsif(start='1'andjs='0'and pause='1')then copyright paper51.com lc:=lc+1; 内容来自论文无忧网 www.paper51.com aa:=aa+1; copyright paper51.com
endif; http://www.paper51.com if(aa>=100)then 内容来自论文无忧网 www.paper51.com a:='1'; copyright paper51.com aa:=0; 内容来自www.paper51.com
else copyright paper51.com
a:='0'; copyright paper51.com endif; copyright paper51.com if(lc<300)then paper51.com
null; http://www.paper51.com elsif(chf<2000and a='1')then 内容来自www.paper51.com chf:=chf+220; http://www.paper51.com
elsif(chf>=2000and a='1')then http://www.paper51.com chf:=chf+330; paper51.com end if; http://www.paper51.com endif; paper51.com chefei<=chf; http://www.paper51.com
luc<=lc; copyright paper51.com
endprocess; paper51.com endrtl; 内容来自论文无忧网 www.paper51.com |