【正文】 001100010000011100000011000000,100000010011110010000001011111101000000)。shuzu1=( 39*8賦值10000001,11000011,10100101,10011001,10000001,10000001,10000001,10000001,00111100,00011000,00011000,00011000,00011000,00011000,00011000,00111100,10000001,11000001,10100001,10010001,10001001,10000101,10000011,10000001,01111110,10000001,10000000,10000000,10001111,10001001,10000001,01111110,10000001,11000011,10100101,10011001,10000001,10000001,10000001)。shuzu2=(00111100, 8*8賦值01111110, 11111111, 10011001, 11111111, 11011011, 01100110, 00111100 )。process(t8)control row vector begin CASE t8 IS 控制每一行能夠亮的時(shí)刻 when 0 =row=01111111。 when 1 =row=10111111。 when 2 =row=11011111。 when 3 =row=11101111。 when 4 =row=11110111。 when 5 =row=11111011。 when 6 =row=11111101。 when 7 =row=11111110。 when others =row=11111111。 end case。 end process 。process(change,swt,pwm5,pwm2) control move color begin case change is 根據(jù)變色狀態(tài)計(jì)數(shù)器值的不同，使tchange1和tchange2成為不同占空比的波，分別控制colr、colg點(diǎn)亮?xí)r長 when 0=tchange1=39。139。tchange2=39。039。 when 1=tchange1=pwm5。tchange2=pwm2。 when 2=tchange1=pwm2。tchange2=pwm5。 when 3=tchange1=39。039。tchange2=39。139。 when others = tchange1=39。139。tchange2=39。039。 end case。 end process。 process(t4,pwm1,pwm3,pwm5) control light begin case t4 is 根據(jù)t4記錄的按鍵次數(shù)，使pwm成為占空比不同的波，控制固定圖形的4級(jí)亮度 when 0= pwm=pwm1。 when 1= pwm=pwm3。 when 2= pwm=pwm5。 when 3= pwm=39。139。 when others = pwm=39。139。 end case。 end process。 process(t8,t4,swt,pwm,pwm1,pwm2,pwm3,pwm4,pwm5,pwm6,move,move1,tchange1,tchange2,shuzu,shuzu1,shuzu2)function 1 begin if swt=00 then function one 四級(jí)亮度 colg=00000000。 if pwm=39。139。 then case t8 is when 0 = colr = shuzu2(7)。 when 1 = colr = shuzu2(6)。 when 2 = colr = shuzu2(5)。 when 3 = colr = shuzu2(4)。 when 4 = colr = shuzu2(3)。 when 5 = colr = shuzu2(2)。 when 6 = colr = shuzu2(1)。 when 7 = colr = shuzu2(0)。 when others = colr = 00000000。 end case。 else colr=00000000。 end if。 end if。 if swt=01 then function 2 colr,colg 八級(jí)漸變色 CASE t8 IS when 0 =colr=shuzu2(7)。 colg=00000000。 when 1 = if pwm6=39。139。 then colr=shuzu2(6)。else colr=00000000。end if。 if pwm1=39。139。 then colg=shuzu2(6)。else colg=00000000。end if。 when 2 = if pwm5=39。139。 then colr=shuzu2(5)。else colr=00000000。end if。 if pwm2=39。139。 then colg=shuzu2(5)。else colg=00000000。end if。 when 3 = if pwm4=39。139。 then colr=shuzu2(4)。else colr=00000000。end if。 if pwm3=39。139。 then colg=shuzu2(4)。else colg=00000000。end if。 when 4 = if pwm3=39。139。 then colr=shuzu2(3)。else colr=00000000。end if。 if pwm4=39。139。 then colg=shuzu2(3)。else colg=00000000。end if。 when 5 = if pwm2=39。139。 then colr=shuzu2(2)。else colr=00000000。end if。 if pwm5=39。139。 then colg=shuzu2(2)。else colg=00000000。end if。 when 6 = if pwm1=39。139。 then colr=shuzu2(1)。else colr=00000000。end if。 if pwm6=39。139。 then colg=shuzu2(1)。else colg=00000000。end if。 when 7 =colr=00000000。 colg=shuzu2(0)。 when others =colr=00000000。colg=00000000。 end case。 end if。 if swt=10 or swt=11 then function three ,four 功能三四使用相同的譯碼部分，不同點(diǎn)在于變色計(jì)數(shù)器的驅(qū)動(dòng)時(shí)鐘不同。功能三中，變色時(shí)鐘是btn，每按鍵一次，可改變一種顏色；功能四中，變色時(shí)鐘是低頻、高頻時(shí)鐘，自動(dòng)變色。 case t4 is when 0= threeone 單字循環(huán) colg=00000000。colr=00000000。 if tchange1=39。139。 then case t8 is 紅色 when 0 = colr = shuzu(7)((388*move1) downto (318*move1))。 when 1 = colr = shuzu(6)((388*move1) downto (318*move1))。 when 2 = colr = shuzu(5)((388*move1) downto (318*move1))。 when 3 = colr = shuzu(4)((388*move1) downto (318*move1))。 when 4 = colr = shuzu(3)((388*move1) downto (318*move1))。 when 5 = colr = shuzu(2)((388*move1) downto (318*move1))。 when 6 = colr = shuzu(1)((388*move1) downto (318*move1))。 when 7 = colr = shuzu(0)((388*move1) downto (318*move1))。 when others = colr = 00000000。 end case。 end if。 if tchange2=39。139。 then case t8 is 綠色 when 0 = colg = shuzu(7)((388*move1) downto (318*move1))。 when 1 = colg = shuzu(6)((388*move1) downto (318*move1))。 when 2 = colg = shuzu(5)((388*move1) downto (318*move1))。 when 3 = colg = shuzu(4)((388*move1) downto (318*move1))。 when 4 = colg = shuzu(3)((388*move1) downto (318*move1))。 when 5 = colg = shuzu(2)((388*move1) downto (318*move1))。 when 6 = colg = shuzu(1)((388*move1) downto (318*move1))。 when 7 = colg = shuzu(0)((388*move1) downto (318*move1))。 when others = colr = 00000000。 end case。 end if。 when 1= threetwo 左右滾動(dòng) colg=00000000。colr=00000000。 if tchange1=39。139。 then case t8 is –紅色 when 0 = colr = shuzu(7)(38move downto 31move)。 when 1 = colr = shuzu(6)(38move downto 31move)。 when 2 = colr = shuzu(5)(38move downto 31move)。 when 3 = colr = shuzu(4)(38move downto 31move)。 when 4 = colr = shuzu(3)(38move downto 31move)。 when 5 = colr = shuzu(2)(38move downto 31move)。 when 6 = colr = shuzu(1)(38move downto 31move)。 when 7 = c