东南大学短学期_FPGA自动售货机.doc

自动售货机设计FPGA 模块模拟自动售货机的工作过程，要求如下（1）售货机有两个进币孔，可以输入硬币和纸币，售货机有两个进币孔，一个是输入硬币，一个是输入纸币，硬币的识别范围是1 元的硬币，纸币的识别范围是5 元，10 元，20，50 元，100元。乘客可以连续多次投入钱币。（2）顾客可以选择的商品种类有16 种，价格分别为1-16 元，顾客可以通过输入商品的编号来实现商品的选择。即有一个小键盘（0-9 按键）来完成，比如输入15 时要先输入1，再输入5。（3）顾客选择完商品后，可以选择需要的数量。然后可以继续选择商品及其数量，每次可以选择最多三个商品，且最多能选三种商品。然后显示出所需金额。顾客此时可以投币，并且显示已经投币的总币值。当投币值达到或超过所需币值后，售货机出货，并扣除所需金额，并找出多余金额。在投币期间，顾客可以按取消键取消本次操作，钱币自动退出。library IEEE;use IEEE.STD_LOGIC_1164.ALL;use IEEE.STD_LOGIC_ARITH.ALL;use IEEE.STD_LOGIC_UNSIGNED.ALL;ENTITY vendor ISPORT( clk : in std_logic; key_in:in std_logic_vector(3 downto 0); -商品种类 、数量 coin1,coin5,coin10,coin20,coin50,coin100:in std_logic;-各个币值 reset: in std_logic; quit : in std_logic;-取消 get : in std_logic; quantity_set,varity_set: in std_logic; select_finished:in std_logic; continue_select:in std_logic; varity1_out,varity2_out,varity3_out : out std_logic_vector(15 downto 0); quantity1_out,quantity2_out,quantity3_out : out std_logic_vector(3 downto 0); act1_qua,act20_qua:out std_logic_vector(2 downto 0); act1,act5,act10,act20,act50,act100:out std_logic);END vendor;ARCHITECTURE behav of vendor ISsignal var_a1,var_a2,var_a3: std_logic_vector( 3 downto 0):=0000;signal qua_a1,qua_a2,qua_a3: std_logic_vector( 3 downto 0):=0000;signal count :std_logic_vector(7 downto 0):=00000000;-总额signal toubizhi :std_logic_vector(7 downto 0):=00000000;-投币值 signal pri_a1,pri_a2,pri_a3: std_logic_vector( 3 downto 0):=0000;-选中的三件商品的价格 个 BEGINprocess(reset,clk)variable i : std_logic_vector(1 downto 0) ;variable zhaobizhi : std_logic_vector(7 downto 0) ;beginif (reset=1) then varity1_out=0000000000000000; varity2_out=0000000000000000; varity3_out=0000000000000000; quantity1_out=0000; quantity2_out=0000; quantity3_out=0000; count=00000000; toubizhi=00000000; var_a1=0000;var_a2=0000;var_a3=0000; qua_a1=0000;qua_a2=0000;qua_a3=0000; act1=0;act5=0; act10=0;act20=0; act50=0;act100=0;i:=00; elsif ( clkevent and clk=1) then varity1_out=0000000000000000; varity2_out=0000000000000000; varity3_out=0000000000000000; quantity1_out=0000; quantity2_out=0000; quantity3_out=0000; act1=0;act5=0;act10=0; act20=0;act50=0;act100=0; act1_qua=000;act20_qua=000; if coin1=1 then toubizhi=toubizhi+1; elsif coin5=1 then toubizhi=toubizhi+5; elsif coin10=1 then toubizhi=toubizhi+10; elsif coin20=1 then toubizhi=toubizhi+20; elsif coin50=1 then toubizhi=toubizhi+50; elsif coin100=1 then toubizhi var_a1=key_in;pri_a1 var_a2=key_in;pri_a2 var_a3=key_in;pri_a3 i:=11; end case; elsif quantity_set=1 then case i is when 00 = qua_a1=key_in;count qua_a2=key_in;count qua_a3=key_in;counti:=11; end case; elsif continue_select=1 then if i11 then i:=i+1; else i:=11; end if; elsif select_finished=1 then count=count then zhaobizhi:=toubizhi-count; toubizhi0000 then quantity1_out varity1_out varity1_out varity1_out varity1_out varity1_out varity1_out varity1_out varity1_out varity1_out varity1_out varity1_out varity1_out varity1_out varity1_out varity1_out varity1_out=1000000000000000; end case; qua_a1=0000;var_a10000 then quantity2_out varity2_out varity2_out varity2_out varity2_out varity2_out varity2_out varity2_out varity2_out varity2_out varity2_out varity2_out varity2_out varity2_out varity2_out varity2_out varity2_out=1000000000000000; end case; qua_a2=0000;var_a20000 then quantity3_out varity3_out varity3_out varity3_out varity3_out varity3_out varity3_out varity3_out varity3_out varity3_out varity3_out varity3_out varity3_out varity3_out varity3_out varity3_out varity3_out=1000000000000000; end case; qua_a3=0000;var_a3=0000; end if; count00000000 then if zhaobizhi=01100100 then act100=00110010 then act50=00010100 ) then act20=1;zhaobizhi:=zhaobizhi-20;act20_qua=00010100 ) then act20=1;zhaobizhi:=zhaobizhi-20;act20_qua=00001010 and zhaobizhi00010100) then act10=00000101 and zhaobizhi00001010) then act5=00000001 and zhaobizhi00000101)then act1=1;zhaobizhi:=zhaobizhi-1;act1_qua=00000001 and zhaobizhi00000101)then act1=1;zhaobizhi:=zhaobizhi-1;act1_qua=00000001 and zhaobizhi00000101)then act1=1;zhaobizhi:=zhaobizhi-1;act1_qua=00000001 and zhaobizhi00000101)then act1=1;zhaobizhi:=zhaobizhi-1;act1_qua=100; end if; end if; end if; elsif quit=1 then -退币 zhaobizhi:=toubizhi; toubizhi00000000 then if zhaobizhi=01100100 then act100=00110010 then act50=00010100 ) then act20=1;zhaobizhi:=zhaobizhi-20;act20_qua=00010100 ) then act20=1;zhaobizhi:=zhaobizhi-20;act20_qua=00001010 and zhaobizhi00010100) then act10=00000101 and zhaobizhi00001010) then act5=00000001 and zhaobizhi00000101)then act1=1;zhaobizhi:=zhaobizhi-1;act1_qua=00000001 and zhaobizhi00000101)then act1=1;zhaobizhi:=zhaobizhi-1;act1_qua=00000001 and zhaobizhi00000101)then act1=1;zhaobizhi:=z