《Verilog HDL乒乓球游戏机.doc》由会员分享，可在线阅读，更多相关《Verilog HDL乒乓球游戏机.doc（3页珍藏版）》请在三一文库上搜索。
1、module ping_pang(clk1khz,rst,af,aj,bf,bj,shift,seg71,seg72);input clk1khz,rst;input af,aj,bf,bj;/af,aj为A方发球，A方击球output7:0shift;/output3:0scan;output6:0seg71,seg72;reg clk2hz;reg31:0cnt;reg6:0seg71,seg72;reg3:0 a_score,b_score;reg a,b;reg7:0shift;/*2Hz分频*/always(posedge clk1khz)begin if(cnt=19999999)
2、 begin cnt=0;clk2hz=clk2hz; end else cnt=cnt+1b1;end/*比赛规则*/always(posedge clk2hz,posedge rst)begin if(rst) begin a_score=0; b_score=0; a=0; b=0; shift=8b0; end else if(a=0&b=0&af=1)/A发球 begin a=1; shift=8b10000000; end else if(a=0&b=0&bf=1)/B发球 begin b=1; shift=8b00000001; end else if(a=1&b=0) begi
3、n/球从A到B if(shift16)/若没过球网B击球，A加分 begin if(bj=1) begin a_score=a_score+1b1; a=0;b=0; shift=8b00000000; end else shift=1b0,shift7:1;end else if(shift=0)/B一直没击球，A加分 begin a_score=a_score+1b1; a=0;b=0;end else begin if(bj=1)/B击球成功 begin a=0;b=1;end else shift=1b0,shift7:1; end end else if(b=1&a=0)/球从B到A
4、移动 begin if(shift16&shift!=0) begin if(aj=1) begin b_score=b_score+1b1; a=0;b=0; shift=0; end else shift=shift6:0,1b0; end else if(shift=0) begin b_score=b_score+1b1; a=0;b=0; end else begin if(aj=1) begin a=1;b=0; end else shift=shift6:0,1b0; end endendalways(a_score,b_score)begincase(a_score) 0:se
5、g71=7b0111111; 1:seg71=7b0000110; 2:seg71=7b1011011; 3:seg71=7b1001111; 4:seg71=7b1100110; 5:seg71=7b1101101; 6:seg71=7b1111101; 7:seg71=7b0000111; 8:seg71=7b1111111; 9:seg71=7b1101111; default:seg71=7b0000000;endcasecase(b_score) 0:seg72=7b0111111; 1:seg72=7b0000110; 2:seg72=7b1011011; 3:seg72=7b1001111; 4:seg72=7b1100110; 5:seg72=7b1101101; 6:seg72=7b1111101; 7:seg72=7b0000111; 8:seg72=7b1111111; 9:seg72=7b1101111; default:seg72=7b0000000;endcaseendendmodule