【正文】 00000 then tmp=39。139。 count=0。 else tmp=39。039。 end if。 end if。 end Process。p2:process(couny) 數(shù)碼管分頻begin if clk39。event and clk=39。139。 then couny=couny+1。 if couny=5000000 then tmg=39。139。 couny=0。 else tmg=39。039。 end if。 end if。 end Process。p3:process(tmp) 狀態(tài)機(jī)部分 begin if reset=39。139。 then 按下復(fù)位鍵，比賽開始 i=0。count1=0000。count2=0000。 記分器清零 elsif tmp39。event and tmp=39。139。then 每到來一個(gè)時(shí)鐘上升沿 if count1=1011 or count2=1011then 如果1或2比分是11，i變?yōu)? i=0。count1=0000。count2=0000。 elsif start=39。039。 then i=0。count1=0000。count2=0000。 else case state is when waitserve = 等待狀態(tài)下 進(jìn)程處于等待發(fā)球狀態(tài) case serve is when 00 = i=0。 when 10 = i=1。state=light1on。 若有1發(fā)球，則狀態(tài)變?yōu)椤發(fā)ight1on”狀態(tài),二極管第一個(gè)燈點(diǎn)亮 when 01 = i=7。state=light7on。 若2發(fā)球，則狀態(tài)變?yōu)椤發(fā)ight7on”狀態(tài)，二極管第八個(gè)燈點(diǎn)亮 when 11 = i=0。 when others = i=0。 end case。 when light1on = i=2。 light1on狀態(tài)下 進(jìn)程處于第一盞燈亮狀態(tài) if hit2=39。139。 then i=0。 count1=count1+1。state=waitserve。 else state=ballmoveto2。end if。 when light7on = i=6。 light7on狀態(tài)下 進(jìn)程處于第八盞燈亮狀態(tài) if hit1=39。139。 then i=0。 count2=count2+1。state=waitserve。 else state=ballmoveto1。 end if。 when ballmoveto1 = 進(jìn)程處于球向2移動(dòng)狀態(tài) if hit1=39。139。 then i=0。 count2=count2+1。state=waitserve。 elsif i=2 then i=1。 state=allow1hit。 else i=i1。 end if。 when ballmoveto2 = 進(jìn)程處于球向1移動(dòng)狀態(tài) if hit2=39。139。 then i=0。 count1=count1+1。state=waitserve。 elsif i=6 then i=7。 state=allow2hit。 else i=i+1。 end if。 when allow1hit = 進(jìn)程處于允許1擊球狀態(tài) if hit1=39。139。 then i=2。state=ballmoveto2。 else count2=count2+1。i=0。 state=waitserve。 end if。 when allow2hit = 進(jìn)程處于允許2擊球狀態(tài) if hit2=39。139。 then i=6。state=ballmoveto1。 else count1=count1+1。i=0。 state=waitserve。 end if。 end case。 end if。 end if。end process。light=1000000 when (i=1) else 將i的值翻譯為二極管顯示情況 0100000 when (i=2) else 0010000 when (i=3) else 0001000 when (i=4) else 0000100 when (i=5) else 0000010 when (i=6) else 0000001 when (i=7) else null。u0: myd port map(count1,score11,score12)。u1: myd port map(count2,score21,score22)。u2: qdd port map(clk,start,ht,dt)。end one。library ieee。 數(shù)碼管顯示use 。use 。use 。entity myd isport( bin: in std_logic_vector(0 to 3)。 out1: out std_logic_vector(0 to 6)。 out2: out std_logic_vector(0 to 6))。end myd。architecture m of myd issignal temb:std_logic_vector(0 to 3)。beginprocess(bin)begintemb=bin。case temb is when 0000= out1=1111110。out2=1111110。 when 0001= out1=1111110。out2=0110000。 when 0010= out1=1111110。out2=1101101。 when 0011= out1=1111110。out2=1111001。 when 0100= out1=1111110。out2=0110011。 when 0101= out1=1111110。out2=1011011。 when 0110= out1=1111110。out2=1011111。 when 0111= out1=1111110。out2=1110000。 when 1000= out1=1111110。out2=1111111。 when 1001= out1=1111110。out2=1111011。 when 1010 =out1=0110000。out2=1111110。 when 1011 =out1=0110000。out2=0110000。 when others =out1=1111110。out2=1111110。end case。end process。end m。library ieee。 按鍵去抖use 。use 。use 。 entity qdd is port( clk1 :in std_logic。 set:in std_logic。 din :in std_logic。 dout : out std_logic)。 end qdd。 architecture one of qdd is 狀態(tài)機(jī) type state is ( s0,s1,s2,s3)。 signal pre, nex:state。begin p0:process(set,clk1) begin if set=39。039。 then pre=s0。elsif rising_edge (clk1) then pre=nex。 end if。end process。 p1:process(pre,nex,din) begin case pre is when s0=dout=39。139。 if din=39。139。 then nex=s0。 else nex=s1。end if。 when s1=dout=39。139。 if din=39。139。 then nex=s0。 else nex=s2。end if。 when s2=dout=39。139。 if din=39。139。 then nex=s0。 else nex=s3。end if。 when s3=dout=39。039。 if din=39。139。 then nex=s0。 else nex=s3。 end if。 end case。 end process。end one。