基于VHDL编程FPGA的地铁自动售票机地铁自动售票机一、设计要求1、功能描述用于模仿地铁售票自动售票，完成地铁售票的核心控制功能。
2、功能要求售票机有两个进币孔，一个是输入硬币，识别的范围是一元硬币；一个是纸币，识别的范围是一元、两元、五元、十元、二十元。
乘客可以连续屡次投入钱币。
乘客一次只能选择一个出站口，购置车票时，乘客先选出站口，有六个出站口可供选择，再选择所需的票数，然后投币，投入的钱币到达或者超过所需金额时，售票机自动出票，并找零。
本次交易结束后，等待下一次交易。
在选择出站口、所需票数以及在投币期间，乘客可以按取消键取消操作，钱币自动退出。
二、实验分析1、买票时，乘客按下开始键，售票机进入站台选择程序，乘客选择出站口后，可以按取消键重新选择，否那么售票机自动进入票数选择程序，同样这时可以按下取消键重新开始选择出站口以及票数。
2、中选择好出站口以及所需票数时，乘客可以投硬币或者用纸币，当所投的钱币总额大于或者等于票价时，售票机自动出票以及找零。
期间，可以按下取消键重新开始选择，并退出所有的钱币。
3、乘客假设还没选择出站口或者票数，就投币或者使用纸币，售票时机自动退出所有的钱币。
4、有六个站台可供乘客选择，每个乘客最多可以买3张票，六个站台编号为1到6，票价从2元依次递增到7。
三、系统流程图四、程序源代码LIBRARY IEEE;USE IEEE.std_logic_1164.ALL; USE IEEE.std_logic_arith.ALL; USE IEEE.std_logic_unsigned.ALL; ENTITY metrosell IS PORT(clk:in std_logic; startselect:in std_logic; sure:in std_logic; save your forward step(s)coin1y:in std_logic; pmoney1y:in std_logic; pmoney2y:in std_logic; pmoney5y:in std_logic; pmoney10y:in std_logic; moneypmoney20y:in std_logic; moneycancel:in std_logic; number:in std_logic_vector(3 downto 0); the ticketsplatform:in std_logic_vector(3 downto 0); want to reachmoneystorage:out std_logic; acceptmo:out std_logic; stamp:outstd_logic; --set the clock signal --start to select the platform --this button is to --1 yuan coin--1 yuan paper money --2 yuan paper money --5 yuan paper money --10 yuan paper --20 yuan paper --cancel the forward step(s) --choose the number of --choose the platform you --to store the money --accept the money --stamp outgatecharge:out std_logic_vector(3 downto 0); --the mount of charge,up to 15 yuanchargegate:out std_logic --charge outgate ); END metrosell;ARCHITECTURE sell OF metrosell IStype state_type is(initial_type,selectp_type,selectnum_type,insert_type,stamp_type,char ge_type); --define six typessignal state:state_type; --define a shared state BEGINmain:process(clk,state,startselect,platform,number,coin1y,pmoney1y,pm oney2y,pmoney5y,pmoney10y,pmoney20y,cancel,sure)variable univalence :integer range 0 to 7; --the univalence of the ticket variable total_money :integer range 0 to 21; --the price of theticket(s) variable selectp_alr:std_logic; --the flag of select platform typevariable selectnum_alr:std_logic; --the flag of select number type variable stamp_alr:std_logic; --the flag of the stamp gate variable charge_alr:std_logic; --the flag of the charge gatevariable money_reg:integer range 0 to 21; --the mount of money put in variable coin1y_f:std_logic; --the flag of one yuan coin variable pmoney1y_f:std_logic; --the flag of one yuan paper moneyvariable pmoney2y_f:std_logic; --the flag of two yuan paper money variable pmoney10y_f:std_logic; --the flag of ten yuan paper money variable pmoney20y_f:std_logic; --the flag of twelve yuan paper money variable pmoney5y_f:std_logic; --the flag of five yuan paper money variable charge_reg:integer range 0 to 15; beginif(rising_edge(clk)) then case state iswhen initial_type => variablesunivalence:=0; selectp_alr:='0'; selectnum_alr:='0'; stamp_alr:='0'; charge_alr:='0'; money_reg:=0; total_money:=0; coin1y_f:='0';pmoney1y_f:='0'; pmoney2y_f:='0'; pmoney5y_f:='0';--the register of charge --initialize some pmoney10y_f:='0';pmoney20y_f:='0'; moneystorageif(selectp_alr='0'and cancel='0') then --choose the platformif(platform=\ elsif(platform=\ elsif(platform=\ elsif(platform=\elsif(platform=\ elsif(platform=\ elsif(platform=\ else null; end if; elsif(selectp_alr='1'and cancel='1')then state。
