【正文】 d process。139。039。039。139。039。139。 and b=39。 then 如果b發(fā)球 b:=39。139。139。b:=39。039。 elsif shift_1=0 then如果b一直沒(méi)接球則a加分 a_score=a_score+1。039。039。039。 end if。039。如果沒(méi)到球網(wǎng)a擊球則b加分 a:=39。 shift_1:=0000000000000000。 end if。 b:=39。 then 如果b擊球成功則a的控制位置1，b的控制位清0 a:=39。 else shift_1:=shift_1(14 downto 0)amp。 end if。end process。 when 3 =a_one=0011。 when 7 =a_one=0111。end case。end case。 when 3 =b_one=0011。 when 7 =b_one=0111。end case。end case。139。end if。 when 1= data=b_ten。 when 3= data=a_ten。end process。 when0011=seg7=11110010。 when0111=seg7=11100000。end case。項(xiàng)目組成員分工賈彬編程賈彬調(diào)試賈彬在功能板上實(shí)現(xiàn)程序項(xiàng)目實(shí)施過(guò)程中遇到的困難程序讀不懂，沒(méi)有理解那一個(gè)是A和B，沒(méi)有看清楚程序?？偨Y(jié)與反思通過(guò)這個(gè)項(xiàng)目的實(shí)訓(xùn)，得出有些事你不一定會(huì)，但只要你自己努力的學(xué)習(xí)，不斷地嘗試，細(xì)心，認(rèn)真思考就會(huì)得到意想不到的結(jié)果。entity cpld isport(clk:in std_logic。7段顯示控制信號(hào)(abcdefg) ra,ya,ga:out std_logic。四種狀態(tài) signal clk1khz,clk1hz:std_logic。 signal seg7_temp:std_logic_vector(7 downto 0)。event and clk=39。 else count:=count+1。1hz分頻process(clk1khz) variable count:integer range 0 to 499。 then if count=499 then clk1hz=not clk1hz。end if。倒計(jì)時(shí)賦值標(biāo)志位 variable qh,ql:std_logic_vector(3 downto 0)。 thencase stx iswhen st1=if jin=39。 then qh:=0011。 r1=39。 g1=39。支干道紅燈亮 y2=39。 else if qh=0 and ql=1 then 如果倒計(jì)時(shí)結(jié)束則轉(zhuǎn)到st2狀態(tài) stx:=st2。 ql:=0000。 end if。039。高位為0 ql:=0100。039。039。039。 a:=39。 else ql:=ql1。when st3=if jin=39。 then qh:=0010。 r1=39。 g1=39。 y2=39。支干道綠燈點(diǎn)亮 else if qh=0 and ql=1 then 如果倒計(jì)時(shí)結(jié)束則轉(zhuǎn)到st4狀態(tài) stx:=st4。 ql:=0000。 end if。039。高位為0 ql:=0100。139。039。139。 a:=39。 else ql:=ql1。end case。end process。主干道紅燈點(diǎn)亮 rb=r2 or jin。 yb=y2 and not jin。 seg7(3)=seg7_temp(3) and clk1hz。else seg7=seg7_temp。 gb=g2。end proce。 yb=y2。 rb=r2。 seg7(5)=seg7_temp(5) and clk1hz。 seg7(1)=seg7_temp(1) and clk1hz。 gb=g2 and not jin。139。 one=ql。 end if。 qh:=0000。039。039。039。139。039。 end if。 qh:=qh1。039。 g2=39。 r2=39。主干道紅燈點(diǎn)亮 y1=39。低位為4 a:=39。 then 狀態(tài)st3，支干道通行25秒 if a=39。 end if。 qh:=0000。039。139。139。139。039。 end if。 qh:=qh1。039。 g2=39。主干道綠燈亮 r2=39。 y1=39。低位為4 a:=39。 then狀態(tài)st1，主干道通行35秒 if a=39。event and clk1hz=39。 交通狀態(tài)轉(zhuǎn)換process(clk1hz) variable stx:states。 else count:=count+1。event and clk1khz=39。end if。 then if count=2999 then clk1khz=not clk1khz。begin1khz分頻process(clk)variable count:integer range 0 to 2999。倒計(jì)時(shí)的個(gè)位和十位 signal t:std_logic_vector(1 downto 0)。支干道的紅黃綠燈end。禁止通行信號(hào) scan:out std_logic_vector(2 downto 0)。use 。B發(fā)球是1，A接球是16. 如果A接到則A得分，反之。end。 when1001=seg7=11110110。 when0101=seg7=10110110。 when0001=seg7=01100000。 when others=null。 when 2= data=a_one。數(shù)碼管動(dòng)態(tài)掃描process(t,a_ten,a_one,b_one,b_ten)begincase t is when 0= data=b_one。 else t=t+1。數(shù)碼管動(dòng)態(tài)掃描計(jì)數(shù)process(clk1khz)beginif clk1khz39。 when 10|11=b_ten=0001。 when 9 =b_one=1001。 when 5 =b_one=0101。 when 1|11 =b_one=0001。 when 10|11=a_ten=0001。 when 9 =a_one=1001。 when 5 =a_one=0101。 when 1|11 =a_one=0001。end if。039。 b:=39。 else if aj=39。如果b一直沒(méi)接球則a加分 a:=39。39。 b:=39。139。139。 shift_1(15 downto 1)。139。139。039。 shift_1(15 downto 1)。 shift_1:=0000000000000000。 a:=39。039。 shift_1:=0000000000000001。 and bf=39。a的控制位置1 elsif a=39。139。039。elsif clk1_2hz39。039。 b_score=0。a和b的控制位 variable shift_1:std_logic_vector(15 downto 0)。 end if。139。 signal a_one,a_ten,b_one,b_ten:std_logic_vector(3 downto 0)。architecture a_one of cpld is signal clk1_2hz:std_logic。B方發(fā)球，B方擊球 shift:out std_logic_vector(15 downto 0)。entity cpld isport(clk1khz:in std_logic。總結(jié)與反思這個(gè)實(shí)驗(yàn)做完后，我了解了試驗(yàn)箱上的模式選擇功能，并學(xué)會(huì)了使用，實(shí)驗(yàn)的要求是為了讓我們了解頻率的檢測(cè)。end process。 when1000=seg7=11111110。 when0100=seg7=01100110。數(shù)碼管顯示譯碼process(dat)begincase dat is when0000=seg7=11111100。dat=tq8。dat=tq6。dat=tq4。dat=tq2。end process。 tp8=0000。 tp4=0000。 tq8=tp8。 tq4=tp4。end if。end if。end if。end if。 if tp8=1001 then tp8=0000。 if tp4=1001 then tp4=0000。139。在一秒鐘內(nèi)計(jì)數(shù)process(clkin)beginif clkin39。 else t=t+1。 then if t=11999999 then clk_t=not clk_t。signal dat:std_logic_vector(3 downto 0)。architecture one of cpld issignal t:std_logic_vector(24 downto 0)。12mhz 時(shí)鐘輸入 clkin:in std_logic。編號(hào)（008）項(xiàng)目名稱(chēng)數(shù)字頻率計(jì)項(xiàng)目組成員賈彬 李丹 路清云項(xiàng)目?jī)?nèi)容library ieee。項(xiàng)目組成員分工李丹，賈彬編寫(xiě)程序路清云檢查程序賈彬運(yùn)行程序并實(shí)現(xiàn)項(xiàng)目實(shí)施過(guò)程中遇到的困難在實(shí)施時(shí)不了解程序的原理，看不懂如何使用。 when others=seg=00000000。 when0110=seg=10111110。 when0010=seg=11011010。end case。scan=100。scan=010。scan=000。 end if。event and clk=39。 when others=n