【正文】 ull。end case。 when 7|17 =qhl=0111。 when 3|13|23 =qhl=0011。end process。 when 40|41|42|43|44|45|46|47|48|49 =qmh=0100。case min is when 0|1|2|3|4|5|6|7|8|9 =qmh=0000。 when 8|18|28|38|48|58 =qml=1000。 when 4|14|24|34|44|54 =qml=0100。分計數(shù)的十進制轉(zhuǎn)BCD碼process(min)begincase min is when 0|10|20|30|40|50 =qml=0000。 when 50|51|52|53|54|55|56|57|58|59 =qsh=0101。 when 10|11|12|13|14|15|16|17|18|19 =qsh=0001。 when 9|19|29|39|49|59 =qsl=1001。 when 5|15|25|35|45|55 =qsl=0101。 when 1|11|21|31|41|51 =qsl=0001。end if。end if。 then if sec=59 then sec=0。sec=0。elsif clr=39。139。 end if。139。 signal hour:integer range 0 to 23。 signal data:std_logic_vector(3 downto 0)。暫停 seg:out std_logic_vector(7 downto 0)。use ?？偨Y(jié)與反思*4鍵盤控制電路設(shè)計中，當(dāng)中程序有很多問題，認真檢查了程序，然后改正，讓其正常運行，實現(xiàn)功能。 ，不理解4*4鍵盤實現(xiàn)的理解，通過對十六進制與二進制的轉(zhuǎn)換便可改變它的值。end process。event and fn=39。end if。dat=11111。 dat=00001。 dat=00011。4 when others=seg7_1=00000000。6 when 0100= seg7_1=10110110。 when 10= case kbrow is when 0001= seg7_1=11100000。 dat=01000。 dat=01010。 end case。D when 1000= seg7_1=10011100。F when 0010= seg7_1=10011110。event and clk=39。列掃描譯碼process(clk,start)beginif start=39。 when others=kbcol=1111。 when 10=kbcol=0100。 then case count is when 00=kbcol=0001。end process。event and clk=39。 signal dat:std_logic_vector(4 downto 0)。end cpld。列掃描信號 kbrow:in std_logic_vector(3 downto 0)。編號（006）項目名稱4*4鍵盤控制電路項目組成員賈彬 李丹 路清云項目內(nèi)容library ieee。end case。when 13=seg=01111010。when 9=seg=11110110。when 5=seg=10110110。when 1=seg=01100000。when others=null。when 6=scan=110。when 4=scan=100。when 2=scan=010。數(shù)碼管地址掃描PROCESS(t8)BEGINcase t8 iswhen 0=scan=000。139。end if。else led1=39。if qy7 then led1=39。BEGIN計票進程process(qy,qn,q)beginq=(00amp。贊成票的十進制計數(shù)器 signal qy:integer range 0 to 14。 seg: OUT STD_LOGIC_VECTOR(7 DOWNTO 0)。USE 。END ARCHITECTURE one 。when 15=seg=10001110。when 11=seg=00111110。when 7=seg=11100000。when 3=seg=11110010。END PROCESS。when 7=scan=111。when 5=scan=101。when 3=scan=011。when 1=scan=001。end if。掃描數(shù)碼管地址的計數(shù)進程PROCESS(clk)BEGINif clk39。led2=39。led2=39。qy=conv_integer(q)。掃描數(shù)碼管地址的計數(shù)器 signal t8:integer range 0 to 7。END test55。ENTITY test55 IS PORT(clk,k1,k2,k3,k4,k5,k6,k7: IN std_logic。END ARCHITECTUR one；項目組成員分工賈彬編寫程序路清云，李丹運行程序賈彬在功能板上實現(xiàn)程序項目實施過程中遇到的困難不理解數(shù)碼管的顯示功能和引腳連接功能,解決問題的過程及方法通過學(xué)習(xí)ppt里面的內(nèi)容總結(jié)與反思學(xué)會應(yīng)用8段數(shù)碼管了，并實現(xiàn)了自己的學(xué)號。when 15=seg=10001110。when 11=seg=00111110。when 7=seg=11100000。when 3=seg=11110010。END PROCESS。 when 7=scan=111。 when 5=scan=101。when 3=scan=011。when 1=scan=001。end if。BEGINPROCESS(clk)BEGINif clk39。 scan: OUT STD_LOGIC_VECTOR(2 DOWNTO 0))。USE 。END ARCHITECTURE cpld 。 end case。q1(3 DOWNTO 1)。present=s0。s3模式：從中間到兩邊逐個點亮LEDd when s3= if t=0111 then t=(others=39。q1(3)。present=s3。s2模式：從兩邊到中間逐個點亮LED when s2= if t=0111 then t=(others=39。q1(7)。)。 present=s0。 present=s1。 elsif t=0111 then t=(others=39。elsif clk39。 then present=s0。 signal q1:STD_LOGIC_VECTOR(7 DOWNTO 0)。 q: OUT STD_LOGIC_VECTOR(7 DOWNTO 0))。編號（002）項目名稱16燈跑馬燈項目組成員賈彬 李丹 路清云項目內(nèi)容LIBRARY IEEE。END ARCHITECTURE one 。 end case。q1(3 DOWNTO 1)。present=s0。s3模式：從中間到兩邊逐個點亮LED when s3= if t=0111 then t=(others=39。q1(3)。present=s3。s2模式：從兩邊到中間逐個點亮LED when s2= if t=0111 then t=(others=39。q1(7)。)。 present=s0。 present=s1。 elsif t=0111 then t=(others=39。elsif clk39。 then present=s0。 signal q1:STD_LOGIC_VECTOR(7 DOWNTO 0)。 q: OUT STD_LOGIC_VECTOR(7 DOWNTO 0))。. . . .. .陜西國防工業(yè)職業(yè)技術(shù)學(xué)院實訓(xùn)報告科 目 CPLD技術(shù)實訓(xùn) 班 級 dz5081 姓 名 賈彬 李丹 路清云 學(xué) 號 10 28 11 指導(dǎo)教師 李想 許燕 2012年05月28日目 錄一、項目記錄卡1) 8燈跑馬燈 22) 16燈跑馬燈 53) 8位數(shù)碼掃描顯示電路 84) 7人表決器 105) 14人表決器 136) 4*4鍵盤控制電路 167) 簡單時鐘 198) 數(shù)字頻率計 259) 乒乓游戲機 2910) 交通燈 34二、實訓(xùn)總結(jié) 41CPLD技術(shù)實訓(xùn)項目記錄卡編號（001）項目名稱8燈跑馬燈項目組成員賈彬 李丹 路清云項目內(nèi)容LIBRARY IEEE。ENTITY test53 IS PORT(clk,rst: IN std_logic。 signal present:states。139。)。 then case present iss0模式：從左到右逐個點亮LED when s0= if q1=00000000 then q1=10000000。 q1=00000001。 t=t+1。039。 else q1=q1(6 DOWNTO 0)amp。 end if。q1=00011000。 q1(3 DOWNTO 0)=q1(2 DOWNTO 0)amp。 end if。q1=10000000。 q1(3 DOWNTO 0)=q1(0)amp。 end if。q=q1?？偨Y(jié)與反思Eda功能板很強大，可以講理論與實踐很好的結(jié)合。ENTITY cpld IS PORT(clk,rst: IN std_logic。 signal present:states。139。)。 then case present iss0模式：從左到右逐個點亮LED when s0= if q1=00000000 then q1=10000000。 q1=00000001。 t=t+1。039。 else q1=q1(6 DOWNTO 0)amp。 end if。q1=00011000。 q1(3 DOWNTO 0)=q1(2 DOWNTO 0)amp。 end if。q1=10000000。 q1(3 DOWNTO 0)=q1(0)amp。 end if。q=q1。編號（003）項目名稱8位數(shù)碼掃描顯示電路項目組成員賈彬 李丹 路清云項目內(nèi)容LIBRARY IEEE。 seg: OUT STD_LOGIC_VECTOR(7 DOWNTO 0)。數(shù)碼管的數(shù)據(jù)顯示 signal data:integer range 0 to 15。 then t8=t8+1。data=15。data=9。data=5。data=2。end case。when 2=seg=11011010。when 6=seg=10111110。when 10=seg=11101110。when 14=seg=10011110。END PROCESS。USE 。 scan: OUT STD_LOGIC_VECTOR(2 DOWNTO 0))。反對票的十進制計數(shù)器 signal qn:integer range 0 to 。k1)+k2+k3+k4+k5+k6+k7。039。139。END PROCESS。 then t8=t8+1。data=qn。data=0。data=0。data=0。end case。when 2=seg