//间隔点亮发光二极管
module led_interval
(sys_rst,sys_clk,
led);
input sys_rst;
input sys_clk;
output led;
reg [3:0] led;
reg [25:0] delay_cnt;
reg [2:0] display;
always@(posedge sys_clk or negedge sys_rst)
begin
if(!sys_rst)
delay_cnt<=26'd0;
else if(delay_cnt==26'd49999999)
delay_cnt<=26'd0;
else
delay_cnt<=delay_cnt+1'b1;
end
always@(posedge sys_clk or negedge sys_rst)
begin
if(!sys_rst)
display<=2'd0;
else if(delay_cnt==26'd49999999)
display<=display+1'b1;
else
display<=display;
end
always@(display)
begin
case(display)
3'h1: led=4'b1110;
3'h2: led=4'b1111;
3'h3: led=4'b1011;
3'h4: led=4'b1111;
3'h5: led=4'b1101;
3'h6: led=4'b1111;
3'h7: led=4'b0111;
3'h8: led=4'b1111;
endcase
end
endmodule
//向左流水灯功能
module led_yjg (sys_rst,
sys_clk,
led);
input sys_rst;
input sys_clk;
output led;
reg [3:0] led;
reg [25:0] delay_cnt;
reg [1:0] display;
always @ (posedge sys_clk or negedge sys_rst)
begin
if(!sys_rst)
delay_cnt<=26'd0;
else if(delay_cnt==26'd49999999)
delay_cnt<=26'd0;
else
delay_cnt<=delay_cnt+1'b1;
end
always @ (posedge sys_clk or negedge sys_rst)
begin
if(!sys_rst)
display<=2'd0;
else if(delay_cnt==26'd49999999)
display<=display+1'b1;
else
display<=display;
end
always @ (display)
begin
case(display)
2'h1: led=4'b0111;
2'h2: led=4'b0011;
2'h3: led=4'b0001;
2'h4: led=4'b0000;
endcase
end
endmodule
//向右跑马灯功能
module horse_lamp_right (sys_rst,
sys_clk,
led);
input sys_rst;
input sys_clk;
output led;
reg [3:0] led;
reg [25:0] delay_cnt;
reg [1:0] display;
always @ (posedge sys_clk or negedge sys_rst)
begin
if(!sys_rst)
delay_cnt<=26'd0;
else if(delay_cnt==26'd49999999)
delay_cnt<=26'd0;
else
delay_cnt<=delay_cnt+1'b1;
end
always @ (posedge sys_clk or negedge sys_rst)
begin
if(!sys_rst)
display<=2'd0;
else if(delay_cnt==26'd49999999)
display<=display+1'b1;
else
display<=display;
end
always @ (display)
begin
case(display)
2'h1: led=4'b1110;
2'h2: led=4'b1101;
2'h3: led=4'b1011;
2'h4: led=4'b0111;
endcase
end
endmodule
回复
我要赚赏金打赏帖 |
|
|---|---|
| 设备功耗web监控界面(ESP32C5)被打赏¥28元 | |
| OrangePiZero2W系统被打赏¥33元 | |
| Linux环境下以模拟方式快速实现出入管理功能测试被打赏¥24元 | |
| 树莓派3+Klipper,老3D打印机满血升级被打赏¥33元 | |
| OK1126B-S开发板下串口屏及其应用被打赏¥21元 | |
| 低功耗超声波液位测距仪(ESP32S3)被打赏¥27元 | |
| 在K230DBOX上实现多时段语音提示功能被打赏¥14元 | |
| 使K230DBOX实现相机持续拍照功能被打赏¥12元 | |
| 基于K230DBOX的文本管理器设计被打赏¥14元 | |
| 基于K230DBOX的彩色画板功能实现被打赏¥15元 | |
我要赚赏金
