出租車計費器VHDL代碼Quartus開發(fā)板

名稱：出租車計費器VHDL代碼Quartus開發(fā)板

軟件：Quartus

語言：Verilog

代碼功能：

出租車計費器方案一原理

基于CPLD/FPGA的出租車的組成如圖1所示。各部分主要的功能如下：

(1)A計數(shù)器對車輪的傳感器送來的脈沖信號進行計數(shù)(每轉(zhuǎn)一圈送一個脈沖)。不同車型的車輪可能不一樣,通過“設(shè)置1”對車型做出選擇,以實現(xiàn)對不同車型直徑的車進行調(diào)整。

(2)B計數(shù)器對百米脈沖進行累加,并輸出實際的公里數(shù)的BCD碼給出譯碼動態(tài)掃描模塊。每計,滿500送出一個脈沖給出C計數(shù)器?！霸O(shè)置2”實現(xiàn)起步公里數(shù)預(yù)制。

(3)C計數(shù)器實現(xiàn)步長可變(即單價可調(diào))的累加計數(shù),每500米計費一次。“設(shè)置3”用來完成超價加費,起步價預(yù)制等

(4)譯碼/動態(tài)掃描見路程與費用的數(shù)字譯碼后動態(tài)掃描的方式驅(qū)動數(shù)碼管。

(5)碼管顯示將公里數(shù)和計費金額平均用四位數(shù)碼管顯示（三位整數(shù)，1為小數(shù))。

FPGA代碼Verilog/VHDL代碼資源下載：www.hdlcode.com

本代碼已在開發(fā)板驗證，開發(fā)板如下，其他開發(fā)板可以修改管腳適配：

設(shè)計文檔：

顯示模塊仿真圖

速度控制模塊

狀態(tài)機控制模塊

分頻模塊

整體仿真圖

部分代碼展示:

