两个4位二进制相减的VHDL程序

前言
本次实验所用软件为Quartus||9.0，所用板载为EPF10K20T144-4。

注意事项
（1）创建VHDL工程时选择板载系列一定要按照板载芯片上的系列选中。
（2）目前使用的Quartus || 9.0不支持输入汉字的功能，只支持显示汉字的功能，所以想要在上面显示汉字，得先在记事本中写好自己要写的汉字内容，然后再复制粘贴到Quartus || 9.0上的文件中。
（3）安装驱动程序前一定要记得禁止驱动程序签名。
（4）配置完引脚以后一定要记得要再编译一次。

实验题目
1、试编写两个4位二进制相减的VHDL程序。

代码实现
1、实现思路如下：设置两个输入一个输出，然后将被减数和减数加一位"0"，然后求出减数的补码以后，相加即可。（注：代码如下）

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

entity subtraction is 
port( A: in std_logic_vector(3 downto 0); 
      B: in std_logic_vector(3 downto 0); 
      D: out std_logic_vector(3 downto 0)); 
end subtraction; 

architecture rt of subtraction is 
signal aa,bb,ss: std_logic_vector(4 downto 0); 
signal v:std_logic; 
begin  
      aa<='0' & A; 
      bb<='0' & not B; 
      SS<=aa + bb + '1'; 
      v<=ss(4); 
      D(3 downto 0)<= ss(3 downto 0); 
end rt; 

时序仿真实现

烧入板载实现

程序未考虑number1<number2,即结果为负数的情况，数码管采用EPF10K20T144-3上的七段数码管（共阴），小数点一直置于低电平，即不亮状态
代码：

library ieee;
use ieee.std_logic_1164.all;
Use ieee.std_logic_unsigned.all;
use ieee.STD_LOGIC_ARITH.all;
entity tube is
	port(number1,number2: in std_logic_vector(3 downto 0);
		clk : in std_logic;
		SG : out std_logic_vector(7 downto 0);--段控制信号输出，单个数码管字符显示
		BT : out std_logic_vector(7 downto 0) --位控制信号输出，八个数码管的选择
		);
end tube;
architecture behave of tube is
	signal scan : integer range 0 to 1;
	signal ledag1,ledag2 : std_logic_vector(7 downto 0);--两个数码管的动态显示
    signal cnt_One,cnt_Ten:integer range 0 to 9 :=0;
   	Signal data:integer range 0 to 15;
begin
data<=conv_integer(number1-number2);
process(clk)
  begin 
	if (clk'event and clk='1') then
		cnt_one<=data rem 10;
		cnt_ten<=(data-cnt_one)/10;
		if(scan=1)then
			scan<=0;
		else
			scan<=scan+1;
		end if;	
		end if;	
end process;
--译码电路1，数码管1动态字符查表
process(cnt_One)
	begin
    case cnt_One is
	  when 0=>ledag1<="11111100";
      when 1=>ledag1<="01100000";
      when 2=>ledag1<="11011010";
      when 3=>ledag1<="11110010";
      when 4=>ledag1<="01100110";
      when 5=>ledag1<="10110110";
      when 6=>ledag1<="10111110";
      when 7=>ledag1<="11100000";
      when 8=>ledag1<="11111110";
      when 9=>ledag1<="11110110";
      when others=>Null;
		end case;
end process ;
--译码电路2，数码管2动态字符查表
 process(cnt_Ten)
	begin
    case cnt_Ten is
	  when 0=>ledag2<="11111100";
      when 1=>ledag2<="01100000";
      when 2=>ledag2<="11011010";
      when 3=>ledag2<="11110010";
      when 4=>ledag2<="01100110";
      when 5=>ledag2<="10110110";
      when 6=>ledag2<="10111110";
      when 7=>ledag2<="11100000";
      when 8=>ledag2<="11111110";
      when 9=>ledag2<="11110110";
      when others=>Null;
	end case;
end process ；
--刷新显示模块	
 process(scan)
	begin 
		case scan is
			when 0 => SG <= ledag1;BT <= "11111110";--数码管1
			when 1 => SG <= ledag2;BT <= "11111101";--数码管2
			when others => Null;
		end case;
	end process ;	
end behave;