Chinaunix首页 | 论坛 | 博客
  • 博客访问: 2003660
  • 博文数量: 356
  • 博客积分: 8284
  • 博客等级: 中将
  • 技术积分: 4580
  • 用 户 组: 普通用户
  • 注册时间: 2009-05-15 20:25
个人简介

天行健,君子以自强不息

文章分类

全部博文(356)

文章存档

2018年(1)

2016年(4)

2015年(13)

2014年(14)

2013年(2)

2012年(25)

2011年(43)

2010年(65)

2009年(189)

分类:

2009-10-17 16:21:09

/*
blue    00_11_11
yellow  11_00_11
blue    11_11_00
0 bu liang
1 liang
*/
module traffic(led_l,led_r,clk,seg_reg1,seg_reg2,inter_key,key1,key2);
input clk,inter_key,key1,key2;
output [6:0] seg_reg1,seg_reg2;
output [5:0] led_l,led_r;
reg [6:0] dispdat1,dispdat2,seg_reg1,seg_reg2;
reg [6:0] reg_dispdat1,reg_dispdat2;
reg [25:0] count;
reg [1:0] led_yellow_l;
reg [1:0] led_blue_l;
reg [1:0] led_red_l;
reg [5:0] led_reg_l;
reg [1:0] led_yellow_r;
reg [1:0] led_blue_r;
reg [1:0] led_red_r;
reg [5:0] led_reg_r;
reg [3:0] flag_shuma0,flag_shuma1;
reg [5:0] flag_led_l,flag_led_r;
reg flag;
reg [1:0] flag_rgy_status;
 
 
reg sec;
reg [1:0] rgy_status;
reg [7:0] rgy_time_l,rgy_time_s,rgy_time;
initial
 begin
 flag_rgy_status=2'd0;
 rgy_time_l=8'h30;    //status 0 time
 rgy_time_s=8'h21;
 led_reg_l=6'b000000;  
 led_reg_r=6'b000000;
 flag=1'b0;
 end
 

