数码管一些列功能的verilog实现
将数码管各段发光元件的正极连在一起称为共阳数码管，且该共点击链接电路电源的正极，而各段的负极连接驱动电路。它适用于低电平有效的驱动电路，当某段的驱动电平为低电平时，该段发亮；将数码管各段发光元件的负极连在一起称为共阴数码管，且该电平连接电源的负极，而各段元件的正极驱动电路，它适用于高电平有效的驱动电路，当某段的驱动电平为高电平，该段发光。
1.数码管的动态显示 驱动多位数码管需要动态扫描显示，假如是8位数码管显示，则需要先设计一个计数器，8位计数器，不断扫描。动态扫描显示时刷新频率最好大于50HZ,即显示一轮的时间不要超过20ms，每个数码管显示时间不能太长也不能太短，时间太长会影响刷新频率，导致整体出现闪烁的现象，时间太短发生二极管的电流导通时间也就短，会影响总体的显示亮度。一般控制在1ms左右。
module seg(clk,wei,duan);//50MHZ时钟输入，duan:数码管位吗，wei:数码管段码，‘0’led亮
input clk;
output [7:0]wei;
output [7:0]duan;
reg [7:0]wei;
reg [7:0]duan;
integer count;//分频计数器，每计数到50000下clk_1k时钟翻转
reg clk_1k;//数码管扫描时钟2ms
reg [2:0]wei_count;//位码计数器 always @(posedge clk)//分频进程
begin
if(count==500000)
begin
count=0;
clk_1k=~clk_1k;
end
else
count=count+1;
end always @(posedge clk_1k)//数码管扫描进程
begin
case(wei_count)
3'b000: begin wei=8'b11111110; duan=8'b0000_0000;wei_count=wei_count+1'b1;end
3'b001: begin wei=8'b11111101; duan=8'b0000_0000;wei_count=wei_count+1'b1;end
3'b010: begin wei=8'b11111011; duan=8'b0000_0000;wei_count=wei_count+1'b1;end
3'b011: begin wei=8'b11110111; duan=8'b0000_0000;wei_count=wei_count+1'b1;end
3'b100: begin wei=8'b11101111; duan=8'b0000_0000;wei_count=wei_count+1'b1;end
3'b101: begin wei=8'b11011111; duan=8'b0000_0000;wei_count=wei_count+1'b1;end
3'b110: begin wei=8'b10111111; duan=8'b0000_0000;wei_count=wei_count+1'b1;end
3'b111: begin wei=8'b01111111; duan=8'b0000_0000;wei_count=wei_count+1'b1;end
endcase
end
endmodule
2.秒表数码管显示 ：秒表的设计原理：首先通过分频器产生一个频率为1HZ的时钟座位计数源，设置两个寄存器分别用来存储计数值，一个为寄存个位数，一个寄存十位数，同时同时产生一个数码管位选时钟，用来对数码管的位选进行扫描。（0到60，秒表）
module second(clk,duan,wei);//clk:50MHZ时钟输入，duan:数码管段码，wei:数码管位码
input clk;
output [7:0]duan;
output [1:0]wei;
reg [7:0]duan;
reg [1:0]wei; integer count;//1HZ时钟计数器
integer count2;//扫描时钟计数器
reg clk_1hz;//1HZ时钟信号 reg [3:0]ge;//数码管个位数BCD码
reg [2:0]shi;//数码管十位BCD二进制码 reg clk_scan;//数码管扫描时钟
reg select; always @(posedge clk)//1HZ时钟进程
begin
if(count==25000000)
begin
clk_1hz=~clk_1hz;
count=0;
end
else
count=count+1'b1;
end always @(posedge clk_1hz)//秒表功能进程
begin
if(ge==4'b1001)
begin
ge=4'b0000;
if(shi==3'b101)
shi=3'b000;
else
shi=shi+1'b1;
end else
ge=ge+1'b1;
end always @(posedge clk)//数码管扫描时钟产生进程
begin
if(count2==50000)
begin
count2=0;
clk_scan=~clk_scan;
end
else
count2=count2+1;
end always @(posedge clk_scan)
begin
select=select+1'b1;
end always @(ge or shi or select)
begin
if(select==1'b1)
begin
wei=2'b10;//秒表个位数显示
case(ge)
4'b0000:begin duan=8'b1100_0000;end
4'b0001:begin duan=8'b1111_1001;end
4'b0010:begin duan=8'b1010_0100;end
4'b0011:begin duan=8'b1011_0000;end
4'b0100:begin duan=8'b1001_1001;end
4'b0101:begin duan=8'b1001_0010;end
4'b0110:begin duan=8'b1000_0011;end
4'b0111:begin duan=8'b1111_1000;end
4'b1000:begin duan=8'b1000_0000;end
4'b1001:begin duan=8'b1001_1000;end
default duan=8'bx;
endcase
end
else
begin wei=2'b01;//秒表十位数显示
case(shi)
3'b000:duan=8'b1100_0000;
3'b001:duan=8'b1111_1001;
3'b010:duan=8'b1010_0100;
3'b011:duan=8'b1011_0000;
3'b100:duan=8'b1001_1001;
3'b101:duan=8'b1001_0010;
3'b110:duan=8'b1000_0011;
default duan=8'bx;
endcase
end
end
endmodule
3.时钟数码管显示：首先通过分频器产生一个频率为1HZ的时钟作为计数源，设置六个寄存器分别用来存储竖直，时分秒各用两个寄存器，一个为寄存个位数，另一个寄存十位数。当秒计数到达59时便向分进一，同时秒清零；当分计数达到59时，便向时进一，同时分清零；当时计数到达24时将时分秒计数寄存器同时清零。产生一个数码管位选时钟，用来对数码管的位选进行扫描。
module time_clock(clk,duan,wei);//clk:50MHZ时钟输入，duan:数码管段码，wei:数码管位码
input clk;
output [7:0]duan;
output [5:0]wei;
reg [7:0]duan;
reg [5:0]wei; integer count;//1HZ时钟计数器
integer count2;//扫描时钟计数器
reg clk_1hz;//1HZ时钟信号 reg [3:0]miao_ge;//秒个位数BCD码
reg [2:0]miao_shi;//秒十位BCD二进制码
reg [3:0]fen_ge;//分钟个位数
reg [2:0]fen_shi;//分钟十位数
reg [1:0]shi_ge;//时钟个位数
reg [1:0]shi_shi;//时钟十位数 reg clk_scan;//数码管扫描时钟
reg [2:0]select; //用于扫描时选择显示位码 always @(posedge clk)//1HZ时钟进程
begin
if(count==25000000)
begin
clk_1hz<=~clk_1hz;
count<=0;
end
else
count<=count+1'b1;
end always @(posedge clk_1hz)//秒分时各位累加功能进程
begin
if(miao_ge==4'b1001)
begin
miao_ge<=4'b0000;
if(miao_shi==3'b101)
begin
miao_shi<=3'b000;
if(fen_ge==4'b1001)
begin
fen_ge<=4'b0000;
if(fen_shi==3'b101)
begin
fen_shi<=3'b000;
if(shi_ge==2'b11)
begin
shi_ge<=2'b00;
if(shi_shi==2'b10)
shi_shi<=2'b00;
else
shi_shi<=shi_shi+1'b1;
end
else
shi_ge<=shi_ge+1'b1;
end
else
fen_shi<=fen_shi+1'b1;
end
else
fen_ge<=fen_ge+1'b1;
end
else
miao_shi<=miao_shi+1'b1;
end else
miao_ge<=miao_ge+1'b1;
end always @(posedge clk)//数码管扫描时钟产生进程
begin
if(count2==10000)
begin
count2<=0;
clk_scan<=~clk_scan;
end
else
count2<=count2+1;
end always @(posedge clk_scan)
begin
if(select==3'b110)
select<=3'b000;
else
select<=select+1'b1; end always @(miao_ge or miao_shi or fen_ge or fen_shi or shi_ge or shi_shi or select)//敏感信号列表
begin
if(select==3'b001)
begin
wei<=6'b111110;//秒个位数显示
case(miao_ge)
4'b0000:begin duan<=8'b1100_0000;end
4'b0001:begin duan<=8'b1111_1001;end
4'b0010:begin duan<=8'b1010_0100;end
4'b0011:begin duan<=8'b1011_0000;end
4'b0100:begin duan<=8'b1001_1001;end
4'b0101:begin duan<=8'b1001_0010;end
4'b0110:begin duan<=8'b1000_0011;end
4'b0111:begin duan<=8'b1111_1000;end
4'b1000:begin duan<=8'b1000_0000;end
4'b1001:begin duan<=8'b1001_1000;end
default duan<=8'bx;
endcase
end else if(select==3'b010)
begin
wei<=6'b111101;//秒十位数显示
case(miao_shi)
3'b000:duan<=8'b1100_0000;
3'b001:duan<=8'b1111_1001;
3'b010:duan<=8'b1010_0100;
3'b011:duan<=8'b1011_0000;
3'b100:duan<=8'b1001_1001;
3'b101:duan<=8'b1001_0010;
3'b110:duan<=8'b1000_0011;
default duan<=8'bx;
endcase
end else if(select==3'b011)
begin
wei<=6'b111011;//分钟个位数显示
case(fen_ge)
4'b0000:begin duan<=8'b1100_0000;end
4'b0001:begin duan<=8'b1111_1001;end
4'b0010:begin duan<=8'b1010_0100;end
4'b0011:begin duan<=8'b1011_0000;end
4'b0100:begin duan<=8'b1001_1001;end
4'b0101:begin duan<=8'b1001_0010;end
4'b0110:begin duan<=8'b1000_0011;end
4'b0111:begin duan<=8'b1111_1000;end
4'b1000:begin duan<=8'b1000_0000;end
4'b1001:begin duan<=8'b1001_1000;end
default duan<=8'bx;
endcase
end else if(select==3'b100)
begin
wei<=6'b110111;//分钟十位数显示
case(fen_shi)
3'b000:duan<=8'b1100_0000;
3'b001:duan<=8'b1111_1001;
3'b010:duan<=8'b1010_0100;
3'b011:duan<=8'b1011_0000;
3'b100:duan<=8'b1001_1001;
3'b101:duan<=8'b1001_0010;
3'b110:duan<=8'b1000_0011;
default duan<=8'bx;
endcase
end else if(select==3'b101)
begin
wei<=6'b101111;//时钟个位数显示
case(shi_ge)
4'b0000:begin duan<=8'b1100_0000;end
4'b0001:begin duan<=8'b1111_1001;end
4'b0010:begin duan<=8'b1010_0100;end
4'b0011:begin duan<=8'b1011_0000;end
default duan<=8'bx;
endcase
end else
begin
wei<=6'b011111;//时钟十位数显示
case(shi_shi)
3'b000:duan<=8'b1100_0000;
3'b001:duan<=8'b1111_1001;
3'b010:duan<=8'b1010_0100;
default duan<=8'bx;
endcase
end
end endmodule
数码管一些列功能的verilog实现的更多相关文章
- JS组件系列——Bootstrap Table 冻结列功能IE浏览器兼容性问题解决方案
前言:最近项目里面需要用到表格的冻结列功能,所谓“冻结列”,就是某些情况下表格的列比较多,需要固定前面的几列,后面的列滚动.遗憾的是,bootstrap table里自带的fixed column功能 ...
- sql内置函数pivot强大的行转列功能
原文:sql内置函数pivot强大的行转列功能 语法: PIVOT用于将列值旋转为列名(即行转列),在SQL Server 2000可以用聚合函数配合CASE语句实现 PIVOT的一般语法是:PIVO ...
- JS组件系列——自己动手扩展BootstrapTable的 冻结列 功能：彻底解决高度问题
前言:一年前,博主分享过一篇关于bootstrapTable组件冻结列的解决方案 JS组件系列——Bootstrap Table 冻结列功能IE浏览器兼容性问题解决方案 ,通过该篇,确实可以实现bo ...
- Bootstrap Blazor 组件介绍 Table （一）自动生成列功能介绍
Bootstrap Blazor 是一套企业级 UI 组件库,适配移动端支持各种主流浏览器,已经在多个交付项目中使用.通过本套组件可以大大缩短开发周期,节约开发成本.目前已经开发.封装了 70 多个组 ...
- mysql实现行转列功能
实现从图一转行成图二的功能: 图一: 图二: 建表语句: CREATE TABLE `t_user_score` ( `id` ) NOT NULL AUTO_INCREMENT COMMENT '主 ...
- Bootstrap Blazor 组件介绍 Table （二）自定义模板列功能介绍
Bootstrap Blazor 是一套企业级 UI 组件库,适配移动端支持各种主流浏览器,已经在多个交付项目中使用.通过本套组件可以大大缩短开发周期,节约开发成本.目前已经开发.封装了 70 多个组 ...
- sql强大的行转列功能（内置函数pivot及注意事项）
语法: PIVOT用于将列值旋转为列名(即行转列),在SQL Server 2000可以用聚合函数配合CASE语句实现 PIVOT的一般语法是:PIVOT(聚合函数(列) FOR 列 in (…) ) ...
- 固定GridView标题栏，冻结列功能实现
<%@ Page Language="C#" %> <%@ Import Namespace="System.Data" %> < ...
- VS2010,VS2013 Datagridview控件的编辑列功能，弹窗界面被挤扁了
搜了很久,没找到解决办法,在一个角落看到说要卸载Framework,实践后可以,发出来记一下. 解决办法: 发现自己电脑上多了Framework4.8,可能安装VS2013的时候自动安装的. 卸载了F ...
随机推荐
- mybatis内置参数及foreach使用
- UnityShader - 渲染管线
定义: 显卡内部处理图像信号的并行处理单元,也称为渲染流水线 发生位置: CPU和GPU 渲染机理: 将图像所具备的图形信息(顶点.纹理.材质.摄像机位置等)经过一系列阶段的处理,最终转换为屏幕上的图 ...
- Java线程synchronized(一)
线程安全概念:当多个线程访问某一个类(对象或方法)时,这个对象始终都能表现出正确的行为,那么这个类(对象或方法)就是线程安全的. synchronized:可以在任意对象及方法上加锁,而加锁的这段代码 ...
- ADO,net 实体数据模型增、删、改，浅谈
第一步:建立ADO.net数据模型,一步步操作就行 第二步:画个简单的测试界面 第三步铺代码 using DevComponents.DotNetBar.SuperGrid; using DevCom ...
- Linux环境下安装mysql服务
我使用的是阿里云的ECS服务,系统是CentOS7,安装mysql版本是5.7 第一步,通过 wget -i -c http://dev.mysql.com/get/mysql57-community ...
- .NET CORE 技术债
技术债:OCELOT 网关/熔断/降级/限流CONSUL 服务注册/发现CAP 分布式事件总线SKYWALKING 微服务监控
- 在线生成二维码API接口
1.http://s.jiathis.com/qrcode.php?url=kk 2.http://qr.liantu.com/api.php?text=kk 3.http://api.k780.co ...
- python3 提示sqlite模块不存在
首先yum install sqlite-devel -y 然后重装下python3(一定要重装)# cd Python-3.4.2# ./configure --prefix=/usr/local/ ...
- sqlserver存储过程里传字段、传字符串，并返回DataTable、字符串,存储过程调用存储过程。
经常需要查一些信息, 想写视图来返回数据以提高效率,但是用试视图不能传参,只好想到改存储过程.记录一下语法,方便以后做项目时候想不起来了用. 1:传字段返回datatable 2: 传字段回一串字符 ...
- Django-admin数据库记录展示调整
Django-admin数据库记录展示调整 admin.py from django.contrib import admin from user import models # Register y ...