通行时间可变的交通灯控制器设计module tr1(ng,clk,reset,resets,emergency,lighta,lightb,seg,select); input ng,clk,reset,emergency,resets;output[6:0]seg;//显示用的output[3:0] lighta,lightb;//a是主干道，b是支干道output [3:0] select;//选择那一个管子进行显示reg clk1,clk2;//clk1要5HZ clk2要几千HZreg [3:0] select;reg tim1,tim2;//这是看你的等有没有变过颜色的控制信号reg [1:0] cont;reg[2:0]state1,state2,ste;两个控制颜色变化状态的信号。
reg[3:0]lighta,lightb;//a是主干道，b是支干道reg[3:0]num;//译码器是根据这个东西来译码的reg [35:0] fout;reg[6:0]seg;//显示reg[7:0] numa,numb;reg[7:0] red1,red2,green1,green2,yellow1,yellow2,left1,left2; always @(ng )if(!ng)begin //设置计数初值green1 <=8'b00110000;//30Sred1 <=8'b01010001;//51Syellow1<=8'b00000011;//3Sleft1 <=8'b00010101; //15Sgreen2 <=8'b00110000;//30Sred2 <=8'b01010001;//51Syellow2<=8'b00000011;//3Sleft2 <=8'b00010101; //15Sendalways @ (posedge clk)beginif (fout==36'b111111111111111111111111111111111111)fout<=0;else begin fout<=fout+1;clk1=fout[23];5HZclk2=fout[13];几千HZendendalways @(posedge clk1 )beginif(reset) //复位与特殊情况控制这是主干道的复位beginlighta<=4'b1000;//lighta是主干道的交通灯，lightb是支干道的交通灯，1000是红灯，0100是直行绿灯，0010是黄灯，0001是左转绿灯numa<=red1; //主干道的数码管从红灯开始记state1<=0;//这时候灯变化的控制信号为0endelse if(emergency)//紧急情况beginlighta<=4'b1000;//主干道红了numa<=red1;//计时也从红灯记endelse if(ng)//这下开始正常工作了begin //使能有效开始控制计数if(!tim1) //你有没有变过颜色啊？没有？那开始变颜色吧。
begin //主干道交通灯点亮控制tim1<=1;//主干道的灯的开关，行了，我变过了。
case(state1)//state1是用来控制主干道亮灯的各个状态的。
//1000（8）是红灯，0100（4）是直行绿灯，0010（2）是黄灯，0001（1）是左转绿灯3'b000:begin numa<=green1; lighta<=4; state1<=3'b001;end//直行绿3'b001:begin numa<=yellow1;lighta<=2; state1<=3'b010;end//黄3'b010:begin numa<=left1; lighta<=1; state1<=3'b011;end//左转绿3'b011:begin numa<=yellow1;lighta<=2; state1<=3'b100;end//黄3'b100:begin numa<=red1; lighta<=8; state1<=3'b000;end//红default:lighta<=8;//接二极管正极，负极接地endcaseendelse//tm1=1，我变过颜色了，可以开始计数了。
begin //倒数计时if(numa>0)if(numa[3:0]==0)beginnuma[3:0]<=4'b1001;numa[7:4]<=numa[7:4]-1;endelse numa[3:0]<=numa[3:0]-1;if(numa==1) tim1<=0;好了，差不多计完了，再让我变一次吧。
endendelse //如果电路没有启动beginlighta<=4'b0100;//默认为直行绿灯numa=0;//默认计数为0tim1<=0; //默认我没有变过颜色endendalways @(posedge clk1 )//下面就和主干道的一样了beginif(reset) //复位与特殊情况控制beginlightb<=4'b1000;numb<=red2;state2<=0;endelse if(emergency)beginlightb<=4'b1000;numb<=red2;endelse if(ng)beginif(!tim2)begintim2<=1;case(state2)0:begin numb<=red2; lightb<=8; state2<=1; end 1:begin numb<=green2; lightb<=4; state2<=2; end2:begin numb<=yellow2;lightb<=2; state2<=3;end3:begin numb<=left2; lightb<=1; state2<=4;end4:begin numb<=yellow2; lightb<=2; state2<=0;enddefault:lightb<=8;endcaseendelsebegin //倒数计时if(numb>0)if(numb[3:0]==0)beginnumb[3:0]<=4'b1001;numb[7:4]<=numb[7:4]-1;endelse numb[3:0]<=numb[3:0]-1;if(numb==1) tim2<=0;endendelsebegintim2<=0;state2<=0;lightb<=4'b0100;endendalways @(posedge clk2)begin //数码管扫描if(resets)begincont=0;select=4'b1111;;endelsebegincase(cont)2'b00:begin num<=numa[3:0]; select<=4'b1101;cont<=cont+1; end 2'b01:begin num<=numa[7:4]; select<=4'b1011;cont<=cont+1; end 2'b10:begin num<=numb[3:0]; select<=4'b0111;cont<=cont+1; end 2'b11:begin num<=numb[7:4]; select<=4'b1110;cont<=cont+1; end endcaseendendalways @(posedge clk2) begin //数码管译码显示case(num)4'b0000: seg<=7'b0111111; //0 4'b0001: seg<=7'b0000110; //1 4'b0010: seg<=7'b1011011; //2 4'b0011: seg<=7'b1001111; //3 4'b0100: seg<=7'b1100110; //4 4'b0101: seg<=7'b1101101; //5 4'b0110: seg<=7'b1111101; //6 4'b0111: seg<=7'b0000111; //7 4'b1000: seg<=7'b1111111; //8 4'b1001: seg<=7'b1101111; //9 default: seg<=7'b0111111; //0 endcaseendendmodule。