Quartus出租车计费系统VHDL代码

名称：Quartus出租车计费系统VHDL代码

软件：Quartus

语言：VHDL

代码功能：

出租车计费系统设计。

设计要求：

设计一个模拟出租车计费的电路系统,具有以下：

(1)能实现计费功能,计费标准为:按行驶路程收费,起步价为11元,并在车行3公里(3km)后按2元/公里收费。当总费用达到或超过40元时每公里收费4元。当遇到红绿灯或客户有事需要停车等待时,则按时间收费,计费单价为每20s收费。

(2)实现预置功能:能预置起步费、每公里收车行加费里程、计时收费。

(3)实现模拟功能:能模拟汽车行驶、停止和暂停等状态。

(4)将路程和车费显示出来,以十进制BCD码方式输出信号。

FPGA代码Verilog/VHDL代码资源下载：www.hdlcode.com

演示视频：

设计文档：

1. 工程文件

2. 程序文件

原理图

代码

3. 程序编译

4. RTL图

5. 仿真图

整体仿真图

速度控制模块

状态机控制模块

显示模块

部分代码展示:

LIBRARY?ieee;
???USE?ieee.std_logic_1164.all;
???USE?ieee.std_logic_unsigned.all;
--状态机控制模块
ENTITY?taxi_state?IS
???PORT?(
??????clk_in???????????????:?IN?STD_LOGIC;--时钟100Hz
??????reset_n??????????????:?IN?STD_LOGIC;--复位信号
??????start_n??????????????:?IN?STD_LOGIC;--启动信号，行程开始
??????stop_n???????????????:?IN?STD_LOGIC;--中途暂停
??????pulse_kilometre??????:?IN?STD_LOGIC;--1公里产生一次脉冲
??????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
--定义状态
???TYPE?State_type?IS?(s_idle,?s_starting_price,?s_mileage_price,?s_highmileage_price?,s_stop_1,s_stop_2,s_stop_3);??--?定义状态
???SIGNAL?state:?State_Type;????--?创建信号
???SIGNAL?totel_money???:?STD_LOGIC_VECTOR(15?DOWNTO?0)?:=?"0000000000000000";--总价钱
???SIGNAL?mileage???????:?STD_LOGIC_VECTOR(15?DOWNTO?0)?:=?"0000000000000000";--里程
???
???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--复位
?????????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--1公里里程加1
???????????????mileage?<=?mileage?+?"0000000000000001";
????????????ELSE
???????????????mileage?<=?mileage;
????????????END?IF;
?????????END?IF;
??????END?IF;
???END?PROCESS;
???
???--每20秒收取1元
???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?>=?200)?THEN--20秒
???????????????count_seconds?<=?0;
???????????????ten_seconds?<=?'1';--20秒信号
????????????ELSE
???????????????count_seconds?<=?count_seconds?+?1;--计数
???????????????ten_seconds?<=?'0';
????????????END?IF;
?????????END?IF;
??????END?IF;
???END?PROCESS;
???
???
???PROCESS?(clk_in,?reset_n)
???BEGIN
??????IF?(reset_n?=?'0')?THEN
?????????state?<=?s_idle;--复位
?????????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?=>--空闲状态
???????????????IF?(start_n?=?'0')?THEN--按下起动键start，汽车起动
??????????????????state?<=?s_starting_price;
??totel_money?<=?"0000000000001011";--显示起步价11元,3公里
???????????????ELSE
??????????????????state?<=?s_idle;--空闲状态
??????????????????totel_money?<=?"0000000000000000";
???????????????END?IF;
????????????WHEN?s_starting_price?=>--起步价状态
???????????????IF?(stop_n?=?'0')?THEN--中途停车
??????????????????state?<=?s_stop_1;
???????????????ELSIF?(mileage?>=?"0000000000000011")?THEN--大于3.0公里
??????????????????state?<=?s_mileage_price;
???????????????ELSE
??????????????????state?<=?s_starting_price;
???????????????END?IF;
????????????WHEN?s_mileage_price?=>--车行驶?3.0公里后按每公里2元计费
???????????????IF?(pulse_kilometre?=?'1')?THEN
??????????????????totel_money?<=?totel_money?+?"0000000000000010";--每公里2元计费
???????????????END?IF;
???????????????IF?(totel_money?>=?"0000000000101000")?THEN--当总费用达到40元时，每公里按4元收费
??????????????????state?<=?s_highmileage_price;
???????????????ELSIF?(stop_n?=?'0')?THEN--中途停车
??????????????????state?<=?s_stop_2;
???????????????ELSE
??????????????????state?<=?s_mileage_price;
???????????????END?IF;
????????????WHEN?s_highmileage_price?=>--当总费用达到40元时，每公里按4元收费
???????????????IF?(pulse_kilometre?=?'1')?THEN
??????????????????totel_money?<=?totel_money?+?"0000000000000100";--每公里4元计费
???????????????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--每20秒
??????????????????totel_money?<=?totel_money?+?"0000000000000001";--每20秒收取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--每20秒
??????????????????totel_money?<=?totel_money?+?"0000000000000001";--每20秒收取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--每20秒
??????????????????totel_money?<=?totel_money?+?"0000000000000001";--每20秒收取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=424