LIBRARY?ieee;
???USE?ieee.std_logic_1164.all;
???USE?ieee.std_logic_unsigned.all;
--狀態(tài)機控制模塊
ENTITY?taxi_state?IS
???PORT?(
??????clk_in???????????????:?IN?STD_LOGIC;--時鐘100Hz
??????reset_n??????????????:?IN?STD_LOGIC;--復(fù)位信號
??????start_n??????????????:?IN?STD_LOGIC;--啟動信號，行程開始
??????stop_n???????????????:?IN?STD_LOGIC;--中途暫停
??????pulse_kilometre??????:?IN?STD_LOGIC;--0.1公里產(chǎn)生一次脈沖
start_price_set??????:?IN?STD_LOGIC_VECTOR(1?DOWNTO?0);--起步價設(shè)置
start_mileage_set????:?IN?STD_LOGIC_VECTOR(1?DOWNTO?0);--起步公里設(shè)置
feeper_mileage_set???:?IN?STD_LOGIC_VECTOR(1?DOWNTO?0);--每公里費用設(shè)置
high_price_set???????:?IN?STD_LOGIC_VECTOR(1?DOWNTO?0);--超價加費設(shè)置
??????mileage_out??????????:?OUT?STD_LOGIC_VECTOR(15?DOWNTO?0);--里程
??????totel_money_out??????:?OUT?STD_LOGIC_VECTOR(15?DOWNTO?0)--合計費用
???);
END?taxi_state;
ARCHITECTURE?behave?OF?taxi_state?IS
--定義狀態(tài)
???TYPE?State_type?IS?(s_idle,?s_starting_price,?s_mileage_price,?s_highmileage_price?,s_stop_1,s_stop_2,s_stop_3);??--?定義狀態(tài)
???SIGNAL?state:?State_Type;????--?創(chuàng)建信號
???SIGNAL?totel_money???:?STD_LOGIC_VECTOR(15?DOWNTO?0)?:=?"0000000000000000";--總價錢
???SIGNAL?mileage???????:?STD_LOGIC_VECTOR(15?DOWNTO?0)?:=?"0000000000000000";--里程
SIGNAL?start_price??????:??STD_LOGIC_VECTOR(15?DOWNTO?0);--起步價
SIGNAL?start_mileage????:??STD_LOGIC_VECTOR(15?DOWNTO?0);--起步公里
SIGNAL?feeper_mileage???:??STD_LOGIC_VECTOR(15?DOWNTO?0);--每公里費用
SIGNAL?high_price???????:??STD_LOGIC_VECTOR(15?DOWNTO?0);--超價加費
???SIGNAL?ten_seconds???:?STD_LOGIC?:=?'0';
???SIGNAL?count_seconds?:?integer?:=?0;
BEGIN
???mileage_out?<=?mileage;--輸出
???PROCESS?(clk_in,?reset_n)
???BEGIN
??????IF?(reset_n?=?'0')?THEN--復(fù)位
?????????mileage?<=?"0000000000000000";
??????ELSIF?(clk_in'EVENT?AND?clk_in?=?'1')?THEN
?????????IF?(state?=?s_starting_price?OR?state?=?s_mileage_price?OR?state?=?s_highmileage_price)?THEN
????????????IF?(pulse_kilometre?=?'1')?THEN--0.1公里里程加0.1
???????????????mileage?<=?mileage?+?"0000000000000001";
????????????ELSE
???????????????mileage?<=?mileage;
????????????END?IF;
?????????END?IF;
??????END?IF;
???END?PROCESS;
???
???--每10秒收取等待費用
???PROCESS?(clk_in,?reset_n)
???BEGIN
??????IF?(reset_n?=?'0')?THEN
?????????count_seconds?<=?0;
?????????ten_seconds?<=?'0';
??????ELSIF?(clk_in'EVENT?AND?clk_in?=?'1')?THEN
?????????IF?(state?=?s_stop_1?OR?state?=?s_stop_2?OR?state?=?s_stop_3)?THEN--停車等待
????????????IF?(count_seconds?>=?1000)?THEN--10秒
???????????????count_seconds?<=?0;
???????????????ten_seconds?<=?'1';--10秒信號
????????????ELSE
???????????????count_seconds?<=?count_seconds?+?1;--計數(shù)
???????????????ten_seconds?<=?'0';
????????????END?IF;
?????????END?IF;
??????END?IF;
???END?PROCESS;
???
--起步價-00-5元??--50?=0000000000110010
--起步價-01-8元??--80?=0000000001010000
--起步價-10-10元?--100=0000000001100100
--起步價-11-12元?--120=0000000001111000
start_price?<="0000000000110010"?when?start_price_set="00"?else
??????????????"0000000001010000"?when?start_price_set="01"?else
??"0000000001100100"?when?start_price_set="10"?else
??"0000000001111000"?;
??
--超價加費-00-1元--1=0000000000000001
--超價加費-01-2元--2=0000000000000010
--超價加費-10-3元--3=0000000000000011
--超價加費-11-4元--4=0000000000000100
high_price<="0000000000000001"?when?high_price_set="00"?else
"0000000000000010"?when?high_price_set="01"?else
"0000000000000011"?when?high_price_set="10"?else
"0000000000000100"?;??
--起步公里--00-3公里--30=0000000000011110
--起步公里--01-4公里--40=0000000000101000
--起步公里--10-5公里--50=0000000000110010
--起步公里--11-6公里--60=0000000000111100
start_mileage?<="0000000000011110"?when?start_mileage_set="00"?else
????"0000000000101000"?when?start_mileage_set="01"?else
?"0000000000110010"?when?start_mileage_set="10"?else
?"0000000000111100"?;
--每公里費用-00-1元--1=0000000000000001
--每公里費用-01-2元--2=0000000000000010
--每公里費用-10-3元--3=0000000000000011
--每公里費用-11-4元--4=0000000000000100
feeper_mileage?<="0000000000000001"?when?feeper_mileage_set="00"?else
??"0000000000000100"?when?feeper_mileage_set="01"?else
??"0000000000000011"?when?feeper_mileage_set="10"?else
??"0000000000000010"?;
--其他是否標準如下：
--停車等待收費：每10秒收取0.1元
--當(dāng)總費用達到超價費用(40元)時，每公里在原價基礎(chǔ)上再加超價費用
--控制狀態(tài)機
???PROCESS?(clk_in,?reset_n)
???BEGIN
??????IF?(reset_n?=?'0')?THEN
?????????state?<=?s_idle;--復(fù)位
?????????totel_money?<=?"0000000000000000";--清零
?????????totel_money_out?<=?"0000000000000000";--清零
??????ELSIF?(clk_in'EVENT?AND?clk_in?=?'1')?THEN
?????????totel_money_out?<=?totel_money;--輸出合計費用
?????????CASE?state?IS
????????????WHEN?s_idle?=>--空閑狀態(tài)
???????????????IF?(start_n?=?'0')?THEN--按下起動鍵start，汽車起動
??????????????????state?<=?s_starting_price;
??totel_money?<=?start_price;--顯示起步價
???????????????ELSE
??????????????????state?<=?s_idle;--空閑狀態(tài)
??????????????????totel_money?<=?"0000000000000000";
???????????????END?IF;
????????????WHEN?s_starting_price?=>--起步價狀態(tài)
???????????????IF?(stop_n?=?'0')?THEN--中途停車
??????????????????state?<=?s_stop_1;
???????????????ELSIF?(mileage?>=?start_mileage)?THEN--大于起步公里
??????????????????state?<=?s_mileage_price;
???????????????ELSE
??????????????????state?<=?s_starting_price;
???????????????END?IF;
????????????WHEN?s_mileage_price?=>--車行駛起步公里公里后按每公里n元計費
???????????????IF?(pulse_kilometre?=?'1')?THEN
??????????????????totel_money?<=?totel_money?+?feeper_mileage;--每0.1公里0.n元計費
???????????????END?IF;
???????????????IF?(totel_money?>=?"0000000110010000")?THEN--當(dāng)總費用達到超價費用(40元)時，每公里按m元收費
??????????????????state?<=?s_highmileage_price;
???????????????ELSIF?(stop_n?=?'0')?THEN--中途停車
??????????????????state?<=?s_stop_2;
???????????????ELSE
??????????????????state?<=?s_mileage_price;
???????????????END?IF;
????????????WHEN?s_highmileage_price?=>--當(dāng)總費用達到超價費用元時，每公里按m元收費
???????????????IF?(pulse_kilometre?=?'1')?THEN
??????????????????totel_money?<=?totel_money?+?feeper_mileage?+?high_price;--在原價基礎(chǔ)上再加超價費用
???????????????END?IF;
???????????????IF?(stop_n?=?'0')?THEN--中途停車
??????????????????state?<=?s_stop_3;
???????????????ELSE
??????????????????state?<=?s_highmileage_price;
???????????????END?IF;
????????????WHEN?s_stop_1?=>--停車等待
???????????????IF?(ten_seconds?=?'1')?THEN--每10秒
??????????????????totel_money?<=?totel_money?+?"0000000000000001";--每10秒收取0.1元
???????????????END?IF;
???????????????IF?(start_n?=?'0')?THEN--啟動
??????????????????state?<=?s_starting_price;
???????????????ELSE
??????????????????state?<=?s_stop_1;
???????????????END?IF;
????????????WHEN?s_stop_2?=>--停車等待
???????????????IF?(ten_seconds?=?'1')?THEN--每10秒
??????????????????totel_money?<=?totel_money?+?"0000000000000001";--每10秒收取0.1元
???????????????END?IF;
???????????????IF?(start_n?=?'0')?THEN--啟動
??????????????????state?<=?s_mileage_price;
???????????????ELSE
??????????????????state?<=?s_stop_2;
???????????????END?IF;
????????????WHEN?s_stop_3?=>--停車等待
???????????????IF?(ten_seconds?=?'1')?THEN--每10秒
??????????????????totel_money?<=?totel_money?+?"0000000000000001";--每10秒收取0.1元
???????????????END?IF;
???????????????IF?(start_n?=?'0')?THEN--啟動
??????????????????state?<=?s_highmileage_price;
???????????????ELSE
??????????????????state?<=?s_stop_3;
???????????????END?IF;
????????????WHEN?OTHERS?=>
???????????????state?<=?s_idle;
?????????END?CASE;
??????END?IF;
???END?PROCESS;
???
???
END?behave;

點擊鏈接獲取代碼文件：http://www.hdlcode.com/index.php?m=home&c=View&a=index&aid=445