【正文】 001。amp。b0000。b0000。 Rsub_gl=sub_gl139。 endendalways(sub_lh or sub_ll)//用于求得真正主干道紅燈時間begin if((sub_lh0)amp。(sub_ll==0)) begin Rsub_lh=sub_lh139。 Rsub_ll=439。 end else if((sub_lh==0)amp。(sub_ll==0)) begin Rsub_lh=439。 Rsub_ll=439。 end else begin Rsub_lh=sub_lh。b1。input clk。input[3:0]chief_gh,chief_gl,chief_lh,chief_ll。 input[3:0]chief_rh,chief_rl,sub_rh,sub_rl。output[3:0]counter_play2h,counter_play2l。reg flash。reg start。reg g_l。reg[3:0]chief_ghtemp,chief_gltemp,chief_lhtemp,chief_lltemp。reg[3:0]counter_play1h,counter_play1l,counter_play2h,counter_play2l。 endalways(posedge clk)begin if(start==1) begin if(Initial==0)//對計數(shù)中間變量進行初始化 begin chief_ghtemp=chief_gh。 sub_ghtemp=sub_gh。 chief_rhtemp=chief_rh。 chief_lhtemp=chief_lh。 sub_lhtemp=sub_lh。 chief_rltemp=chief_rl。 Initial=1。//主干道顯示紅燈計數(shù) counter_play1l=chief_rltemp。amp。 chief_rltemp=9。amp。 end else if((chief_rhtemp==0)amp。(chief_rltemp==0)) begin chief_rhtemp=chief_rh。 end end if(select==0)//支干道紅燈 begin counter_play2h=sub_rhtemp。 if((sub_rltemp==0)amp。(sub_rhtemp=1)) begin sub_rhtemp=sub_rhtemp1。 end else if((sub_rltemp=1)amp。(sub_rltemp=9)) begin sub_rltemp=sub_rltemp1。amp。 sub_rltemp=sub_rl。amp。//主干道顯示綠燈時間 counter_play1l=chief_gltemp。amp。 chief_gltemp=9。amp。amp。 chief_gltemp=chief_gltemp1。 end else if((chief_ghtemp==0)amp。(chief_gltemp==0)) begin select=0。 flash=0。 chief_gltemp=chief_gl。amp。//主干道顯示左轉(zhuǎn)燈時間 counter_play1l=chief_lltemp。amp。 chief_lltemp=9。amp。amp。 chief_lltemp=chief_lltemp1。 end else if((chief_lhtemp==0)amp。(chief_lltemp==0)) begin select=1。 flash=0。 chief_lltemp=chief_ll。amp。//支干道顯示綠燈時間 counter_play2l=sub_gltemp。amp。 sub_gltemp=9。amp。amp。 sub_gltemp=sub_gltemp1。 end else if((sub_ghtemp==0)amp。(sub_gltemp==0)) begin select=1。 flash=0。 sub_gltemp=sub_gl。amp。//支干道顯示左轉(zhuǎn)燈時間 counter_play2l=sub_lltemp。amp。 sub_lltemp=9。amp。amp。 sub_lltemp=sub_lltemp1。 end else if((sub_lhtemp==0)amp。(sub_lltemp==0)) begin select=0。 flash=0。 sub_lhtemp=sub_lh。 chief_gltemp=0。 chief_rltemp=0。 chief_lltemp=0。 sub_lltemp=0。 sub_gltemp=0。 sub_rltemp=0。//紅燈時間計算input[3:0]In1H,In1L,In2H,In2L。reg[3:0]OutH,OutL。always(In1H or In1L or In2H or In2L)//被加數(shù)先加1，在加加數(shù)beginif((In1L+1)=439。b1010。b1。outh1=In1H。b1010)beginOutL=outl1+In2L439。OutH=outh1+In2H+139。endelsebeginOutL=outl1+In2L。endif((((outl1+In2L)=439。amp。b1001))||(((outh1+In2H)439。b1001。b1001。//紅燈時間計算input[3:0]In1H,In1L,In2H,In2L。reg[3:0]OutH,OutL。always(In1H or In1L or In2H or In2L)//被加數(shù)先加1，在加加數(shù)beginif((In1L+1)=439。b1010。b1。outh1=In1H。b1010)beginOutL=outl1+In2L439。OutH=outh1+In2H+139。endelsebeginOutL=outl1+In2L。endif((((outl1+In2L)=439。amp。b1001))||(((outh1+In2H)439。b1001。b1001。input clk,select,g_l,flash。assign chief_green=~selectamp。(~(flashamp。assign chief_left=~selectamp。(~(flashamp。assign chief_red=select。~g_lamp。clk))。g_lamp。clk))。endmodulemodule SEG7_LUT_8 ( oSEG0,oSEG1,oSEG2,oSEG3,oSEG4,oSEG5,oSEG6,oSEG7,iDIG,iWR,iCLK,iRST_N )。input iWR,iCLK,iRST_N。reg [31:0] rDIG。 else begin if(iWR) rDIG = iDIG。SEG7_LUT u1 ( oSEG1,rDIG[7:4] )。SEG7_LUT u3 ( oSEG3,rDIG[15:12] )。SEG7_LUT u5 ( oSEG5,rDIG[23:20] )。SEG7_LUT u7 ( oSEG7,rDIG[31:28] )。input clk。reg clk1。initial beginclk1=0。endalways(posedge clk)beginif(counter==2539。counter=0。b1。西子湖畔一相逢，斷橋一