fenpin.vhd

8.22出租车计价器VHDL程序与仿真。 --文件名：taxi.hd。 --功能：出租车计价器。 --最后修改日期：2004.4.9。

library IEEE;
use IEEE.STD_LOGIC_1164.ALL;
use IEEE.STD_LOGIC_ARITH.ALL;
use IEEE.STD_LOGIC_UNSIGNED.ALL;
entity taxi is
port ( clk_240  :in std_logic;                                  
       start :in std_logic;                            
       stop:in std_logic;                        
       fin:in std_logic;                             
       cha3,cha2,cha1,cha0:out std_logic_vector(3 downto 0); 
       km1,km0:out std_logic_vector(3 downto 0);           
       min1,min0: out std_logic_vector(3 downto 0));   
end taxi;
architecture behav of taxi is
signal f_10,f_16,f_1:std_logic;                        
signal q_10:integer range 0 to 23;                
signal q_16:integer range 0 to 14;               
signal q_1:integer range 0 to 239;                      
signal w:integer range 0 to 59;                          
signal c3,c2,c1,c0:std_logic_vector(3 downto 0);          
signal k1,k0:std_logic_vector(3 downto 0);               
signal m1:std_logic_vector(2 downto 0);                 
signal m0:std_logic_vector(3 downto 0);                 
signal en1,en0,f:std_logic;                              
begin

feipin:process(clk_240,start)
begin
  if clk_240'event and clk_240='1' then
     if start='0' then q_10<=0;q_16<=0;f_10<='0';f_16<='0';f_1<='0';f<='0';
     else
        if q_10=23 then q_10<=0;f_10<='1';          
        else q_10<=q_10+1;f_10<='0';
        end if;
        if q_16=14 then q_16<=0;f_16<='1';          
        else q_16<=q_16+1;f_16<='0'; 
        end if;
        if q_1=239 then q_1<=0;f_1<='1';            
        else q_1<=q_1+1;f_1<='0';
        end if;
        if en1='1' then f<=f_10;                    
        elsif en0='1' then f<=f_16;
        else f<='0';
        end if;
     end if;
  end if;
end process;

process(f_1)
begin
  if f_1'event and f_1='1' then
     if start='0' then 
w<=0;en1<='0';en0<='0';m1<="000";m0<="0000";k1<="0000";k0<="0000";
     elsif stop='1' then 
        if w=59 then w<=0;                             
           if m0="1001" then m0<="0000";                
              if m1<="101" then m1<="000";
              else m1<=m1+1;
              end if;
           else m0<=m0+1;
           end if;
           if m1&m0>"0000001"then en1<='1';             
           else en1<='0';
           end if;
        else w<=w+1;en1<='0';
        end if;
     elsif fin='1' then 
        if k0="1001" then k0<="0000";                   
           if k1="1001" then k1<="0000";
           else k1<=k1+1;
           end if;
        else k0<=k0+1;
        end if;
        if k1&k0>"00000010" then en0<='1';               
        else en0<='0';
        end if;        
     else en1<='0';en0<='0';
     end if;
cha3<=c3;cha2<=c2;cha1<=c1;cha0<=c0;                   
km1<=k1;km0<=k0;min1<='0'&m1;min0<=m0;              
  end if;
end process main;

jifei:process(f,start)
begin
  if start='0' then c3<="0000";c2<="0001";c1<="0000";c0<="0000";
  elsif f'event and f='1' then
     if c0="1001" then c0<="0000";                       
        if c1="1001" then c1<="0000";
           if c2="1001" then c2<="0000";
              if c3<="1001" then c3<="0000";
              else c3<=c3+1;
              end if;
           else c2<=c2+1;
           end if;
        else c1<=c1+1;
        end if;
     else c0<=c0+1;
     end if;
  end if;
end process jifei;
end behav;