【正文】 then case t is when 0 = scan = 00000。 when 1 = scan = 00001。 when 2 = scan = 00010。 when 3 = scan = 00011。 when 4 = scan = 00100。 when 5 = scan = 00101。 when 6 = scan = 00110。 when 7 = scan = 00111。 when 8 = scan = 01000。 when 9 = scan = 01001。 when 10 = scan = 01010。 when 11 = scan = 01011。 when 12 = scan = 01100。 when 13 = scan = 01101。 when 14 = scan = 01110。 when 15 = scan = 01111。 when 16 = scan = 10000。 when 17 = scan = 10001。 when 18 = scan = 10010。 when 19 = scan = 10011。 when 20 = scan = 10100。 when 21 = scan = 10101。 when 22 = scan = 10110。 when 23 = scan = 10111。 when 24 = scan = 11000。 when 25 = scan = 11001。 when 26 = scan = 11010。 when 27 = scan = 11011。 when 28 = scan = 11100。 when 29 = scan = 11101。 when 30 = scan = 11110。 when 31 = scan = 11111。 when others = scan = ZZZZZ。 end case。 end if。 end process。 process(reset_n,clk_scan,flag_scan) tx,x的控制 variable tx:integer range 0 to 50。 begin if(reset_n=39。039。)then tx:=0。 x=0。 elsif(rising_edge(clk_scan))then if(flag_scan=39。139。)then if(tx=n*8 or tx=tx39。high)then tx:=0。 else tx:=tx+1。 end if。 if(tx=n*8)then if(x=x39。high)then x=0。 else x=x+1。 end if。 end if。 end if。 end if。 end process。 process(reset_n,clk_scan,t,x) 輸出列數(shù)據(jù)data variable index:integer range 0 to L_SZ。 begin if(reset_n=39。039。)then data=0000000000000000。 elsif(rising_edge(clk_scan))then index:=((t+x) mod L_SZ)。 data=ledsj(index)。 end if。 end process。 process(reset_n,clk_scan,key1,key2) n的控制 variable flag_key:std_logic。 begin if(reset_n=39。039。)then n=3。 初始化n為3（每3/10秒，移動一格） flag_key:=39。039。 elsif(rising_edge(clk_scan))then if(key1=39。039。)then key1的優(yōu)先級比key2高，key1=0表示按下if(flag_key=39。039。)then flag_key=0表示上次掃描鍵盤的時候無按鍵按下 flag_key:=39。139。 if(n=n39。high)then n=n。 else n=n+1。 end if。 end if。 elsif(key2=39。039。)then if(flag_key=39。039。)then flag_key:=39。139。 if(n=0)then n=n。 else n=n1。 end if。 end if。 else flag_key:=39。039。 end if。 end if。 end process。 process(reset_n,n,clk_scan) begin if(reset_n=39。039。)then dis_n=0110011。 elsif(rising_edge(clk_scan))then case n is when 7=dis_n=1111110。 when 6=dis_n=0110000。 when 5=dis_n=1101101。 when 4=dis_n=1111001。 when 3=dis_n=0110011。 when 2=dis_n=1011011。 when 1=dis_n=0011111。 when 0=dis_n=1110000。 when others=dis_n=0000000。 end case。 end if。 end process。 end abc。按鍵消抖模塊程序：library ieee。use 。use 。use 。entity keyscan isport( clk_key:in std_logic。 reset_n:in std_logic。 key1_in,key2_in:in std_logic。 按下時為低電平 key1_out,key2_out:out std_logic)。end keyscan。architecture abc of keyscan isbeginkey1的產(chǎn)生（消鍵抖動） process(reset_n,clk_key,key1_in) variable temp1:std_logic。 variable t1:integer range 0 to 15。 begin if(reset_n=39。039。)then key1_out=39。139。 高電平表示沒有按下 elsif(rising_edge(clk_key))then if(temp1=key1_in)then if(t1=t139。high)then t1:=0。 key1_out=temp1。 else t1:=t1+1。 end if。 else temp1:=key1_in。 t1:=0。 end if。 end if。 end process。 key2的產(chǎn)生（消鍵抖動） process(reset_n,clk_key,key2_in) variable temp2:std_logic。 variable t2:integer range 0 to 15。 begin if(reset_n=39。039。)then key2_out=39。139。 elsif(rising_edge(clk_key))then if(temp2=key2_in)then if(t2=t239。high)then t2:=0。 key2_out=temp2。 else t2:=t2+1。 end if。 else temp2:=key2_in。 t2:=0。 end if。 end if。 end process。 end a