VHDL+FPGA自动售货机

最新推荐文章于 2024-07-09 15:37:52 发布
最新推荐文章于 2024-07-09 15:37:52 发布
阅读量947 收藏 14
点赞数
文章标签： fpga开发
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/hooty_/article/details/131494434
版权

实机演示

代码如下

library ieee;
use ieee.std_logic_1164.all;
use IEEE.STD_LOGIC_ARITH.ALL;
use IEEE.STD_LOGIC_UNSIGNED.ALL;

entity vending_machine is
    port (
        clk: in std_logic;
        reset_in: in std_logic;
        coin_10_in: in std_logic;
        coin_5_in: in std_logic;
        confirm_in: in std_logic;
        cancel: in std_logic;
        go: in std_logic;
        drink_1,drink_2:in std_logic;
        add_in:in std_logic;
        less_in:in std_logic;
        segment_out : out STD_LOGIC_VECTOR (6 downto 0);
        segment_out1 : out STD_LOGIC_VECTOR (6 downto 0);
        sweep : out STD_LOGIC_VECTOR (6 downto 0);
        led_1,led_2,led_3,led_4: out std_logic;
        led1,led2,led3,led4,led5,led6,led7: out std_logic
    );
end entity vending_machine;

architecture behavioral of vending_machine is
    signal temp_reset,reset:std_logic;
    signal div:std_logic_vector(30 downto 0) := (others=>'0');
    signal clkdiv,clksw : std_logic;
    signal count : std_logic_vector(6 downto 0) := "0000001";
    signal cnt0,cnt1,cnt2,cnt3,cnt4,cnt5,cnt6,seg_7_s : std_logic_vector(3 downto 0);
    signal stock_1out,stock_2out: signed(3 downto 0);
    signal quantity_out: signed(3 downto 0);
    signal coins_inserted_out: signed(7 downto 0);
    signal coins_required_out: signed(7 downto 0);
    signal coins_returned_out: signed(7 downto 0);
    signal count1,count2,count3,count4,count5:integer;--计数
    signal add,less,confirm,coin_10,coin_5: std_logic;
begin  

