eda課程設計---出租車計費器設計(編輯修改稿)

　

【文章內(nèi)容簡介】 出租車計費器設計 第 9 頁 共 34 頁 end if。 else Money10=Money10 +1。 end if。 else Money1=Money1 +1。 end if。 else Old_Money1= Old_Money1 +4。 加收的返程費 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=3) then Display=Disp_Decode or 1000000。 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 出租車計費器設計 第 10 頁 共 34 頁 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。 在起步價的基礎上，根據(jù)行駛里程的不同，依據(jù)計費標準，每增加 1 km加上一個單價。系統(tǒng)中用到了四位 BCD 碼加法器，可以實現(xiàn)四位十進制數(shù)的加法運算。加法器輸出的結果就是乘客應付的費用，這里以元為單位，最大能顯示9999 元。四位 BCD 碼加法器由四個一位 BCD 碼加法器級聯(lián)而成。四位 BCD 碼加法器輸出的結果通過緩沖器以后，反饋到輸入 端重新作為一個加數(shù)，在脈沖信號的作用下，每來一個脈沖就和單價相加，形成連續(xù)累加的功能。此設計中 2km以內(nèi)起步價為 6 元，白天續(xù)程單價 2 元，超過 20km為 3 元；夜間續(xù)程單價 3 元，超過 20km為 4 元。 點陣顯示模塊程序 點陣顯示模塊的 VHDL源程序如下： process(clk) 顯示時序控制 begin if clk39。event and clk=39。139。 then dount=dount+1。 if dount=255 then if S=15 then S=0000。 else s=S+1。 end if。 s=s+1。 else s=S。 end if。 if cdount15 then cdount=cdount+1。 else 出租車計費器設計 第 11 頁 共 34 頁 cdount=0000。 end if。 end if。 keyc=cdount。 end process。 process(cdount,s,dn) begin if(dn=39。039。) then if s=0000 then case cdount is when 0000=keyr=1111111111111111。 點陣顯示 白 when 0001=keyr=1111111111111111。 when 0010=keyr=1100000000000111。 when 0011=keyr=1101111011110111。 when 0100=keyr=1101111011110011。 when 0101=keyr=1101111011110101。 when 0110=keyr=1101111011110110。 when 0111=keyr=1101111011110111。 when 1000=keyr=1101111011110111。 when 1001=keyr=1101111011110111。 when 1010=keyr=1101111011110111。 when 1011=keyr=1101111011110111。 when 1100=keyr=1110111011101001。 when 1101=keyr=1100000000000111。 when 1110=keyr=1111111111111111。 when 1111=keyr=1111111111111111。 when others=keyr=1111111111111111。 end case。 elsif s=0001 then case cdount is when 0000=keyr=0111111110111111。 點陣顯示 天 when 0001=keyr=0111111110111101。 when 0010=keyr=1011111110111101。 when 0011=keyr=1101111110111101。 when 0100=keyr=1110111110111101。 when 0101=keyr=1111001110111101。 when 0110=keyr=1111110010111101。 when 0111=keyr=1111111100000001。 when 1000=keyr=1111110010111101。 when 1001=keyr=1111001110111101。 when 1010=keyr=1110111110111101。 when 1011=keyr=1101111110111101。 when 1100=keyr=1011111110111100。 when 1101=keyr=0011111110011101。 出租車計費器設計 第 12 頁 共 34 頁 when 1110=keyr=1011111110111111。 when 1111=keyr=1111111111111111。 when others=keyr=1111111111111111。 end case。 elsif s=0010 then case cdount is when 0000=keyr=1111111011111111。 點陣顯示 每 when 0001=keyr=1111111011101111。 when 0010=keyr=1110001011110111。 when 0011=keyr=1110110000001000。 when 0100=keyr=1110111011101011。 when 0101=keyr=1110111011101011。 when 0110=keyr=1110110011001011。 when 0111=keyr=1110101010101011。 when 1000=keyr=1010111011101011。 when 1001=keyr=0110111011101011。 when 1010=keyr=1000111011101011。 when 1011=keyr=1110000000000011。 when 1100=keyr=1110111011101001。 when 1101=keyr=1111111001111011。 when 1110=keyr=1111111011111111。 when 1111=keyr=1111111111111111。 when others=keyr=1111111111111111。 end case。 elsif s=0011 then case cdount is when 0000=keyr=1111111011111111。 點陣顯示 公 when 0001=keyr=1111111011111111。 when 0010=keyr=111111110111