module qiangda4(clk,clr,inputEn,add,stu,inputL1,inputL2,inputL3,inputL4,Led1,Led2,Led3,Buzzer); / 開始聲明各個端口 /輸入口input clk,clr,inputEn,add,stu,inputL1,inputL2,inputL3,inputL4;/輸出口output 0:7Led1; /倒計時時使用的LED控制端output 0:7Led2; /數碼管控制端output 0:7Led3; /分數顯示數碼管控制端output Buzzer; /蜂鳴器/各個寄存器變量聲明reg0:7 Led1;reg0:7 Led2;reg0:7 Led3;regcnt=32b0;reg Buzzer;reg score=4hf;/分數顯示寄存器/配置寄存器,EnFlat是表明開始搶答的標志位reg EnFlat=1b0;/BuClk是蜂鳴器的標志位reg BuClk=1b0;/BuL是做蜂鳴器的延時用reg 0:7BuL=8d0;/搶答選手標志位reg answer=3d0;/各組分數標志位regscore1=4d5;regscore2=4d5;regscore3=4d5;regscore4=4d5;/-初始化模塊-always (posedge clk)/捕捉時鐘begin/初始化各按鍵并開始搶答begin if(inputEn=1b0) begin/初始化各個標志位和參數EnFlat=1b1;/倒計時開始時8個Led燈全亮Led1=8b11111111;/組號顯示靜態數碼管(數碼管為共陽極)的控制端,有8位Led2=8b11111111;/分數顯示數碼管控制端Led3=8b11111111;/蜂鳴器標志位BuClk=1b0;/蜂鳴器的控制管腳,低電平為發聲音Buzzer=1b1; endend/-搶答模塊-begin if(EnFlat=1b1) begin/如果按鍵1按下if(inputL1=1b0)begin/禁止其他選手搶答EnFlat=1b0;/選手標志位改變，用于加減分數模塊answer=3d1;/靜態數碼管顯示序號1，及顯示選手對應的組號Led2=8hf9;/指示蜂鳴器發聲BuClk=1b1;end /如果按鍵2按下else if(inputL2=1b0)begin/禁止其他選手搶答EnFlat=1b0;answer=3d2;Led2=8ha4;BuClk=1b1;end /如果按鍵3按下else if(inputL3=1b0)begin/禁止其他選手搶答EnFlat=1b0;answer=3d3;Led2=8hb0;BuClk=1b1;end /如果按鍵4按下else if(inputL4=1b0)begin/禁止其他選手搶答EnFlat=1b0;answer=3d4;Led2=8h99;BuClk=1b1;end endend/-加減分數模塊-/第一組加減分if(answer =3d1)beginif(add)score1=score1+1;/當主持人判定選手的回答正確時，按下add鍵進行加分操作elseif(stu)score1=score1-1;/當主持人判定選手的回答錯誤時，按下stu鍵進行減分操作score=score1;/把第一組的分數賦值給分數寄存器end/第二組加減分if(answer =3d2)beginif(add)score2=score2+1;/當主持人判定選手的回答正確時，按下add鍵進行加分操作elseif(stu)score2=score2-1;/當主持人判定選手的回答錯誤時，按下stu鍵進行減分操作score=score2;end/第三組加減分if(answer =3d3)beginif(add)score3=score3+1;/當主持人判定選手的回答正確時，按下add鍵進行加分操作elseif(stu)score3=score3-1;/當主持人判定選手的回答錯誤時，按下stu鍵進行減分操作score=score3;end/第四組加減分if(answer =3d4)beginif(add)score4=score4+1;/當主持人判定選手的回答正確時，按下add鍵進行加分操作elseif(stu)score4=score4-1;/當主持人判定選手的回答錯誤時，按下stu鍵進行減分操作score=score4;end/-倒計時模塊-beginif(EnFlat=1b1)beginif(cnt!=32d48000000)/計時實現1HZ分頻cnt=cnt+32d1;elsebegincnt=32d0;Led1=8b111111111b1;/Led1左移一個單位，實現一秒的倒計時endendif(Led1=8b0)/倒計時結束還沒有按鍵按下，則搶答停止且蜂鳴器響EnFlat=1b0;BuClk=1b1;end/-蜂鳴器模塊-/當蜂鳴器標志位置1時/進入此蜂鳴器處理程序begin if(BuClk=1b1) begin/蜂鳴器發聲Buzzer=1b0;/延時變量加1BuL = BuL + 8d1;/當到達延時的時間時關掉蜂鳴器if(BuL=8d255)begin/延時變量復位BuL=8d0;/蜂鳴器標志位復位BuClk=1b0;/蜂鳴器停掉Buzzer=1b1;end endend/-重置模塊-/按下clr鍵以后各組參數重置，整個比賽重新開始if(clr)begin/重置各個標志位和參數EnFlat=1b1;/重置時8個Led燈全亮Led1=8b11111111;/選手號靜態數碼管的控制端,有8位Led2=8b11111111;/選手分數顯示數碼管重置Led3=8b11111111;/蜂鳴器標志位重置BuClk=1b0;/蜂鳴器的控制管腳重置,低電平為發聲音Buzzer=1b1;/各組分數重置score1=4d5;score2=4d5;score3=4d5;score4=4d5;/分數顯示寄存器重置answer=8hff;end/-數碼顯示模塊-begincase(score)4h0: Led3 = 8hc0;/顯示04h1: Led3 = 8hf9;/顯示14h2: Led3 = 8ha4;/顯示24h3: Led3 = 8hb0;/顯示34h4: Led3 = 8h99;/顯示44h5: Led3 = 8h92;/顯示54h6: Led3