【正文】 JS:IN STD_LOGIC。 CLK_OUT:OUT STD_LOGIC)。 END MS。 ARCHITECTURE ONE OF MS IS 5 BEGIN PROCESS(JS, CK0,CK1) BEGIN IF JS=39。039。 THEN CLK_OUT=CK0。 ELSE CLK_OUT=CK1。 END IF。 END PROCESS。 END ONE。 狀態(tài)模塊 說明 該模塊實現(xiàn)車行狀態(tài)輸出功能，其中 clk 為時鐘信號， enable 為啟動使能信號， sto 暫停信號， clr 為清零信號， st 為狀態(tài)信號。 模塊圖 程序 LIBRARY IEEE。 USE 。 USE 。 ENTITY SOUT IS PORT(CLK:IN STD_LOGIC。 ENABLE:IN STD_LOGIC。 STO :IN STD_LOGIC。 CLR:IN STD_LOGIC。 ST:OUT STD_LOGIC_VECTOR(1 DOWNTO 0))。 END SOUT。 ARCHITECTURE ONE OF SOUT IS BEGIN PROCESS(CLK,ENABLE ,STO,CLR) VARIABLE CQI:STD_LOGIC_VECTOR(7 DOWNTO 0)。 VARIABLE STATE:STD_LOGIC_VECTOR(1 DOWNTO 0)。 BEGIN IF CLR=39。039。 THEN CQI:=(OTHERS=39。039。)。 6 ELSIF CLK39。EVENT AND CLK=39。139。 THEN IF STO=39。139。 THEN STATE:=11。CQI:=CQI。 ELSIF ENABLE =39。139。 THEN CQI:=CQI+1。 IF CQI=30 THEN STATE:=00。 ELSIF CQI30 AND CQI=80 THEN STATE:=01。 ELSE STATE:=10。 END IF。 END IF。 END IF。 ST=STATE。 END PROCESS。 END ONE。 分頻模塊 說明 該模塊實現(xiàn)將時鐘信號 5 分頻功能。 模塊圖 程序 LIBRARY IEEE。 USE 。 USE 。 ENTITY PULSE IS PORT(CLK0:IN STD_LOGIC。 FOUT:OUT STD_LOGIC)。 END PULSE。 ARCHITECTURE ONE OF PULSE IS BEGIN PROCESS(CLK0) VARIABLE CNT:STD_LOGIC_VECTOR(2 DOWNTO 0)。 VARIABLE FULL :STD_LOGIC。 BEGIN IF CLK039。EVENT AND CLK0=39。139。 THEN 7 IF CNT=100 THEN CNT:=000 。 FULL:=39。139。 ELSE CNT:=CNT+1。 FULL:=39。039。 END IF。 END IF。 FOUT=FULL。 END PROCESS。 END ONE。 計數(shù)模塊 說明 實現(xiàn)汽車模擬計費功能。 clr1 為清零信號， si 為狀態(tài)信號， c0,c1,c2,c3 分別為費用的四位顯示。 模塊圖 程序 LIBRARY IEEE。 USE 。 USE 。 ENTITY COUNTER IS PORT(CLK_DIV:IN STD_LOGIC。 CLR1:IN STD_LOGIC。 SI:IN STD_LOGIC_VECTOR(1 DOWNTO 0)。 C0:OUT STD_LOGIC_VECTOR(3 DOWNTO 0)。 C1:OUT STD_LOGIC_VECTOR(3 DOWNTO 0)。 C2:OUT STD_LOGIC_VECTOR(3 DOWNTO 0)。 C3:OUT STD_LOGIC_VECTOR(3 DOWNTO 0))。 END COUNTER。 ARCHITECTURE ONE OF COUNTER IS BEGIN 8 PROCESS(CLK_DIV,CLR1,SI) VARIABLE Q0: STD_LOGIC_VECTOR(3 DOWNTO 0)。 VARIABLE Q1: STD_LOGIC_VECTOR(3 DOWNTO 0)。 VARIABLE Q2: STD_LOGIC_VECTOR(3 DOWNTO 0)。 VARIABLE Q3: STD_LOGIC_VECTOR(3 DOWNTO 0)。 VARIABLE aa: integer range 0 to 600。 BEGIN IF CLR1=39。039。 THEN Q0:=0000。Q1:=0000。Q2:=0000。Q3:=0000。 ELSIF CLK_DIV39。EVENT AND CLK_DIV=39。139。 THEN CASE SI IS WHEN 00= Q1:=0000。Q2:=1000。Q3:=0000。 WHEN 01= IF Q21001 THEN Q2:=Q2+1。 ELSE Q2:=0000。 IF Q31001 THEN Q3:=Q3+1。 END IF。 END IF。 Q1:=0000。 WHEN 10= IF Q10101 THEN Q1:=Q1+5。 ELSE Q1:=0000。 END IF。 IF Q1=0101 THEN IF Q21001 THEN Q2:=Q2+1。 ELSE Q2:=0000。 IF Q31001 THEN Q3:=Q3+1。 END IF。 END IF。 ELSE IF Q21001 THEN Q2:=Q2+2。 ELSE Q2:=0001。 IF Q31001 THEN Q3:=Q3+1。 END IF。 END IF。 END IF。 9 WHEN 11=aa:=aa+1。 IF(aa600) THEN Q0:=0000。Q1:=0000。Q2:=0000。Q3:=0000。 END IF。 IF(aa=600 and Q21001) THEN Q2:=Q2+1。 ELSE Q2:= 0000。 END IF。 IF Q31001THEN Q3:=Q3+1。 END IF。 WHEN OTHERS=NULL。 END CASE。 END IF。 C0=Q0。 C1=Q1。 C2=Q2。 C3=Q3。 END PROCESS。 END ONE。 顯示譯碼模塊 說明 該模塊實現(xiàn)顯示車費功能。 BT 為選位信號， SG 譯碼信號。 模塊圖 程序 LIBRARY IEEE。 USE 。 USE 。 ENTITY SCAN_LED IS PORT(DI0:IN STD_LOGIC_VECTOR(3 DOWNTO 0)。 DI1:IN STD_LOGIC_VECTOR(3 DOWNTO 0)。 10 DI2:IN STD_LOGIC_VECTOR(3 DOWNTO 0)。 DI3:IN STD_LOGIC_VECTOR(3 DOWNTO 0)。 CLK2:IN STD_LOGIC。 SG:OUT STD_LOGIC_VECTOR(6 DOWNTO 0)。 BT:OUT STD_LOGIC_VECTOR(2 DOWNTO 0))。 END SCAN_LED。 ARCHITECTURE ONE OF SCAN_LED IS SIGNAL CNT4 :STD_LOGIC_VECTOR(1 DOWNTO 0)。 SIGNAL A:STD_LOGIC_VECTOR(3 DOWNTO 0)。 BEGIN P1:PROCESS(CLK2) VARIABLE SQ :STD_LOGIC_VECTOR(1 DOWNTO 0)。 BEGIN IF CLK239。EVENT AND CLK2=39。139。 THEN IF SQ=10 THEN SQ:=00。 ELSE SQ:=SQ+1。 END IF。 END IF。 CNT4=SQ。 END PROCESS P1。 P2: PROCESS (CNT4) BEGIN CASE CNT4 IS WHEN 00 =BT=001。A=DI0。 WHEN 01=BT=010。A=DI1。 WHEN 10=BT=011。A=DI2。 WHEN 11=BT=100。A=DI3。 WHEN OTHERS =NULL。 END CASE。 END PROCESS P2。 P3:PROCESS(A) BEGIN CASE A IS WHEN 0000=SG=0111111。 WHEN 0001=SG=0000110。 WHEN 0010=SG=1011011。 WHEN 0011=SG=1001111。 WHEN 0100=SG=1100110。 WHEN 0101=SG=1101101。 WHEN 0110=SG=1111101。 WHEN 0111=SG=0000111。 WHEN 1000=SG=1111111。 WHEN 1001=SG=1101111。 11 WHEN OTHERS=NULL。 END CASE。 END PROCESS P3。 END ONE 。 頂層程序 說明 該模塊為最終的頂層模塊。 模塊圖 程序 LIBRARY IEEE。 LIBRARY IEEE。 USE 。 ENTITY TAXI IS PORT(T_CLK0:IN STD_LOGIC。 T_CLK1:IN STD_LOGIC。 T_CLK2:IN STD_LOGIC。 T_JS :IN STD_L