基于单片机的超声波测距仪的设计参考论文

看你妹

library ieee;
use ieee.std_logic_arith.all;
use ieee.std_logic_1164.all;
use ieee.std_logic_unsigned.all;

entity try_auto_sale is
port ( clk:in std_logic;                              --系统时钟
set,get,sel,finish: in std_logic;                   --设定、买、选择、完成信号
coin0,coin1: in std_logic;                      --5角硬币、1元硬币
price,quantity  :in std_logic_vector(3 downto 0);   --价格、数量数据
item0 , act:out std_logic_vector(3 downto 0);       --显示、开关信号
y0,y1 :out std_logic_vector(6 downto 0);          --钱数、商品数量显示数据
act10,act5   :out std_logic);                   --1元硬币、5角硬币
end try_auto_sale;

architecture behav of try_auto_sale is
type  ram_type is array(3 downto 0)of std_logic_vector(7 downto 0);
signal ram :ram_type;                                      --定义RAM
signal item: std_logic_vector(1 downto 0);                      --商品种类
signal coin: std_logic_vector(3 downto 0);                      --币数计数器
signal pri,qua:std_logic_vector(3 downto 0);                    --商品单价、数量
signal clk1: std_logic;                                      --控制系统的时钟信号

begin

com:process(set,clk1)
variable quan:std_logic_vector(3 downto 0);
begin
  if set='1' then ram(conv_integer(item))<=price & quantity;act<="0000";
     pri<=price;quan:=quantity;
--把商品的单价、数量置入到RAM
  elsif clk1'event and clk1='1' then  act5<='0'; act10<='0';
      if coin0='1' then     
             if coin<"1001"then coin<=coin+1;            --投入5角硬币，coin自加1
                 else coin<="0000";
                 end if;
      elsif coin1='1' then
                 if coin<"1001"then coin<=coin+2;            --投入1元硬币，coin自加2
                 else coin<="0000";
                 end if;
      elsif sel='1' then item<=item+1;                  --对商品进行循环选择
elsif get='1' then                              --对商品进行购买
if qua>"0000" and coin>=pri then
coin<=coin-pri;
quan:=quan-1;
ram(conv_integer(item))<=pri & quan;
            if  item="00"     then act<="1000"; --购买时，自动售货机对4种商品
                        elsif  item="01"  then act<="0100";
                    elsif  item="10"  then act<="0010";
                    elsif  item="11"  then act<="0001";
                        end if;
                end if;
      elsif  finish='1' then                            --结束交易，退币（找币）
         if coin>"0001" then act10<='1';coin<=coin-2;     --此IF语句完成找币操作
         elsif coin>"0000" then act5<='1'; coin<=coin-1;
         else act5<='0'; act10<='0';
         end if;
      elsif get='0' then act<="0000";                  
         for i in 4 to 7 loop                    
         pri(i-4)<=ram (conv_integer(item))(i);           --商品单价的读取
         end loop;
         for i in 0 to 3 loop
         quan(i):=ram(conv_integer(item))(i);            --商品数量的读取
         end loop;
      end if;
  end if;
qua<=quan;
end process com;

m32:process(clk)                            --此进程完成对32Mhz的脉冲分频
variable q: std_logic_vector( 24 downto 0);
begin
   if clk'event and clk='1' then q:=q+1;
   end if;
   if q="111111111111111111111111" then clk1<='1';
   else clk1<='0';
   end if;
end process m32;

code0:process(item)                          --商品指示灯译码
begin
case item is
when "00"=>item0<="0111";
when "01"=>item0<="1011";
when "10"=>item0<="1101";
when others=>item0<="1110";
end case;
end process;

code1: process (coin)                       --钱数的BCD到七段码的译码
begin
  case coin is
      when "0000"=>y0<="0000001";
      when "0001"=>y0<="1001111";
      when "0010"=>y0<="0010010";
      when "0011"=>y0<="0000110";
      when "0100"=>y0<="1001100";
      when "0101"=>y0<="0100100";
      when "0110"=>y0<="0100000";
      when "0111"=>y0<="0001111";
      when "1000"=>y0<="0000000";
      when "1001"=>y0<="0000100";
      when others=>y0<="1111111";
  end case;
end process;

code2: process (pri)                       --单价的BCD到七段码的译码
begin
  case pri is
      when "0000"=>y1<="0000001";
      when "0001"=>y1<="1001111";
      when "0010"=>y1<="0010010";
      when "0011"=>y1<="0000110";
      when "0100"=>y1<="1001100";
      when "0101"=>y1<="0100100";
      when "0110"=>y1<="0100000";
      when "0111"=>y1<="0001111";
      when "1000"=>y1<="0000000";
      when "1001"=>y1<="0000100";
      when others=>y1<="1111111";
  end case;
end process;
end behav;

学习学习

学习

下了 看看不错哦

正需要啊。。

谢谢LZ分享

{:soso_e100:}

学学学学

谢谢了

支持楼主 ！！  学习了！！！

看看

学习了...

用的是那个传感器
？
PCB打样找华强 http://www.hqpcb.com 样板2天出货

不错奥，顶下

鼓励分享，好好学习天天向上

先谢个

看看才

灌水{:12:}{:12:}{:12:}{:12:}{:12:}{:12:}{:5:}{:5:}版主