【正文】 gltemp==0)amp。amp。(sub_ghtemp=1)) begin sub_ghtemp=sub_ghtemp1。 sub_gltemp=9。 end if((sub_gltemp=1)amp。amp。(sub_gltemp=9)) begin if((sub_ghtemp==0)amp。amp。(sub_gltemp==5)) begin flash=1。 sub_gltemp=sub_gltemp1。 end else sub_gltemp=sub_gltemp1。 end else if((sub_ghtemp==0)amp。amp。(sub_gltemp==0)) begin select=1。 g_l=1。 flash=0。 sub_ghtemp=sub_gh。 sub_gltemp=sub_gl。 end end if(select==1amp。amp。g_l==1)//支干道左轉燈 begin counter_play2h=sub_lhtemp。//支干道顯示左轉燈時間 counter_play2l=sub_lltemp。 if((sub_lltemp==0)amp。amp。(sub_lhtemp=1)) begin sub_lhtemp=sub_lhtemp1。 sub_lltemp=9。 end if((sub_lltemp=1)amp。amp。(sub_lltemp=9)) begin if((sub_lhtemp==0)amp。amp。(sub_lltemp==5)) begin flash=1。 sub_lltemp=sub_lltemp1。 end else sub_lltemp=sub_lltemp1。 end else if((sub_lhtemp==0)amp。amp。(sub_lltemp==0)) begin select=0。 g_l=0。 flash=0。 sub_lltemp=sub_ll。 sub_lhtemp=sub_lh。 end end end//initial=1結束 end //start=1結束 else if(start==0)//開始信號無效時，計數(shù)中間變量清零 begin chief_ghtemp=0。 chief_gltemp=0。 chief_rhtemp=0。 chief_rltemp=0。 chief_lhtemp=0。 chief_lltemp=0。 sub_lhtemp=0。 sub_lltemp=0。 sub_ghtemp=0。 sub_gltemp=0。 sub_rhtemp=0。 sub_rltemp=0。 endend//always結束endmodulemodule plus2(OutH,OutL,In1H,In1L,In2H,In2L)。//紅燈時間計算input[3:0]In1H,In1L,In2H,In2L。output[3:0]OutH,OutL。reg[3:0]OutH,OutL。reg[3:0]outh1,outl1。always@(In1H or In1L or In2H or In2L)//被加數(shù)先加1，在加加數(shù)beginif((In1L+1)=439。b1010)beginoutl1=In1L+1439。b1010。outh1=In1H+139。b1。endelsebeginoutl1=In1L+1。outh1=In1H。endif((outl1+In2L)=439。b1010)beginOutL=outl1+In2L439。b1010。OutH=outh1+In2H+139。b1。endelsebeginOutL=outl1+In2L。OutH=outh1+In2H。endif((((outl1+In2L)=439。b1010)amp。amp。((outh1+In2H)==439。b1001))||(((outh1+In2H)439。b1001)))beginOutL=439。b1001。OutH=439。b1001。endendendmodulemodule plus4(OutH,OutL,In1H,In1L,In2H,In2L)。//紅燈時間計算input[3:0]In1H,In1L,In2H,In2L。output[3:0]OutH,OutL。reg[3:0]OutH,OutL。reg[3:0]outh1,outl1。always@(In1H or In1L or In2H or In2L)//被加數(shù)先加1，在加加數(shù)beginif((In1L+1)=439。b1010)beginoutl1=In1L+1439。b1010。outh1=In1H+139。b1。endelsebeginoutl1=In1L+1。outh1=In1H。endif((outl1+In2L)=439。b1010)beginOutL=outl1+In2L439。b1010。OutH=outh1+In2H+139。b1。endelsebeginOutL=outl1+In2L。OutH=outh1+In2H。endif((((outl1+In2L)=439。b1010)amp。amp。((outh1+In2H)==439。b1001))||(((outh1+In2H)439。b1001)))beginOutL=439。b1001。OutH=439。b1001。endendendmodulemodule view(clk,flash,select,g_l, chief_green,chief_left,chief_red,sub_green,sub_left,sub_red )。input clk,select,g_l,flash。output chief_green,chief_left,chief_red,sub_green,sub_left,sub_red。assign chief_green=~selectamp。~g_lamp。(~(flashamp。clk))。assign chief_left=~selectamp。g_lamp。(~(flashamp。clk))。assign chief_red=select。assign sub_green=selectamp。~g_lamp。(~(flashamp。clk))。assign sub_left=selectamp。g_lamp。(~(flashamp。clk))。assign sub_red=~select。endmodulemodule SEG7_LUT_8 ( oSEG0,oSEG1,oSEG2,oSEG3,oSEG4,oSEG5,oSEG6,oSEG7,iDIG,iWR,iCLK,iRST_N )。input [31:0] iDIG。input iWR,iCLK,iRST_N。output [6:0] oSEG0,oSEG1,oSEG2,oSEG3,oSEG4,oSEG5,oSEG6,oSEG7。reg [31:0] rDIG。always@(posedge iCLK or negedge iRST_N)begin if(!iRST_N) rDIG = 0。 else begin if(iWR) rDIG = iDIG。 endendSEG7_LUT u0 ( oSEG0,rDIG[3:0] )。SEG7_LUT u1 ( oSEG1,rDIG[7:4] )。SEG7_LUT u2 ( oSEG2,rDIG[11:8] )。SEG7_LUT u3 ( oSEG3,rDIG[15:12] )。SEG7_LUT u4 ( oSEG4,rDIG[19:16] )。SEG7_LUT u5 ( oSEG5,rDIG[23:20] )。SEG7_LUT u6 ( oSEG6,rDIG[27:24] )。SEG7_LUT u7 ( oSEG7,rDIG[31:28] )。Endmodulemodule freq_div(clk,clk1)。input clk。output clk1。reg clk1。reg [24:0] counter。initial beginclk1=0。counter=0。endalways@(posedge clk)beginif(counter==2539。d25000000)beginclk1=~clk1。counter=0。endelsecounter=counter+139。b1。endendmodule輾轉異地一衫淚，曾記當年一傘輕。西子湖畔一相逢，斷橋一諾金山漫。