jtdtest021.v

在maxplusII平台上开发的一个交通等内核

module jtdtest021(clk,out1,sel,jtdm,jtds);
input clk;
output[7:0] out1;
output[1:0] sel;
output[5:0] jtdm;
output[5:0] jtds;
reg[7:0] out1;
reg[2:0] i;
reg[3:0] second;
reg[2:0] minute;
reg[3:0] secondh;
reg[2:0] minuteh;
reg[7:0] secondo;
reg[7:0] minuteo;
reg[7:0] secondho;
reg[7:0] minuteho;
reg[9:0] k;
reg[5:0] jtdm;
reg[5:0] jtds;
reg[2:0] mainstr;
reg[2:0] secondstr;
reg[1:0] sel;
always@(posedge clk)
begin
case(second)
0:begin secondo=8'b00111111;end
1:begin secondo=8'b00000110;end
2:begin secondo=8'b01011011;end
3:begin secondo=8'b01001111;end
4:begin secondo=8'b01100110;end
5:begin secondo=8'b01101101;end
6:begin secondo=8'b01111101;end
7:begin secondo=8'b00000111;end
8:begin secondo=8'b01111111;end
9:begin secondo=8'b01101111;end
endcase
case(minute)
0:begin minuteo=8'b00111111;end
1:begin minuteo=8'b00000110;end
2:begin minuteo=8'b01011011;end
3:begin minuteo=8'b01001111;end
4:begin minuteo=8'b01100110;end
5:begin minuteo=8'b01101101;end
6:begin minuteo=8'b01111101;end
endcase
case(secondh)
0:begin secondho=8'b00111111;end
1:begin secondho=8'b00000110;end
2:begin secondho=8'b01011011;end
3:begin secondho=8'b01001111;end
4:begin secondho=8'b01100110;end
5:begin secondho=8'b01101101;end
6:begin secondho=8'b01111101;end
7:begin secondho=8'b00000111;end
8:begin secondho=8'b01111111;end
9:begin secondho=8'b01101111;end
endcase
case(minuteh)
0:begin minuteho=8'b00111111;end
1:begin minuteho=8'b00000110;end
2:begin minuteho=8'b01011011;end
3:begin minuteho=8'b01001111;end
4:begin minuteho=8'b01100110;end
5:begin minuteho=8'b01101101;end
6:begin minuteho=8'b01111101;end
endcase
k=k+1;
i=i+1;
case (i)
1:begin out1=minuteo;sel=1;end
2:begin out1=secondo;sel=0;end
3:begin out1=minuteho;sel=3;end
4:begin out1=secondho;sel=2;end		
endcase
if(i==4)
	i=0;			             
if(k>980)
begin
	if(second==0)
		begin
			case(mainstr)
			0:begin second=10;end
			1:begin second=10;end
			2:begin second=10;end
            3:begin second=6;mainstr=0;end
			endcase
	if(minute==0)
		begin
		case(mainstr)
			0:begin second=10;minute=6;end
			1:begin second=6;minute=3;end
			2:begin second=6;minute=1;end
			3:begin mainstr=0;end
		endcase
		mainstr=mainstr+1;
		end
		minute=minute-1; 			
    	end
		second=second-1;
	if(secondh==0)
		begin
			case(secondstr)
			0:begin secondh=10;end
			1:begin secondh=10;end
			2:begin secondh=6;end
            3:begin secondh=10;secondstr=0;end
			endcase
				if(minuteh==0)
					begin
						case(secondstr)
						0:begin secondh=6;minuteh=6;end
						1:begin secondh=6;minuteh=1;end
						2:begin secondh=10;minuteh=3;end
						3:begin secondstr=0;end
						endcase
						secondstr=secondstr+1;
					end
 			minuteh=minuteh-1;
		end
		secondh=secondh-1;
	k=0;
end
if(mainstr==1) jtdm=12;
if(mainstr==2) jtdm=33;
if(mainstr==0||mainstr==3) jtdm=18;
if(secondstr==1) jtds=33;
if(secondstr==2) jtds=18;
if(secondstr==0||secondstr==3) jtds=12;
end
endmodule