求一个数字跑表VHDL程序，（时钟输入（CLK）、复位（CLR）和启动/暂停（PAUSE））

Question

如题所述

Answer 1

以下有一个波形仿真过了，但是下载时有点问题的代码，如果你解决了告诉我哈，谢谢
LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
USE IEEE.STD_LOGIC_unsigned.ALL;
USE IEEE.STD_LOGIC_ARITH.ALL;
ENTITY PAOBIAO IS
PORT(
CLK,CLR,PAUSE:IN STD_LOGIC;
cs1:OUT std_logic_vector(6 DOWNTO 0);
cs2:OUT std_logic_vector(6 DOWNTO 0);
s1:OUT std_logic_vector(6 DOWNTO 0);
s2:OUT std_logic_vector(6 DOWNTO 0);
m1:OUT std_logic_vector(6 DOWNTO 0);
m2:OUT std_logic_vector(6 DOWNTO 0));
END PAOBIAO;

ARCHITECTURE PAOBIAO_ARCH OF PAOBIAO IS
signal ics1,ics2,is1,im1:UNSIGNED (3 DOWNTO 0);
signal is2,im2:UNSIGNED (2 DOWNTO 0);
BEGIN
PROCESS(CLK,ics1,ics2,is1,im1,is2,im2)
BEGIN
IF (CLK'EVENT AND CLK='1') THEN
IF CLR='1' THEN ics1<=(others=>'0');ics2<=(others=>'0');is1<=(others=>'0');im1<=(others=>'0');is2<=(others=>'0');im2<=(others=>'0');
ELSIF PAUSE='0' THEN
IF (ics1=9) then ics1<=(others=>'0');
IF (ics2=9) then ics2<=(others=>'0');
IF (is1=9) then is1<=(others=>'0');
IF (is2=5) then is2<=(others=>'0');
IF (im1=9) then im1<=(others=>'0');
IF (im2=5) then ics1<=(others=>'0');ics2<=(others=>'0');is1<=(others=>'0');im1<=(others=>'0');is2<=(others=>'0');im2<=(others=>'0');
ELSE im2<=im2+1;END IF;
ELSE im1<=im1+1;END IF;
ELSE is2<=is2+1;END IF;
ELSE is1<=is1+1;END IF;
ELSE ics2<=ics2+1;END IF;
ELSE ics1<=ics1+1; END IF;
ELSE ics1<=ics1;ics2<=ics2;is1<=is1;im1<=im1;is2<=is2;im2<=im2;
END IF;
END IF;
CASE ics1 is
WHEN "0000" => cs1<="1111110";
WHEN "0001" => cs1<="0110000";
WHEN "0010" => cs1<="1101101";
WHEN "0011" => cs1<="1111001";
WHEN "0100" => cs1<="0110011";
WHEN "0101" => cs1<="1011011";
WHEN "0110" => cs1<="1011111";
WHEN "0111" => cs1<="1110000";
WHEN "1000" => cs1<="1111111";
WHEN "1001" => cs1<="1111011";
WHEN OTHERS =>null;
END CASE;
CASE ics2 is
WHEN "0000" => cs2<="1111110";
WHEN "0001" => cs2<="0110000";
WHEN "0010" => cs2<="1101101";
WHEN "0011" => cs2<="1111001";
WHEN "0100" => cs2<="0110011";
WHEN "0101" => cs2<="1011011";
WHEN "0110" => cs2<="1011111";
WHEN "0111" => cs2<="1110000";
WHEN "1000" => cs2<="1111111";
WHEN "1001" => cs2<="1111011";
WHEN OTHERS =>null;
END CASE;
CASE is1 is
WHEN "0000" => s1<="1111110";
WHEN "0001" => s1<="0110000";
WHEN "0010" => s1<="1101101";
WHEN "0011" => s1<="1111001";
WHEN "0100" => s1<="0110011";
WHEN "0101" => s1<="1011011";
WHEN "0110" => s1<="1011111";
WHEN "0111" => s1<="1110000";
WHEN "1000" => s1<="1111111";
WHEN "1001" => s1<="1111011";
WHEN OTHERS =>null;
END CASE;
CASE is2 is
WHEN "000" => s2<="1111110";
WHEN "001" => s2<="0110000";
WHEN "010" => s2<="1101101";
WHEN "011" => s2<="1111001";
WHEN "100" => s2<="0110011";
WHEN "101" => s2<="1011011";
WHEN OTHERS =>null;
END CASE;
CASE im1 is
WHEN "0000" => m1<="1111110";
WHEN "0001" => m1<="0110000";
WHEN "0010" => m1<="1101101";
WHEN "0011" => m1<="1111001";
WHEN "0100" => m1<="0110011";
WHEN "0101" => m1<="1011011";
WHEN "0110" => m1<="1011111";
WHEN "0111" => m1<="1110000";
WHEN "1000" => m1<="1111111";
WHEN "1001" => m1<="1111011";
WHEN OTHERS =>null;
END CASE;
CASE im2 is
WHEN "000" => m2<="1111110";
WHEN "001" => m2<="0110000";
WHEN "010" => m2<="1101101";
WHEN "011" => m2<="1111001";
WHEN "100" => m2<="0110011";
WHEN "101" => m2<="1011011";
WHEN OTHERS =>null;
END CASE;

END PROCESS;
END PAOBIAO_ARCH;

Answer 2

同学有什么问题你直接上课问我好了，不要百度了。