gv天堂gv无码男同在线,欧美视频你懂的,毛片一级毛片毛片一级一级毛毛片,亚洲黄色视频免费播放,满18岁免费看的尤物视频,日本欧美三级片免费看,亚洲综合伊人影视在线播放

出租車計(jì)費(fèi)器的程序供你參考：
library ieee;
use ieee.std_logic_1164.all;
use ieee.std_logic_arith.all;
use ieee.std_logic_unsigned.all;
--------------------------------------------------------------------
entity exp14 is
port( Clk : in std_logic; --時(shí)鐘輸入
Rst : in std_logic; --復(fù)位輸入
Motor : in std_logic; --電機(jī)脈沖輸入
Display : out std_logic_vector(7 downto 0); --七段碼管顯示輸出
SEG_SEL : buffer std_logic_vector(2 downto 0) --七段碼管掃描驅(qū)動(dòng)
);
end exp14;
--------------------------------------------------------------------
architecture behave of exp14 is
signal Disp_Temp : integer range 0 to 15;
signal Disp_Decode: std_logic_vector(7 downto 0);
signal Meter1,Meter10,Meter100,Meter1K : integer range 0 to 9;
signal Money1,Money10,Money100 : integer range 0 to 9;
signal Old_Money1 : integer range 0 to 9;
begin
process(Motor)
begin
if(Rst='0') then
Meter1<=0;
Meter10<=0;
Meter100<=0;
Meter1K<=0;
elsif(Motor'event and Motor='1') then
if(Meter1=9) then
Meter1<=0;
if(Meter10=9) then
Meter10<=0;
if(Meter100=9) then
Meter100<=0;
if(Meter1K=9) then
Meter1K<=0;
else
Meter1K<=Meter1K+1;
end if;
else
Meter100<=Meter100+1;
end if;
else
Meter10<=Meter10+1;
end if;
else
Meter1<=Meter1+1;
end if;
end if;
end process;
process(Clk)
begin
if(Rst='0') then
Money1<=0;
Money10<=0;
Money100<=0;
elsif(Clk'event and Clk='1') then
if(Meter1K<1) then --里程小于1Km是顯示基價(jià)
Money100<=0;
Money10<=3; --起步價(jià)3元
Money1<=0;
Old_Money1<=0;
else
Money1<=Meter100;
Old_Money1<=Money1;
if(Old_Money1=9 and Money1=0) then
if(Money10=9) then
Money10<=0;
if(Money100=9) then
Money100<=0;
else
Money100<=Money100+1;
end if;
else
Money10<=Money10+1;
end if;
end if;
end if;
end if;
end process;
process(SEG_SEL)
begin
case (SEG_SEL+1) is
when "000"=>Disp_Temp<=Meter1K;
when "001"=>Disp_Temp<=Meter100;
when "010"=>Disp_Temp<=Meter10;
when "011"=>Disp_Temp<=Meter1;
when "100"=>Disp_Temp<=10;
when "101"=>Disp_Temp<=Money100;
when "110"=>Disp_Temp<=Money10;
when "111"=>Disp_Temp<=Money1;
end case;
end process;
process(Clk)
begin
if(Clk'event and Clk='1') then --掃描累加
SEG_SEL<=SEG_SEL+1;
if(SEG_SEL=5) then
Display<=Disp_Decode or "10000000";
else
Display<=Disp_Decode;
end if;
end if;
end process;
process(Disp_Temp) --顯示轉(zhuǎn)換
begin
case Disp_Temp is
when 0=>Disp_Decode<="00111111"; --0
when 1=>Disp_Decode<="00000110"; --1
when 2=>Disp_Decode<="01011011"; --2
when 3=>Disp_Decode<="01001111"; --3
when 4=>Disp_Decode<="01100110"; --4
when 5=>Disp_Decode<="01101101"; --5
when 6=>Disp_Decode<="01111101"; --6
when 7=>Disp_Decode<="00000111"; --7
when 8=>Disp_Decode<="01111111"; --8
when 9=>Disp_Decode<="01101111"; --9
when 10=>Disp_Decode<="01000000"; ---
when others=>Disp_Decode<="00000000"; --全滅
end case;
end process;
end behave;
-------------------------------------
可根據(jù)這個(gè)修改；程序設(shè)計(jì)還是要自己動(dòng)手，天下沒有免費(fèi)的午餐^_^祝你好運(yùn)，兄弟··