【正文】 std_logic_vector(2 downto 0))。end if。 if min=59 then min=0。 when 6|16|26|36|46|56 =qsl=0110。 when 1|11|21|31|41|51 =qml=0001。 when 50|51|52|53|54|55|56|57|58|59 =qmh=0101。case hour is when 0|1|2|3|4|5|6|7|8|9 =qhh=0000。 when 1= data=qsh。 when0011=seg=11110010。use 。t=(others=39。 if tp5=1001 then tp5=0000。 else tp2=tp2+1。 tp5=0000。 when 100=scan=100。 when0101=seg7=10110110。1khz時鐘信號 rst:in std_logic。 then if count=2 then clk1_2hz=not clk1_2hz。 shift_1:=(others=39。039。039。 then如果b擊球成功則b的控制位置1，a的控制位清0 a:=39。 then b_score=b_score+1。139。 when 2 =a_one=0010。 when 2 =b_one=0010。event and clk1khz=39。end case。end。architecture one of cpld is type states is(st1,st2,st3,st4)。end process。139。139。when st2=if jin=39。支干道紅燈點(diǎn)亮 y2=39。039。139。 then qh:=0000。 else if ql=1 then 如果倒計時結(jié)束則轉(zhuǎn)到st1狀態(tài) stx:=st1。 then ra=r1 or jin。 ga=g1。 seg7(6)=seg7_temp(6) and clk1hz。ten=qh。 y2=39。when st4=if jin=39。039。 end if。主干道黃燈點(diǎn)亮 g1=39。 else ql:=ql1。039。 variable a:std_logic。count:=0。數(shù)碼管地址選擇信號 seg7:out std_logic_vector(7 downto 0)。 when others=seg7=10011110。scan=100。 when others=null。 when others=null。 shift=shift_1。039。 and a=39。b:=39。 then 球從a向b移動 if shift_1128 then如果沒到球網(wǎng)b擊球則a加分 if bj=39。 then 如果a發(fā)球 a:=39。 a:=39。begin2Hz分頻process(clk1khz) variable count:integer range 0 to 2。編號（009）項目名稱乒乓游戲機(jī)項目組成員賈彬 李丹 路清云項目內(nèi)容library ieee。 when0001=seg7=01100000。 when 010=scan=010。 tp1=0000。 else tp4=tp4+1。 then if tp1=1001 then tp1=0000。beginprocess(sysclk)beginif sysclk39。 解決問題的過程及方法看過書之后懂得了接線和如何使用。end process。end if。 when 8|18 =qhl=1000。 when 10|11|12|13|14|15|16|17|18|19 =qmh=0001。 when others=null。 when 2|12|22|32|42|52 =qsl=0010。elsif clk1hz39。 then if count=511 then clk1hz=not clk1hz。entity cpld isport(clk:in std_logic。139。3 when 0010= seg7_1=11011010。8 when others=seg7_1=00000000。 dat=01110。state=10。 signal fn:std_logic。END PROCESS；END ARCHITECTURE one；項目組成員分工李丹，賈彬編寫程序路清云運(yùn)行程序賈彬改寫程序并在功能板上實(shí)現(xiàn)程序項目實(shí)施過程中遇到的困難沒有理解程序，不會使用表決器解決問題的過程及方法了解程序后，一切很容易就化解了。when 2=seg=11011010。data=0。139。 scan: OUT STD_LOGIC_VECTOR(2 DOWNTO 0))。when 12=seg=10011100。data=qy。END PROCESS。qn=7qy。編號（004）項目名稱7人表決器項目組成員賈彬 李丹 路清云項目內(nèi)容LIBRARY IEEE。when 4=seg=01100110。data=7。END cpld。 t=t+1。 else q1(7 DOWNTO 4)=q1(4)amp。 end if。q1=(others=39。項目組成員分工賈彬編程賈彬調(diào)試賈彬在功能板上實(shí)現(xiàn)程序項目實(shí)施過程中遇到的困難第一次接觸eda功能板不了解內(nèi)部原理，功能板和編譯好的程序沒有辦法匹配。039。 t=t+1。039。END test53。BEGINPROCESS(clk,rst)BEGIN系統(tǒng)復(fù)位if rst=39。q1(7 DOWNTO 1)。)。q1(7)。USE 。139。 present=s2。 present=s2。END PROCESS。139。when 6=scan=110。when 9=seg=11110110。 seg: OUT STD_LOGIC_VECTOR(7 DOWNTO 0)。else led1=39。when 2=scan=010。when 1=seg=01100000。end case。掃描數(shù)碼管地址的計數(shù)器 signal t8:integer range 0 to 7。掃描數(shù)碼管地址的計數(shù)進(jìn)程PROCESS(clk)BEGINif clk39。when 5=scan=101。when 7=seg=11100000。use 。 then count=count+1。end if。C when others=seg7_1=00000000。7 when 0010= seg7_1=10111110。 dat=00000。李丹編寫程序路清云運(yùn)行程序賈彬改寫程序并在功能板上實(shí)現(xiàn)程序項目實(shí)施過程中遇到的困難，程序出錯。數(shù)碼管掃描信號end。end process。 if hour=23 then hour=0。 when 7|17|27|37|47|57 =qsl=0111。 when 2|12|22|32|42|52 =qml=0010。 when others=null。 when 10|11|12|13|14|15|16|17|18|19 =qhh=0001。scan=001。 when0100=seg=01100110。use 。039。 if tp6=1001 then tp6=0000。end if。 tp6=0000。dat=tq5。 when0110=seg7=10111110。系統(tǒng)復(fù)位 af,aj:in std_logic。count:=0。039。 and b=39。b:=39。039。如果沒到球網(wǎng)a擊球則b加分 a:=39。 then 如果b擊球成功則a的控制位置1，b的控制位清0 a:=39。 when 3 =a_one=0011。 when 3 =b_one=0011。139。end process。項目組成員分工賈彬編程賈彬調(diào)試賈彬在功能板上實(shí)現(xiàn)程序項目實(shí)施過程中遇到的困難程序讀不懂，沒有理解那一個是A和B，沒有看清楚程序。四種狀態(tài) signal clk1khz,clk1hz:std_logic。1hz分頻process(clk1khz) variable count:integer range 0 to 499。 thencase stx iswhen st1=if jin=39。支干道紅燈亮 y2=39。039。039。 then qh:=0010。支干道綠燈點(diǎn)亮 else if qh=0 and ql=1 then 如果倒計時結(jié)束則轉(zhuǎn)到st4狀態(tài) stx:=st4。高位為0 ql:=0100。 a:=39。主干道紅燈點(diǎn)亮 rb=r2 or jin。 gb=g2。 seg7(5)=seg7_temp(5) and clk1hz。 one=ql。039。 end if。 r2=39。 end if。139。 qh:=qh1。 y1=39。 交通狀態(tài)轉(zhuǎn)換process(clk1hz) variable stx:states。 then if count=2999 then clk1khz=not clk1khz。禁止通行信號 scan:out std_logic_vector(2 downto 0)。 when1001=seg7=11110110。 when 2= data=a_one。 when 10|11=b_ten=0001。 when 10|11=a_ten=0001。end if。如果b一直沒接球則a加分 a:=39。139。039。039。139。 b_score=0。 signal a_one,a_ten,b_one,b_ten:std_logic_vector(3 downto 0)?？偨Y(jié)與反思這個實(shí)驗(yàn)做完后，我了解了試驗(yàn)箱上的模式選擇功能，并學(xué)會了使用，實(shí)驗(yàn)的要求是為了讓我們了解頻率的檢測。數(shù)碼管顯示譯碼process(dat)begincase dat is when0000=seg7=11111100。dat=tq2。 tq8=tp8。end if。139。signal dat:std_logic_vector(3 downto 0)。項目組成員分工李丹，賈彬編寫程序路清云檢查程序賈彬運(yùn)行程序并實(shí)現(xiàn)項目實(shí)施過程中遇到的困難在實(shí)施時不了解程序的原理，看不懂如何使用。end case。 end if。 when 7|17 =qhl=0111。case min is when 0|1|2|3|4|5|6|7|8|9 =qmh=0000。 when 50|51|52|53|54|55|56|57|58|59 =qsh=0101。 when 1|11|21|31|41|51 =qsl=0001。sec=0。139。use 。event and fn=39。 dat=00011。 dat=01000。F