16点阵字模显示全部程序.doc

LIBRARY IEEE;USE IEEE.STD_LOGIC_1164.ALL;USE IEEE.STD_LOGIC_UNSIGNED.ALL;ENTITY COUNT32 ISPORT( CLK1: IN STD_LOGIC;QOUT1 : OUT STD_LOGIC_VECTOR(4 DOWNTO 0);END ENTITY COUNT32;ARCHITECTURE BEHV OF COUNT32 ISSIGNAL CQI : STD_LOGIC_VECTOR(4 DOWNTO 0);BEGINPROCESS(CLK1)BEGINIF (CLK1EVENT AND CLK1=1) THENCQI=CQI+1;END IF;QOUT1=CQI;END PROCESS;END ARCHITECTURE BEHV;LIBRARY IEEE;USE IEEE.STD_LOGIC_1164.ALL;USE IEEE.STD_LOGIC_UNSIGNED.ALL;ENTITY COUNT16 ISPORT( CLK : IN STD_LOGIC;QOUT : OUT STD_LOGIC_VECTOR(3 DOWNTO 0);END ENTITY COUNT16;ARCHITECTURE BEHV OF COUNT16 ISSIGNAL CQI : STD_LOGIC_VECTOR(3 DOWNTO 0);BEGINPROCESS(CLK)BEGINIF (CLKEVENT AND CLK=1) THENCQI=CQI+1;END IF;QOUT ROW ROW ROW ROW ROW ROW ROW ROW ROW ROW ROW ROW ROW ROW ROW ROW ROWCASE WEI is when 0000 =b:=0100000000000000; when 0001 =b:=0011000000001000; when 0010 =b:=0001011111111100; when 0011 =b:=0000000001000000; when 0100 =b:=1000000001000000; when 0101 =b:=0110000001000000; when 0110 =b:=0010000001000000; when 0111 =b:=0000100001000000; when 1000 =b:=0001000001000000; when 1001 =b:=0010000001000000; when 1010 =b:=1110000001000000; when 1011 =b:=0010000001000000; when 1100 =b:=0010000001001000; when 1101 =b:=0010111111111100; when 1110 =b:=0010000000000000; when 1111 =b:=0010000000000000; when others=null; END CASE;When 00001=CASE WEI is when 0000 =b:=0000000000000000; when 0001 =b:=0000000000000100; when 0010 =b:=1111111111111110; when 0011 =b:=0000010010000000; when 0100 =b:=0000010010000000; when 0101 =b:=0000010010000100; when 0110 =b:=0111111111111110; when 0111 =b:=0100010001000100; when 1000 =b:=0100010001000100; when 1001 =b:=0100010001000100; when 1010 =b:=0100010001000100; when 1011 =b:=0100100000110100; when 1100 =b:=0101000000000100; when 1101 =b:=0100000000000100; when 1110 =b:=0111111111111100; when 1111 =b:=0100000000000100; when others=null; END CASE;When 00010=CASE WEI is when 0000 =b:=0000000000001000; when 0001 =b:=0000011111111000; when 0010 =b:=1111101001001000; when 0011 =b:=0010001001001000; when 0100 =b:=0010011111111100; when 0101 =b:=0010001001001000; when 0110 =b:=1111101001001000; when 0111 =b:=0010001111111000; when 1000 =b:=0010000001000000; when 1001 =b:=0010000001010000; when 1010 =b:=0010001111111000; when 1011 =b:=0011110001000000; when 1100 =b:=1110000001000000; when 1101 =b:=0100000001000100; when 1110 =b:=0000111111111110; when 1111 =b:=0000000000000000; when others=null; END CASE;When 00011=CASE WEI is when 0000 =b:=0000000000000000; when 0001 =b:=0000000000001000; when 0010 =b:=0111111111111100; when 0011 =b:=0000000100000000; when 0100 =b:=0000000100000000; when 0101 =b:=0000000100000000; when 0110 =b:=0000000100000000; when 0111 =b:=0000000100000000; when 1000 =b:=0000000100000000; when 1001 =b:=0000000100000000; when 1010 =b:=0000000100000000; when 1011 =b:=0000000100000000; when 1100 =b:=0000000100000100; when 1101 =b:=1111111111111110; when 1110 =b:=0000000000000000; when 1111 =b:=0000000000000000; when others=null; END CASE;When 00100=CASE WEI is when 0000 =b:=0000000100000000; when 0001 =b:=0000000100000000; when 0010 =b:=0000000100000000; when 0011 =b:=0000000100000000; when 0100 =b:=0000000100000100; when 0101 =b:=1111111111111110; when 0110 =b:=0000000100000000; when 0111 =b:=0000001010000000; when 1000 =b:=0000001010000000; when 1001 =b:=0000001010000000; when 1010 =b:=0000001001000000; when 1011 =b:=0000001000010000; when 1100 =b:=0000100000010000; when 1101 =b:=0001000000001110; when 1110 =b:=0110000000000100; when 1111 =b:=0000000000000000; when others=null; END CASE;When 00101=CASE WEI is when 0000 =b:=0010001000001000; when 0001 =b:=0001000100001000; when 0010 =b:=0000000000000000; when 0011 =b:=0000000000100000; when 0100 =b:=0111111111111110; when 0101 =b:=0100000000000010; when 0110 =b:=1000000000000100; when 0111 =b:=0001111111100000; when 1000 =b:=0000000001000000; when 1001 =b:=0000000110000100; when 1010 =b:=1111111111111110; when 1011 =b:=0000000100000000; when 1100 =b:=0000000100000000; when 1101 =b:=0000000100000000; when 1110 =b:=0000010100000000; when 1111 =b:=0000001000000000; when others=null; END CASE;When 00110=CASE WEI is when 0000 =b:=0000001000000000; when 0001 =b:=0000000100000100; when 0010 =b:=0011111111111110; when 0011 =b:=0010000000000000; when 0100 =b:=0010000100000100; when 0101 =b:=0010100010000100; when 0110 =b:=0010010010000100; when 0111 =b:=0010010001001000; when 1000 =b:=0010001001001000; when 1001 =b:=0010001001001000; when 1010 =b:=0010001000010000; when 1011 =b:=0010001000010000; when 1100 =b:=0010000000100000; when 1101 =b:=0100000001000100; when 1110 =b:=1001111111111110; when 1111 =b:=1001111111111110; when others=null; END CASE;When 00111=CASE WEI is when 0000 =b:=0000000000001000; when 0001 =b:=0011111111111100; when 0010 =b:=0010000100001000; when 0011 =b:=0010000100001000; when 0100 =b:=0010000100001000; when 0101 =b:=0011111111111000; when 0110 =b:=0010000100001000; when 0111 =b:=0010000100001000; when 1000 =b:=0010000100001000; when 1001 =b:=0011111111111000; when 1010 =b:=0010000100001000; when 1011 =b:=0010000100001000; when 1100 =b:=0010000100001000; when 1101 =b:=0100000100001000; when 1110 =b:=0100000100101111; when 1111 =b:=1000000000010000; when others=null; END CASE; When 01000=CASE WEI is when 0000 =b:=0000010000010000; when 0001 =b:=0000111000010000; when 0010 =b:=1111100010010000; when 0011 =b:=0000100001010000; when 0100 =b:=0000100000010000; when 0101 =b:=1111111010010000; when 0110 =b:=0000100001010000; when 0111 =b:=0001110000010100; when 1000 =b:=0001101000011110; when 1001 =b:=0010100111110000; when 1010 =b:=0010100000010000; when 1011 =b:=0100100000010000; when 1100 =b:=1000100000010000; when 1101 =b:=0000100000010000; when 1110 =b:=0000100000010000; when 1111 =b:=0000100000010000; when others=null; END CASE; When01001=CASE WEI is when 0000 =b:=0010001000001000; when 0001 =b:=0001000100001000; when 0010 =b:=0001000100010000; when 0011 =b:=0000000000100000; when 0100 =b:=0111111111111110; when 0101 =b:=0100000000000010; when 0110 =b:=1000000000000100; when 0111 =b:=0001111111100000; when 1000 =b:=0000000001000000; when 1001 =b:=0000000110000100; when 1010 =b:=1111111111111110; when 1011 =b:=0000000100000000; when 1100 =b:=0000000100000000; when 1101 =b:=0000000100000000; when 1110 =b:=0000010100000000; when 1111 =b:=0000001000000000; when others=null; END CASE; When 01010=CASE WEI is when 0000 =b:=0010001000001000; when 0001 =b:=0001000100001000; when 0010 =b:=0001000100010000; when 0011 =b:=0000000000100000; when 0100 =b:=0111111111111110; when 0101 =b:=0100000000000010; when 0110 =b:=1000000000000100; when 0111 =b:=0001111111100000; when 1000 =b:=0000000001000000; when 1001 =b:=0000000110000100; when 1010 =b:=1111111111111110; when 1011 =b:=0000000100000000; when 1100 =b:=0000000100000000; when 1101 =b:=0000000100000000; when 1110 =b:=0000010100000000; when 1111 =b:=0000001000000000; when others=null; END CASE;When 01011=CASE WEI is when 0000 =b:=0000000010000000; when 0001 =b:=0111100001000000; when 0010 =b:=0100111111111110; when 0011 =b:=0101010000000010; when 0100 =b:=0101100000010100; when 0101 =b:=0110001111111000; when 0110 =b:=0101000000000000; when 0111 =b:=0100100000001000; when 1000 =b:=0100111111111100; when 1001 =b:=0100100010100000; when 1010 =b:=0110100010100000; when 1011 =b:=0101000010100000; when 1100 =b:=0100000100100010; when 1101 =b:=0100000100100010; when 1110 =b:=0100001000011110; when 1111 =b:=0100110000000000; when others=null; END CASE; When01100=CASE WEI is when 0000 =b:=0000000010000000; when 0001 =b:=0000000010000000; when 0010 =b:=1111110010000000; when 0011 =b:=0000010011111100; when 0100 =b:=0100010100000100; when 0101 =b:=0100011001001000; when 0110 =b:=0010100001000000; when 0111 =b:=0010100001000000; when 1000 =b:=0001000001000000; when 1001 =b:=0010100001000000; when 1010 =b:=0010010010100000; when 1011 =b:=0100010010100000; when 1100 =b:=1000000100010000; when 1101 =b:=0000000100001000; when 1110 =b:=0000001000001110; when 1111 =b:=0000110000000100; when others=null; END CASE; When01101=CASE WEI is when 0000 =b:=0000000000000000; when 0001 =b:=0100000110000100; when 0010 =b:=0010011001111110; when 0011 =b:=0001010001000100; when 0100 =b:=0000010001000100; when 0101 =b:=0000010001000100; when 0110 =b:=1111010001000100; when 0111 =b:=0001010011000100; when 1000 =b:=0001010101000100; when 1001 =b:=0001011001010100; when 1010 =b:=0001010001001000; when 1011 =b:=0001000001000000; when 1100 =b:=0001000001000000; when 1101 =b:=0010100001000110; when 1110 =b:=0100011111111100; when 1111 =b:=0000000000000000; when others=null; END CASE; When 01110=CASE WEI is when 0000 =b:=0000100100000000; when 0001 =b:=0000100100000000; when 0010 =b:=0001001111111100; when 0011 =b:=0001001000001000; when 0100 =b:=0011010001001000; when 0101 =b:=0101100101000000; when 0110 =b:=1001000101010000; when 0111 =b:=0001001001001100; when 1000 =b:=0001010001000100; when 1001 =b:=0001000101000000; when 1010 =b:=0010000100000000; when 1011 =b:=0000001000000000; when 1100 =b:=0101000110000100; when 1101 =b:=0101000010010010; when 1110 =b:=1001000000010010; when 1111 =b:=0000111111111000; when others=null; END CASE; When 01111=CASE WEI is when 0000 =b:=0000000000000000; when 0001 =b:=0000000110000000; when 0010 =b:=0000001111000000; when 0011 =b:=0000001111000000; when 0100 =b:=0000001111000000; when 0101 =b:=0000001111000000; when 0110 =b:=0000001111000000; when 0111 =b:=0000000110000000; when 1000 =b:=0000000110000000; when 1001 =b:=0000000110000000; when 1010 =b:=0000000000000000; when 1011 =b:=0000000110000000; when 1100 =b:=0000001111000000; when 1101 =b:=0000000110000000; when 1110 =b:=0000000000000000; when 1111 =b:=0000000000000000; when others=null; END CASE; When 10000=CASE WEI is when 0000 =b:=1011111111111111; when 0001 =b:=1100111111110111; when 0010 =b:=1110100000000011; when 0011 =b:=1111111110111111; when 0100 =b:=0111111110111111; when 0101 =b:=1001111110111111; when 0110 =b:=1101111110111111; when 0111 =b:=1111011110111