--按键消抖
process(clk)
  begin
  if(clk'event and clk='1') then--上升沿
		if(add_in='1') then--按键初始为0
			count1<=count1+1;
			if(count1=2000000) then--对应现实20ms
				add<='1';--判断是否有一段持续20ms的'0'状态，若有即代表按下
			else
				add<='0';--若无代表没按下
			end if;
		else
			count1<=0;
		end if;
	end if;
end process;
process(clk)
  begin
  if(clk'event and clk='1') then--上升沿
		if(less_in='1') then--按键初始为0
			count2<=count2+1;
			if(count2=2000000) then--对应现实20ms
				less<='1';--判断是否有一段持续20ms的'1'状态，若有即代表按下
			else
				less<='0';--若无代表没按下
			end if;
		else
			count2<=0;
		end if;
	end if;
end process;
process(clk)
  begin
  if(clk'event and clk='1') then--上升沿
		if(confirm_in='1') then--按键初始为0
			count3<=count3+1;
			if(count3=2000000) then--对应现实20ms
				confirm<='1';--判断是否有一段持续20ms的'1'状态，若有即代表按下
			else
				confirm<='0';--若无代表没按下
			end if;
		else
			count3<=0;
		end if;
	end if;
end process;
process(clk)
  begin
  if(clk'event and clk='1') then--上升沿
		if(coin_10_in='1') then--按键初始为0
		  count4<=count4+1;
			if(count4=2000000) then--对应现实20ms
				coin_10<='1';--判断是否有一段持续20ms的'1'状态，若有即代表按下
			else
				coin_10<='0';--若无代表没按下
			end if;
		else
			count4<=0;
		end if;
	end if;
end process;
process(clk)
  begin
  if(clk'event and clk='1') then--上升沿
		if(coin_5_in='1') then--按键初始为0
			count5<=count5+1;
			if(count5=2000000) then--对应现实20ms
				coin_5<='1';--判断是否有一段持续20ms的'1'状态，若有即代表按下
			else
				coin_5<='0';--若无代表没按下
			end if;
		else
			count5<=0;
		end if;
	end if;
end process;
	
--产生异步复位信号
p1:PROCESS(clk,reset_in)
BEGIN
  IF(reset_in='1')THEN
     temp_reset<='0';
  ELSIF(clk'event AND clk='1')THEN
     temp_reset<='1';
  END IF;
END PROCESS p1;
p2:PROCESS(clk,reset_in)
BEGIN
  IF(reset_in='1')THEN
     reset<='0';
  ELSIF(clk'event AND clk='1')THEN
     reset<=temp_reset;
  END IF;
END PROCESS p2;

--状态机
 process(reset,coin_10,coin_5,drink_1,drink_2,add,less,confirm,cancel,go)is
     type state_type is (idle, check_stock, select_quantity, accept_coins, confirm_purchase, cancel_purchase, return_change);
     variable state: state_type:=idle; 
     variable stock_1,stock_2: signed(3 downto 0);
     variable quantity: signed(3 downto 0);
     variable coins_inserted: signed(7 downto 0);
     variable coins_required: signed(7 downto 0);
     variable coins_returned: signed(7 downto 0);
     variable coin_flag:std_logic;
     constant price_1:signed(3 downto 0):="0011";--代表15元
     constant price_2:signed(3 downto 0):="0100";--代表20元
     begin
      if (reset='1' )then
        state:=idle;
      elsif(clk'event AND clk='1')then
       case state is
         when idle=>--初始状态 s1
           stock_1:="0010";--两罐
           stock_2:="0011";--三罐
           coins_inserted:="00000000";
           coins_required:="00000000";
           coins_returned:="00000000";
           led_1<='0';
           led_2<='0';
           led_3<='0';
           led_4<='0';
           quantity:="0000"; 
           led1<='1';
           led2<='0';
           led3<='0';
           led4<='0';
           led5<='0';
           led6<='0';
           led7<='0';
           if confirm='1' then
           state:=check_stock; 
           else
           state:=idle;
           end if;          
         when check_stock=>--检查存量 s2
           if stock_1>0 then
             led_1<='1';
           else
             led_1<='0';
           end if;
           if (stock_2>0) then
             led_2<='1';
           else
             led_2<='0';
           end if;
           coins_inserted:="00000000";
           coins_required:="00000000";
           coins_returned:="00000000";
           coin_flag:='0';
           quantity:="0000";
           led_3<='0';
           led_4<='0';
           led1<='0';
           led2<='1';
           led3<='0';
           led4<='0';
           led5<='0';
           led6<='0';
           led7<='0';
           if  (drink_1='1' or drink_2='1')then
             quantity:="0001";
             state:=select_quantity;           
           else state:=check_stock;
           end if;
         when select_quantity=>--选择数量 s3
           if (drink_1='1')then
             if (add='1')then
               quantity:=quantity + 1;
             elsif (less='1') then
               quantity:=quantity - 1;
             else
                quantity:=quantity;
             end if;
             if (quantity > stock_1) then
               led_4<='1';--提醒超出存量
             else led_4<='0';
             end if;
           end if;
           if (drink_2='1')then
             if (add='1')then
               quantity:=quantity + 1;
             elsif (less='1' )then
               quantity:=quantity - 1;
             else
                quantity:=quantity;
             end if;
             if (quantity > stock_2) then
               led_4<='1';--提醒超出存量
             else led_4<='0';
             end if;
           end if;
           led1<='0';
           led2<='0';
           led3<='1';
           led4<='0';
           led5<='0';
           led6<='0';
           led7<='0';
           if (drink_1='1')then
             coins_required:=quantity * price_1;
           elsif (drink_2='1')then
             coins_required:=quantity*price_2;
           else
             coins_required:=coins_required;
           end if;
            if (coin_5= '1' ) then
              coins_inserted:=coins_inserted+1;
              state:=accept_coins;
            elsif (coin_10='1') then
              coins_inserted:=coins_inserted+2;
              state:=accept_coins;
            else state:=select_quantity;
            end if;
         when accept_coins=>--接收硬币 s4
           if (coin_5='1' )then
             coins_inserted:=coins_inserted+1;
           elsif (coin_10='1') then
             coins_inserted:=coins_inserted+2;
           end if;
           led1<='0';
           led2<='0';
           led3<='0';
           led4<='1';
           led5<='0';
           led6<='0';
           led7<='0';
           if (confirm='1') then
             state:=confirm_purchase;
           elsif (cancel='1' )then
             state:=cancel_purchase;
           else state:=accept_coins;
           end if;
         when confirm_purchase=>--确认购买 s5
          if (drink_1='1')then
               if (coins_inserted>=coins_required and stock_1>0 ) then
               coin_flag:='1';--代表付款足够
               led_3<='1';--代表出货成功
               led_4<='0';
               stock_1:=stock_1-quantity;
               coins_returned:=coins_inserted-coins_required;
               coins_inserted:="00000000";
               else led_4<='1';--代表出货失败
               end if;        
          elsif (drink_2='1') then
               if (coins_inserted>=coins_required and stock_2>0 ) then
               coin_flag:='1';--代表付款足够
               led_3<='1';--代表出货成功
               led_4<='0';
               stock_2:=stock_2-quantity;
               coins_returned:=coins_inserted-coins_required;
               coins_inserted:="00000000";
               else led_4<='1';--代表出货失败
               end if;
           end if;
           led1<='0';
           led2<='0';
           led3<='0';
           led4<='0';
           led5<='1';
           led6<='0';
           led7<='0';
           if (coin_flag='1') then
             state:=return_change;
           else
              state:=accept_coins;
           end if;
         when cancel_purchase=>--取消购买 s6
           coins_returned:=coins_inserted;
           coins_inserted:="00000000";
           led_4<='1';
           led1<='0';
           led2<='0';
           led3<='0';
           led4<='0';
           led5<='0';
           led6<='1';
           led7<='0';
           state:=return_change;
         when  return_change=>--找零 s7
           led1<='0';
           led2<='0';
           led3<='0';
           led4<='0';
           led5<='0';
           led6<='0';
           led7<='1';
           if stock_1>0 then
             led_1<='1';
           else
             led_1<='0';
           end if;
           if (stock_2>0) then
             led_2<='1';
           else
             led_2<='0';
           end if;
           if (go='1') then
             state:=check_stock;
           else
             state:=return_change;
           end if;
       end case;
 --传递数码管信号
       cnt0<=CONV_STD_LOGIC_VECTOR(stock_1,4);
       cnt1<=CONV_STD_LOGIC_VECTOR(stock_2,4);
       cnt2<=CONV_STD_LOGIC_VECTOR(quantity,4);
       cnt3<=CONV_STD_LOGIC_VECTOR(CONV_INTEGER(coins_inserted)*5/10,4);
       cnt4<=CONV_STD_LOGIC_VECTOR(CONV_INTEGER(coins_inserted)*5 rem 10,4);
       cnt5<=CONV_STD_LOGIC_VECTOR(CONV_INTEGER(coins_returned)*5/10,4);
       cnt6<=CONV_STD_LOGIC_VECTOR(CONV_INTEGER(coins_returned)*5 rem 10,4);
       end if;
end process ;

--实现数码管显示
process(clk)
    begin
        if rising_edge(clk) then
            div<=div+1;
                if div>=19999999 then
                    div<=(others=>'0');
                end if;
                if div>=9999999 then
                    clkdiv<='1';
                else 
                    clkdiv<='0';
                end if;
        end if;
    end process;
    clksw<=div(16);
    process(clksw)
    begin
        if rising_edge(clksw) then
            count<=count (5 downto 0)&count(6);
        end if;
        case count is
            when "00000001" =>seg_7_s<=cnt0; 
            when "00000010" =>seg_7_s<=cnt1;
            when "00000100" =>seg_7_s<=cnt2; 
            when "00001000" =>seg_7_s<=cnt3;
            when "00010000" =>seg_7_s<=cnt4;
            when "00100000" =>seg_7_s<=cnt5;
            when "01000000" =>seg_7_s<=cnt6;
            when others =>seg_7_s<="0000";
        end case;
    end process;
    sweep<=count;
with seg_7_s select
    segment_out <= "0000110" when "0001",  --1
                   "1011011" when "0010",  --2
                   "1001111" when "0011",  --3
                   "1100110" when "0100",  --4
                   "1101101" when "0101",  --5
                   "1111101" when "0110",  --6
                   "0000111" when "0111",  --7
                   "1111111" when "1000",  --8
                   "1101111" when "1001",  --9
                   "0111111" when others;  --0
with seg_7_s select
    segment_out1<= "0000110" when "0001",  --1
                   "1011011" when "0010",  --2
                   "1001111" when "0011",  --3
                   "1100110" when "0100",  --4
                   "1101101" when "0101",  --5
                   "1111101" when "0110",  --6
                   "0000111" when "0111",  --7
                   "1111111" when "1000",  --8
                   "1101111" when "1001",  --9
                   "0111111" when others;  --0       
end architecture behavioral;

hooty_
关注
  • 0
    点赞
  • 踩
  • 14
    收藏
    觉得还不错? 一键收藏
  • 2
    评论
VHDL简单地铁售票机
07-07
fpag课实验作业啊，欢迎各位下载鸭。quartusII上功能仿真能够通过，还没有烧到fpga上试过
FPGA实例源代码：自动售货机VHDL程序与仿真.doc
06-06
FPGA实例源代码：自动售货机VHDL程序与仿真.doc
基于FPGA的地铁售票机设计VHDL代码ISE仿真
xiakunpei123的博客
05-30 605
1、有两元,三元两种地铁车票。只能用五角、一元两种硬币购票 2,投入硬币,数管显示投入便币金额,金与所选票价一致,给出车票,并置金额显示为零,否则,退还便币,按“取消”同样退还硬币,并置金额显示为零 二、画出设计准图 三、说明设计图中各模块功能 四、实验步骤
Quartus自动售货机VHDL
diaojiangxue的博客
09-16 937
使用VHDL语言和quartus软件设计自动售货机，可以投币1元和5元，具有2/3/4/6 共4种不同的商品，可以找零
VIVADO自动售票机售货机verilog代码ego1开发板验证
diaojiangxue的博客
11-23 1395
名称：VIVADO自动售票机售货机verilog代码ego1开发板验证 （代码在文末下载）软件：VIVADO语言：Verilog代码功能：自动售票机 1、自动售票机只出售1角、2角、5角和1元4种车票2、只接收1角、5角和1元硬币，每次只能出售1张车 3、自动售票机具有累加销售额的功能实验要求 出售车票用SW0~3分别表示1角、2角、5角、1元4种;///////控制模块：状态机，实现各个状态的转换//////////////////////////////////////////
VHDL自动贩卖机程序
07-05
该程序实现自动贩卖机的功能，包括卖方设置商品数量及价格，买方投币、购买、退币，完全可以模拟自动贩卖机的功能。
vhdl_自动售卖机（1.5元的水，可投0.5元，1元的硬币）
2202_75826796的博客
12-13 937
【代码】vhdl_自动售卖机（1.5元的水，可投0.5元，1元的硬币）
自动售货机 - VHDL源代码及报告(东南大学课程设计)
06-18
自动售货机 - VHDL源代码及报告(东南大学课程设计)
自动贩卖机（Verilog）
04-26
使用Verilog设计Mealy状态机，实现自动贩卖机的运行系统设计
基于VHDL+FPGA的自动售货机控制模块的设计与实现
08-05
本文采用VHDL作为工具描述了自动售货机控制模块的逻辑控制电路，并在FPGA上实现。该自动售货机能够根据投入硬币额度，按预定的要求在投入硬币大于规定值时送出饮料并找零。
EDA/PLD中的基于VHDL +FPGA 的自动售货机控制模块的设计与实现
11-03
VHDL(Very High Speed Integrated Circuit Hardware Description Language,超高速集成电路硬件描述语言)是硬件描述语言的一种，对系统硬件的描述功能很强而语法又比较简单。VHDL具有强大的行为描述能力
基于VHDL +FPGA 的自动售货机控制模块的设计与实现
01-19
VHDL(Very High Speed Integrated Circuit Hardware Description Language,超高速集成电路硬件描述语言)是硬件描述语言的一种，对系统硬件的描述功能很强而语法又比较简单。VHDL具有强大的行为描述能力，设
基于FPGA的自动售货机设计1
m0_59487432的博客
09-17 1544
3 该系统可以管理四种货物，每种的数量和单价在初始化时输入，在存储器中存储。用户可以用硬币进行购物，按键进行选择。4 系统根据用户输入的货币，判断钱币是否够，钱币足够则根据顾客的要求自动售货，钱币不够则给出提示并退出。2.该系统能完成货物信息存储，进程控制，硬币处理，余额计算，显示等功能。5 系统自动的计算出应找钱币余额、库存数量并显示。1.设计制作一个自动售货机控制系统。
VHDL 自动售货机设计与实现
so_cracy的博客
10-12 7526
大三的实验，给出代码，仅供参考： 基本功能： 1、在屏幕上显示3种商品，及其单价 2、按键实现投币，购买，找零等 3、不同按键代表不同的金钱数 1、分频模块： modulefenpin(     input CLK,     input RSTn,     output reg CLK_25M     ); always @ (posedge CLK or negedge
基于FPGA的手机配件自动售货机设计VHDL代码ISE basys2开发板
xiakunpei123的博客
06-03 734
以华为手机配件为例，可供选择的产品及价格如下：半入耳式耳机38元，5A数据线44元，快充充电器60元，P30硅胶保护壳99元。一次只买一种产品，只能插入10元、50元和100元三种面值的钞票。功能：①选择所要购买的配件。②插入钞票。当插入的钞票总金额=售价时，输出相应配件；当钞票总金额售价时，在输出相应配件的同时找零。③完成交易，等待下一次交易。 用按钮代表插入10元、50元或100元钞票，用拨码开关选择配件，用LED灯显示是否获得配件和是否找零，用数码管显示插入
FPGA verilog HDL 基于有限状态机设计自动贩卖机及综合
张华山
08-07 8736
项目：FPGA verilog HDL 基于有限状态机设计自动贩卖机及综合 运用模块：按键消抖模块、有限状态机模块、LED模块（呼吸灯、双向流水灯、流水呼吸灯）、数码管模块。 项目内容：1、设置三个按键：常用的复位键、按键1（0.5元）、按键2（1元）。按键1、按键2要按键消抖。 2、运用有限状态机：初始状态（未投币）、每投0.5元便会亮一盏led灯，若直...
基于FPGA的LDPC编译码算法设计基础知识
starmier的博客
07-09 525
放大器可以根据其构造和使用的器件分为几种基本类型，每种类型的放大器都有其特定的电路图和工作原理。晶体管与运算放大器：晶体管放大器通常用于单级放大，而运算放大器通常用于集成电路中，提供高增益和可配置的放大解决方案。晶体管与管子放大器：晶体管放大器体积小，效率高，成本低，而管子放大器则因其特有的音质特性（如温暖的音色）而在某些音频爱好者中依然受到青睐，但体积大，效率低，成本高。以上是放大电路的一些基本类型和它们的工作原理，不同类型的放大器适用于不同的应用领域，设计时选择合适的放大器类型对于电路的性能至关重要。
FPGA 项目菜单功能比较
最新发布
bjcyck的博客
07-09 678
FPGA I/O：最适合直接与外部设备交互的应用。：最适合需要高频操作和精确时序控制的应用。Register：最适合需要复杂数据处理和计算的应用。Handshake：最适合需要可靠数据传输和同步的应用。Memory：最适合需要大容量数据存储和快速存取的应用。FIFO：最适合需要高效数据流处理和速度匹配的应用。：最适合需要高级功能集成和简化设计的应用。
fpga自动售货机判断库存
10-18
FPGA自动售货机可以通过传感器检测货道中的商品数量，然后将这些信息传输到FPGA芯片中进行处理，判断库存是否充足。如果库存不足，自动售货机会提示用户选择其他商品或者等待补货。 在FPGA芯片中，可以使用Verilog或VHDL等硬件描述语言编写逻辑代码，实现自动售货机的功能。具体实现方式可以参考相关的FPGA开发文档和教程。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 2
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值