////////////////////////fen ping chan sheng 2HZ shi zhong/////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////
always @(posedge clk)
begin
 /*
 if(flag==1'b1)
  begin
   //rgy_time_l=8'h0;
  
  end
 else*/
  begin
    count=count+1;
    if(count==26'd1000_0000)                           //should be 2500_0000
     begin
     count=0;
     sec=~sec;               //2 HZ
     end
  end
end
///////////////////////////////status 0/////////////////////////////////////////////////
always @(posedge sec)
begin 
   if(rgy_status==2'd0)
     begin
     
     if(rgy_time_l==8'h0)
     begin
     rgy_status=2'd1;
     //rgy_time_l=8'h30;
     rgy_time_s=8'h21;        //set status 1 time,short time
     //led_red=led_reg[3:0];
     end
     else
     begin
     led_reg_l=6'b110000;  //blue
     led_reg_r=6'b000011;  //red
     rgy_time_l=rgy_time_l-1'b1;   //status 0,long time.
       if(rgy_time_l[3:0]>9)
      rgy_time_l[3:0]=9;
     end
     flag_shuma0=rgy_time_l[3:0];
     flag_shuma1=rgy_time_l[7:4];
     end
////////////////////////////////////status 1/////////////////////////////////////////////
if(rgy_status==2'd1)
 begin
  
   if(rgy_time_s==8'h0)
   begin
   rgy_status=2'd2;
   rgy_time_l=8'h31;         //set status 2 time,long time.
   end
   else
   begin
   led_reg_l=6'b001100;  //yellow
   led_reg_r=6'b000011;  //red
   rgy_time_s=rgy_time_s-1;     //status 1,short time
   if(rgy_time_s[3:0]>9)
    rgy_time_s[3:0]=9;
   end
   
   flag_shuma0=rgy_time_s[3:0];
   flag_shuma1=rgy_time_s[7:4];
 end
////////////////////////////////////status 2,long time//////////////////////////////////////
if(rgy_status==2'd2)
  begin
 
  if(rgy_time_l==8'h0)
     begin
     rgy_status=2'd3;
     rgy_time_s=8'h21;    //set status 3 time,short time.
     end
  else
     begin
     led_reg_l=6'b000011;  //red
     led_reg_r=6'b110000;  //blue
   
     rgy_time_l=rgy_time_l-1;    //status 2,long time.
   
    if(rgy_time_l[3:0]>9)
     rgy_time_l[3:0]=9;
     end
   flag_shuma0=rgy_time_l[3:0];
   flag_shuma1=rgy_time_l[7:4];
  end
//////////////////////////////////status  3///////////////////////////////////////////
if(rgy_status==2'd3)
   begin
    
   if(rgy_time_s==8'h0)
      begin 
      rgy_status=2'd0;        //return to status 0
      rgy_time_l=8'h30;       //set status 0 time,long time.
      rgy_time_s=8'h21;
      end
   else
      begin
      led_reg_l=6'b000011;  //red
      led_reg_r=6'b001100;  //yellow
    
      rgy_time_s=rgy_time_s-1;    //status 3,short time
    
      if(rgy_time_s[3:0]>9)
     rgy_time_s[3:0]=9;
      end
    
    
   flag_shuma0=rgy_time_s[3:0];
   flag_shuma1=rgy_time_s[7:4];
  end
 
 
end
////////////////////////////xian shi ji shi///////////////////////////////////
//////////////////////////////////////////////////////////////////////////////////////////

/////////////////////super time(red-------red)/////////////////////////////////////////////
always
begin
    dispdat1=flag_shuma0;
    dispdat2=flag_shuma1;
 if(inter_key==0)
  begin
  flag_led_l=led_reg_l;
  flag_led_r=led_reg_r;
  end
 else
  begin
  dispdat1=4'h10;
  dispdat2=4'h10;
  flag_led_l=6'b000011;
  flag_led_r=6'b000011;
  flag=1'b1;
  end
 
 if(key1==1)
  begin
  reg_dispdat1=dispdat1;
  end
  else
  begin
  //reg_dispdat1=reg_dispdat1+1;
  if(reg_dispdat1==4'h9)
   reg_dispdat1=4'h0;
  end
  
  
 if(key2==1)
  begin
  reg_dispdat2=dispdat2;
  end
  else
  begin
  //reg_dispdat2=reg_dispdat2+1;
  if(reg_dispdat2==4'h9)
   reg_dispdat2=4'h0;
  end
 
 
end
/////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////cun zai wen ti(dai wan shan)///////////////////////////

always @(flag)
begin
 if(flag==1'b1)
  begin
  //flag=1'b0;
  
   //rgy_status=flag_rgy_status;
   //rgy_time=8'h30;    //status 0 time
   //led_reg_l=6'b000000;  
   //led_reg_r=6'b000000;
  
  end
end
///////////////////////////cun zai wen ti///////////////////////////////////////
always @(reg_dispdat1)
 begin
  case(reg_dispdat1)
   4'h0:seg_reg1=7'b1000000;//0
   4'h1:seg_reg1=7'b1111001;//1
   4'h2:seg_reg1=7'b0100100;//2
   4'h3:seg_reg1=7'b0110000;//3
   4'h4:seg_reg1=7'b0011001;//4
   4'h5:seg_reg1=7'b0010010;//5
   4'h6:seg_reg1=7'b0000010;//6
   4'h7:seg_reg1=7'b1111000;//7
   4'h8:seg_reg1=7'b0000000;//8
   4'h9:seg_reg1=7'b0010000;//9
  4'h10:seg_reg1=7'b1111111;//not display
  endcase
 end
//////////////////////////////////////////////////////////////////////////////////////////
always @(reg_dispdat2)
 begin
  case(reg_dispdat2)
   4'h0:seg_reg2=7'b1000000;//0
   4'h1:seg_reg2=7'b1111001;//1
   4'h2:seg_reg2=7'b0100100;//2
   4'h3:seg_reg2=7'b0110000;//3
   4'h4:seg_reg2=7'b0011001;//4
   4'h5:seg_reg2=7'b0010010;//5
   4'h6:seg_reg2=7'b0000010;//6
   4'h7:seg_reg2=7'b1111000;//7
   4'h8:seg_reg2=7'b0000000;//8
   4'h9:seg_reg2=7'b0010000;//9
  4'h10:seg_reg2=7'b1111111;//not display
  endcase
 end
assign led_l=flag_led_l;
assign led_r=flag_led_r;
endmodule
阅读(693) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~