【正文】 end if。 end if 。 end if。 end if。 else hei ye if(Meter1K1) then Money100=0。 Money10=8。 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。 if (Meter1K=3) then Money100=2。 Money10=2。 Money1=0。 Old_Money1=0。 if (Meter1K2) then 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 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(Clk39。event and Clk=39。139。) then SEG_SEL=SEG_SEL+1。 if (SEG_SEL=9) then SEG_SEL=000。 else Display=Disp_Decode。 end if。 end if。 end process。 process(Disp_Temp) begin case Disp_Temp is when 0=Disp_Decode=0111111。 when 1=Disp_Decode=0000110。 when 2=Disp_Decode=1011011。 when 3=Disp_Decode=1001111。 when 4=Disp_Decode=1100110。 when 5=Disp_Decode=1101101。 when 6=Disp_Decode=1111101。 when 7=Disp_Decode=0000111。 when 8=Disp_Decode=1111111。 when 9=Disp_Decode=1101111。 when 10=Disp_Decode=1000000。 when others=Disp_Decode=0000000。 end case。 end process。 end one。 測速模塊輸入端由Clk及Motor端組成，Clk提供計數(shù)脈沖，通過計Motor 6秒轉(zhuǎn)的圈數(shù)然后乘以10作為一分種出租車的車速，其輸出端變由SEL[2..0]及l(fā)out7[6..0]組成，前者用于掃描數(shù)碼管的驅(qū)動，后者用于顯示轉(zhuǎn)速。 測速模塊其仿真圖如下所示： 測速模塊仿真圖其程序如下：library ieee。use 。use 。use 。entity teltcl is port( Clk : in std_logic。 Motor : in std_logic。 SEL:OUT STD_LOGIC_VECTOR(2 DOWNTO 0)。 lout7:out std_logic_vector(6 downto 0))。end teltcl。architecture one of teltcl is signal clk1hz :std_logic。1HZ時鐘信號。 signal count : std_logic_vector(2 downto 0)。 signal clr1 :std_logic 。 signal ena1 :std_logic。 signal load1 :std_logic。 signal CQ1,CQ2,CQ3,CQ4 : std_logic_vector(3 downto 0)。 SIGNAL CQA :std_logic_vector(15 DOWNTO 0)。 SIGNAL DOUT : STD_LOGIC_VECTOR(15 DOWNTO 0)。 signal s:std_logic_vector(2 downto 0)。 signal lout4:std_logic_vector(3 downto 0)。 SIGNAL in3,in2,in1,in0:std_logic_vector(3 downto 0)。 begin process(clk) variable ttemp : INTEGER RANGE 0 TO 999999。 begin IF clk=39。139。 AND clk39。event THEN IF ttemp=999999 THEN ttemp:=0。 ELSE IF ttemp500000 THEN clk1hz=39。139。 ELSE clk1hz=39。039。 END IF。 ttemp:=ttemp+1。 END IF。 end if。 end process。 process(Clk1hz) begin if(Clk1hz39。event and Clk1hz=39。139。) then count=count+1。 if count6 then ena1=39。139。load1=39。039。clr1=39。039。 elsif count=6 then load1=39。139。ena1=39。039。clr1=39。039。 elsif count=7 then ena1=39。039。load1=39。039。clr1=39。139。 end if。 end if。 end process。PROCESS(CLK,ENA1) ISBEGIN IF CLR1= 39。139。 THEN CQ1= 0000。 elsif(Motor39。event and Motor=39。139。) then IF ENA1= 39。139。 THEN if(CQ1=1001) then CQ1=0000。 if(CQ2=9) then CQ2=0000。 if(CQ3=1001) then CQ3=0000。 if(CQ4=1001) then CQ4=0000。 else CQ4=CQ4+1。 end if。 else CQ3=CQ3+1。 end if。 else CQ2=CQ2+1。 end if。 else CQ1=CQ1+1。 end if。 end if。 END IF 。 CQA=(CQ4amp。CQ3amp。CQ2amp。CQ1)。 end process。 PROCESS ( LOAD1,CQA) ISBEGIN IF LOAD1 39。EVENT AND LOAD1= 39。139。 THEN DOUT=CQA。 END IF。END PROCESS。process (clk)begin IN3=DOUT(15 DOWNTO 12)。 IN2=DOUT(11 DOWNTO 8)。 IN1=DOUT(7 DOWNTO 4)。 IN0=DOUT(3 DOWNTO 0)。if (clk39。event and clk=39。139。)then if (s=111) then s=000。 else s=s+1。 end if。end if。sel=s。end process。process (s)begin case s is when 000=lout4=1111。 when 001=lout4=1111。 when 010=lout4=in2。 when 011=lout4=in1。 when 100=lout4=in0。 when 1