EEPW论坛

跑马灯试验和作业
跑马灯的试验主要是学习移位寄存器。
完成。
下面的程序是用拨码开关控制马跑的方向的。

`timescale 1ns / 1ps

module Led(  sys_clk       ,
       sys_rstn      ,
       led    ,
     sw1
       );
//
input              sys_clk       ;
input              sys_rstn      ;
input              sw1        ;
output    [3:0]    led           ;
//
reg       [3:0]    led           ;
reg       [24:0]   delay_cnt     ;
//
always@(posedge sys_clk or negedge sys_rstn)
 begin
  if(!sys_rstn)
   delay_cnt<=25'd0;
  else if(delay_cnt==25'd14999999)
   delay_cnt<=25'd0;
  else
   delay_cnt<=delay_cnt+1'b1; 
 end
always@(posedge sys_clk or negedge sys_rstn)
 begin
  if(!sys_rstn)
   led<=4'b0111;
  else
   begin
    if(delay_cnt==25'd14999999)
     begin
      if(!sw1)
       led<={led[0],led[3:1]};
      else
       led<={led[2:0],led[3]};
     end 
    else
     led<=led; 
   end
 end
endmodule