bcdtob1.vhd

ProtelDXp 实现计算器功能

LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
ENTITY BCDTOB1 IS
PORT
(
	NUM	:IN STD_LOGIC_VECTOR(3 DOWNTO 0);
	CO	:OUT STD_LOGIC_VECTOR(15 DOWNTO 0));
END;
ARCHITECTURE A OF BCDTOB1 IS
BEGIN
	PROCESS
BEGIN
CASE NUM IS
		WHEN"0000"=>CO<="0000000000000000";
		WHEN"0001"=>CO<="0000000000000001";
		WHEN"0010"=>CO<="0000000000000010";
		WHEN"0011"=>CO<="0000000000000011";
		WHEN"0100"=>CO<="0000000000000100";
		WHEN"0101"=>CO<="0000000000000101";
		WHEN"0110"=>CO<="0000000000000110";
		WHEN"0111"=>CO<="0000000000000111";
		WHEN"1000"=>CO<="0000000000001000";
		WHEN"1001"=>CO<="0000000000001001";
		WHEN OTHERS=>CO<="0000000000000000";
END CASE;
END PROCESS;
END;