【正文】 ya=y1。 seg7(4)=seg7_temp(4) and clk1hz。支干道紅燈點亮 ga=g1 and not jin。end if。039。 r2=39。低位為4 a:=39。 end if。 a:=39。039。高位為2 ql:=0100。 end if。 g2=39。 y1=39。 then 狀態(tài)st2，主干道黃燈倒計時5秒 if a=39。 elsif ql=0 then 實現(xiàn)倒計時 ql:=1001。039。039。039。end process。beginif clk1khz39。139。分頻信號包括1khz和1hz signal one,ten:std_logic_vector(3 downto 0)。6mhz晶振時鐘 jin:in std_logic。在實現(xiàn)功能后發(fā)現(xiàn)A發(fā)球是15，B接球是2.如果B接到則B得分，反之。 when1000=seg7=11111110。 七段譯碼process(data)begincase data is when0000=seg7=11111100。scan=001。 then if t=3 then t=0。case b_score is when 0|1|2|3|4|5|6|7|8|9 =b_ten=0000。 when 4 =b_one=0100。case a_score is when 0|1|2|3|4|5|6|7|8|9 =a_ten=0000。 when 4 =a_one=0100。 end if。139。 elsif shift_1=0 then b_score=b_score+1。039。 elsif b=39。 b:=39。 a:=39。039。 and b=39。039。 and af=39。)。 then a_score=0。 else count:=count+1。 signal data:std_logic_vector(3 downto 0)。A方發(fā)球，A方擊球 bf,bj:in std_logic。解決問題的過程及方法數(shù)碼管不亮是因為試驗箱上的模式選擇沒有開啟。 when0111=seg7=11100000。end process。 when 101=scan=101。 when 001=scan=001。 tp7=0000。 tq7=tp7。 else tp1=tp1+1。 else tp5=tp5+1。 if tp7=1001 then tp7=0000。 then if clk_t=39。)。signal tq1,tq2,tq3,tq4,tq5,tq6,tq7,tq8:std_logic_vector(3 downto 0)。entity cpld isport(sysclk:in std_logic。end。 when0101=seg=10110110。 when others=null。 when 2= data=qml。 else t=t+1。 when 20|21|22|23 =qhh=0010。 when 6|16 =qhl=0110。end case。end case。 when 3|13|23|33|43|53 =qml=0011。 when 40|41|42|43|44|45|46|47|48|49 =qsh=0100。 when 8|18|28|38|48|58 =qsl=1000。秒計數(shù)的十進制轉BCD碼process(sec)begincase sec is when 0|10|20|30|40|50 =qsl=0000。 else hour=hour+1。min=0。記時process(clk1hz,clr,en,hour,min,sec)beginif en=39。event and clk=39。architecture one of cpld is signal qhh,qhl,qmh,qml,qsh,qsl:std_logic_vector(3 downto 0)。use 。 ，連接不上。產生按鍵標志位，用于存儲按鍵信息process(fn)begin按鍵信息存儲 if fn39。0 when others=seg7_1=00000000。when 11= case kbrow is when 0001= seg7_1=11110010。 dat=00110。9 when 1000= seg7_1=11111110。dat=11111。 dat=01111。end process。state=01。end if。 signal seg7_1:std_logic_vector(7 downto 0)。entity cpld isport(clk,start:in std_logic。when others=null。when 8=seg=11111110。7段譯碼process(data)begincase data iswhen 0=seg=11111100。data=0。data=0。event and clk=39。139。數(shù)碼管的數(shù)據(jù)顯示 signal data:integer range 0 to 15。 led1,led2:OUT STD_LOGIC。END PROCESS。when 10=seg=11101110。when 2=seg=11011010。data=0。data=0。 then t8=t8+1。139。k1)+k2+k3+k4+k5+k6+k7。 scan: OUT STD_LOGIC_VECTOR(2 DOWNTO 0))。END PROCESS。when 10=seg=11101110。when 2=seg=11011010。data=2。data=9。 then t8=t8+1。 seg: OUT STD_LOGIC_VECTOR(7 DOWNTO 0)。q=q1。 q1(3 DOWNTO 0)=q1(0)amp。 end if。q1=00011000。 else q1=q1(6 DOWNTO 0)amp。 t=t+1。 then case present iss0模式：從左到右逐個點亮LED when s0= if q1=00000000 then q1=10000000。139。ENTITY cpld IS PORT(clk,rst: IN std_logic。q=q1。 q1(3 DOWNTO 0)=q1(0)amp。 end if。q1=00011000。 else q1=q1(6 DOWNTO 0)amp。 t=t+1。 then case present iss0模式：從左到右逐個點亮LED when s0= if q1=00000000 then q1=10000000。139。ENTITY test53 IS PORT(clk,rst: IN std_logic。 q: OUT STD_LOGIC_VECTOR(7 DOWNTO 0))。 then present=s0。 elsif t=0111 then t=(others=39。 present=s0。q1(7)。present=s3。s3模式：從中間到兩邊逐個點亮LED when s3= if t=0111 then t=(others=39。q1(3 DOWNTO 1)。END ARCHITECTURE one 。 q: OUT STD_LOGIC_VECTOR(7 DOWNTO 0))。 then present=s0。 elsif t=0111 then t=(others=39。 present=s0。q1(7)。present=s3。s3模式：從中間到兩邊逐個點亮LEDd when s3= if t=0111 then t=(others=39。q1(3 DOWNTO 1)。END ARCHITECTURE cpld 。 scan: OUT STD_LOGIC_VECTOR(2 DOWNTO 0))。end if。when 3=scan=011。 when 7=scan=111。when 3=seg=11110010。when 11=seg=00111110。END ARCHITECTUR one；項目組成員分工賈彬編寫程序路清云，李丹運行程序賈彬在功能板上實現(xiàn)程序項目實施過程中遇到的困難不理解數(shù)碼管的顯示功能和引腳連接功能,解決問題的過程及方法通過學習ppt里面的內容總結與反思學會應用8段數(shù)碼管了，并實現(xiàn)了自己的學號。END test55。qy=conv_integer(q)。led2=39。end if。when 3=scan=011。when 7=scan=111。when 3=seg=11110010。when 11=seg=00111110。END ARCHITECTURE one 。 seg: OUT STD_LOGIC_VECTOR(7 DOWNTO 0)。BEGIN計票進程process(qy,qn,q)beginq=(00amp。else led1=39。139。when 2=scan=010。when 6=scan=110。when 1=seg=01100000。when 9=seg=11110110。end case。列掃描信號 kbrow:in std_logic_vector(3 downto 0)。 signal dat:std_logic_vector(4 downto 0)。end process。 when 10=kbcol=0100。列掃描譯碼process(clk,start)beginif start=39。F when 0010= seg7_1=10011110。 end case。 dat=01000。6 when 0100= seg7_1=10110110。 dat=00011。dat=11111。event and fn=39。 ，不理解4*4鍵盤實現(xiàn)的理解，通過對十六進制與二進制的轉換便可改變它的值。use 。 signal data:std_logic_vector(3 downto 0)。139。139。sec=0。end if。 when 1|11|21|31|41|51 =qsl=0001。 when 9|19|29|39|49|59 =qsl=1001。 when 50|51|52|53|54|55|56|57|58|59 =qsh=0101。 when 4|14|24|34|44|54 =qml=0100。case min is when 0|1|2|3|4|5|6|7|8|9 =qmh=0000。end process。 when 7|17 =qhl=0111。 when others=null。 end if。scan=010。end case。 when0110=seg=10111110。項目組成員分工李丹，賈彬編寫程序路清云檢查程序賈彬運行程序并實現(xiàn)項目實施過程中遇到的困難在實施時不了解程序的原理，看不懂如何使用。12mhz 時鐘輸入 clkin:in std_logic。signal dat:std_logic_vector(3 downto 0)。 else t=t+1。139。