【正文】 if tp8=1001 then tp8=0000。end if。end if。 tq8=tp8。 tp8=0000。dat=tq2。dat=tq6。數(shù)碼管顯示譯碼process(dat)begincase dat is when0000=seg7=11111100。 when1000=seg7=11111110。總結(jié)與反思這個實驗做完后，我了解了試驗箱上的模式選擇功能，并學(xué)會了使用，實驗的要求是為了讓我們了解頻率的檢測。B方發(fā)球，B方擊球 shift:out std_logic_vector(15 downto 0)。 signal a_one,a_ten,b_one,b_ten:std_logic_vector(3 downto 0)。 end if。 b_score=0。elsif clk1_2hz39。139。 and bf=39。039。 shift_1:=0000000000000000。039。139。139。 b:=39。如果b一直沒接球則a加分 a:=39。 b:=39。end if。 when 5 =a_one=0101。 when 10|11=a_ten=0001。 when 5 =b_one=0101。 when 10|11=b_ten=0001。 else t=t+1。 when 2= data=a_one。 when0001=seg7=01100000。 when1001=seg7=11110110。B發(fā)球是1，A接球是16. 如果A接到則A得分，反之。禁止通行信號 scan:out std_logic_vector(2 downto 0)。倒計時的個位和十位 signal t:std_logic_vector(1 downto 0)。 then if count=2999 then clk1khz=not clk1khz。event and clk1khz=39。 交通狀態(tài)轉(zhuǎn)換process(clk1hz) variable stx:states。 then狀態(tài)st1，主干道通行35秒 if a=39。 y1=39。 g2=39。 qh:=qh1。039。139。039。 end if。低位為4 a:=39。 r2=39。039。 end if。139。039。 qh:=0000。 one=ql。 gb=g2 and not jin。 seg7(5)=seg7_temp(5) and clk1hz。 yb=y2。 gb=g2。 seg7(3)=seg7_temp(3) and clk1hz。主干道紅燈點亮 rb=r2 or jin。end case。 a:=39。039。高位為0 ql:=0100。 end if。支干道綠燈點亮 else if qh=0 and ql=1 then 如果倒計時結(jié)束則轉(zhuǎn)到st4狀態(tài) stx:=st4。 g1=39。 then qh:=0010。 else ql:=ql1。039。039。039。 ql:=0000。支干道紅燈亮 y2=39。 r1=39。 thencase stx iswhen st1=if jin=39。end if。1hz分頻process(clk1khz) variable count:integer range 0 to 499。event and clk=39。四種狀態(tài) signal clk1khz,clk1hz:std_logic。entity cpld isport(clk:in std_logic。項目組成員分工賈彬編程賈彬調(diào)試賈彬在功能板上實現(xiàn)程序項目實施過程中遇到的困難程序讀不懂，沒有理解那一個是A和B，沒有看清楚程序。 when0111=seg7=11100000。end process。 when 1= data=b_ten。139。end case。 when 3 =b_one=0011。end case。 when 3 =a_one=0011。 end if。 then 如果b擊球成功則a的控制位置1，b的控制位清0 a:=39。 end if。如果沒到球網(wǎng)a擊球則b加分 a:=39。 end if。039。 elsif shift_1=0 then如果b一直沒接球則a加分 a_score=a_score+1。b:=39。139。 and b=39。039。039。139。count:=0。 signal t:integer range 0 to 3。系統(tǒng)復(fù)位 af,aj:in std_logic。項目組成員分工李丹，賈彬編寫程序路清云檢查程序賈彬運行程序并實現(xiàn)項目實施過程中遇到的困難當(dāng)一切都準備好的時候，數(shù)碼顯示管卻不亮，在對程序的檢查中也沒有發(fā)現(xiàn)錯誤。 when0110=seg7=10111110。end case。dat=tq5。dat=tq1。 tp6=0000。 tq6=tp6。end if。end if。 if tp6=1001 then tp6=0000。139。039。signal tp1,tp2,tp3,tp4,tp5,tp6,tp7,tp8:std_logic_vector(3 downto 0)。use 。end process。 when0100=seg=01100110。scan=101。scan=001。 then if t=5 then t=0。 when 10|11|12|13|14|15|16|17|18|19 =qhh=0001。 when 5|15 =qhl=0101。 when others=null。 when others=null。 when 2|12|22|32|42|52 =qml=0010。 when 30|31|32|33|34|35|36|37|38|39 =qsh=0011。 when 7|17|27|37|47|57 =qsl=0111。end process。 if hour=23 then hour=0。 then hour=0。end process。beginif clk39。數(shù)碼管掃描信號end。編號（007）項目名稱簡單時鐘項目組成員賈彬 李丹 路清云項目內(nèi)容library ieee。李丹編寫程序路清云運行程序賈彬改寫程序并在功能板上實現(xiàn)程序項目實施過程中遇到的困難，程序出錯。fn=not(dat(0)and dat(1)and dat(2)and dat(3)and dat(4))。 dat=00000。 end case。7 when 0010= seg7_1=10111110。 dat=01001。C when others=seg7_1=00000000。 then case state is when 00= case kbrow is when 0001= seg7_1=10001110。end if。 when 01=kbcol=0010。 then count=count+1。 signal state:std_logic_vector(1 downto 0)。use 。when 15=seg=10001110。when 7=seg=11100000。END PROCESS。when 5=scan=101。when 1=scan=001。掃描數(shù)碼管地址的計數(shù)進程PROCESS(clk)BEGINif clk39。led2=39。掃描數(shù)碼管地址的計數(shù)器 signal t8:integer range 0 to 7。ENTITY test55 IS PORT(clk,k1,k2,k3,k4,k5,k6,k7,k8,k9,k10,k11,k12,k13,k14: IN std_logic。end case。when 9=seg=11110110。when 1=seg=01100000。when 6=scan=110。when 2=scan=010。139。else led1=39。BEGIN計票進程process(qy,qn,q)beginq=(000amp。 seg: OUT STD_LOGIC_VECTOR(7 DOWNTO 0)。end case。when 9=seg=11110110。when 1=seg=01100000。when 6=scan=110。when 2=scan=010。139。ENTITY cpld IS PORT(clk: IN std_logic。END PROCESS。q1(7)。 present=s2。)。 present=s2。q1(7 DOWNTO 1)。139。BEGINPROCESS(clk,rst)BEGIN系統(tǒng)復(fù)位if rst=39。USE 。END PROCESS。q1(7)。 present=s2。)。 present=s2。q1(7 DOWNTO 1)。139。BEGINPROCESS(clk,rst)BEGIN系統(tǒng)復(fù)位if rst=39。USE 。END test53。q1=(others=39。039。 end if。 t=t+1。 else q1(7 DOWNTO 4)=q1(4)amp。039。 t=t+1。項目組成員分工賈彬編程賈彬調(diào)試賈彬在功能板上實現(xiàn)程序項目實施過程中遇到的困難第一次接觸eda功能板不了解內(nèi)部原理，功能板和編譯好的程序沒有辦法匹配。END cpld。q1=(others=39。039。 end if。 t=t+1。 else q1(7 DOWNTO 4)=q1(4)amp。039。 t=t+1。項目組成員分工賈彬編程，調(diào)試李丹，路清云檢查程序賈彬在功能板上實現(xiàn)程序項目實施過程中遇到的困難Led燈的顯示頻率太快解決問題的過程及方法講頻率的范圍值改變。END cpld。END PROCESS。data=7。data=1。when 4=seg=01100110。when 12=seg=10011100。編號（004）項目名稱7人表決器項目組成員賈彬 李丹 路清云項目內(nèi)容LIBRARY IEEE。ARCHITECTURE one OF test55 IS贊成票的二進制計數(shù)器 signal q:STD_LOGIC_VECTOR(3 DOWNTO 0)。qn=7qy。039。END PROCESS。data=0。data=qy。when 4=seg=01100110。when 12=seg=10011100。項目組成員分工李丹編寫程序李丹運行程序賈彬改寫程序并在功能板上實現(xiàn)程序項目實施過程中遇到的困難沒有理解程序，不會使用表決器解決問題的過程及方法了解程序后，一切很容易就化解了。 scan: OUT STD_LOGIC_VECTOR(2 DOWNTO 0))