bcdtob2.vhd

ProtelDXp 实现计算器功能

LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
ENTITY BCDTOB2 IS
PORT
(
	NUM	:IN STD_LOGIC_VECTOR(3 DOWNTO 0);
	CO	:OUT STD_LOGIC_VECTOR(15 DOWNTO 0));
END;
ARCHITECTURE A OF BCDTOB2 IS
BEGIN
	PROCESS
BEGIN
CASE NUM IS
		WHEN"0000"=>CO<="0000000000000000";
		WHEN"0001"=>CO<="0000000000001010";
		WHEN"0010"=>CO<="0000000000010100";
		WHEN"0011"=>CO<="0000000000011110";
		WHEN"0100"=>CO<="0000000000101000";
		WHEN"0101"=>CO<="0000000000110010";
		WHEN"0110"=>CO<="0000000000111100";
		WHEN"0111"=>CO<="0000000001000110";
		WHEN"1000"=>CO<="0000000001010000";
		WHEN"1001"=>CO<="0000000001011010";
		WHEN OTHERS=>CO<="0000000000000000";
END CASE;
END PROCESS;
END;