终于完善好了，前几天太忙了，没有及时上传，呵呵，今天晚上刚比较早刚好凌晨，及时上传一下，实现了从0000---9999年的时钟，其实万年历和十万年历，都是差不多，等到地球能转到9999年再改代码也不迟，哈哈！！

我这里有顶层和底层文件，顶层主要是调用模块和做按键处理，具体按键防抖动原理，参见偶的以前的博文，我写完这个万年历的代码，还没来得及优化，占用了太多了逻辑门，可以进一步优化。

大致思路是：第一次按下KEY1 的时候，所有计时停止，再按KEY1，年就闪烁，按下KEY2和KEY3 进行加减。再按KEY1，月就闪烁，按下KEY2和KEY3 进行加减........依次为调 年-月-日-星期-时分秒， 再次按一下KEY1，进入正常运行模式。

好了先上顶层模块

module LCD
(
rst,
clk,
rw,
rs,
en,
data,
key1,key2,key3
);
input clk,rst;
input key1,key2,key3;
output rs,en,rw;
output [7:0] data;
reg key1_out,key2_out,key3_out;
wire clk,rst;
wire rs,en,rw;
wire [7:0] data;
disp U1
(
.clk(clk),
.rst(rst),
.rs(rs),
.en(en),
.rw(rw),
.data(data),
.key1(key1_out),
.key2(key2_out),
.key3(key3_out)
);
//=============key1，key2,key3 按键防抖动================//
reg key1_reg1,key1_reg2;
reg key2_reg1,key2_reg2;
reg key3_reg1,key3_reg2;
reg [31:0] count;
always @(posedge clk)
begin
count<=count+1;
if(count==500000)
begin
count<=0;
key1_reg1<=key1;
key2_reg1<=key2;
key3_reg1<=key3;
end
key1_reg2<=key1_reg1;
key2_reg2<=key2_reg1;
key3_reg2<=key3_reg1;
key1_out <= key1_reg2 & (!key1_reg1);
key2_out <= key2_reg2 & (!key2_reg1);
key3_out <= key3_reg2 & (!key3_reg1);
end

endmodule

底层模块：

module disp
(
rst,
clk,
rw,
rs,
en,
data,
key1,key2,key3
);
input clk,rst;
input key1,key2,key3;
output rs,en,rw;
output [7:0] data;
reg rs,en_sel;
reg [7:0] data;
reg [14:0] year;
reg [7:0] shi,fen,miao,month,dat;
reg [31:0]count,count1; //LCD CLK 分频计数器
reg lcd_clk;
//2行32个数据寄存器
reg [7:0] one_1,one_2,one_3,one_4,one_5,one_6,one_7,one_8,one_9,one_10,one_11,one_12,one_13,one_14,one_15,one_16;
reg [7:0] two_1,two_2,two_3,two_4,two_5,two_6,two_7,two_8,two_9,two_10,two_11,two_12,two_13,two_14,two_15,two_16;
reg [7:0] next;
parameter state0 =8'h00, //设置8位格式,2行,5*7 8'h38;
state1 =8'h01, //整体显示,关光标,不闪烁 8'h0C 闪烁 8'h0e
state2 =8'h02, //设定输入方式,增量不移位 8'h06
state3 =8'h03, //清除显示 8'h01
state4 =8'h04, //显示第一行的指令 80H
state5 =8'h05, //显示第二行的指令 80H+40H
scan =8'h06,
nul =8'h07;
parameter data0 =8'h10, //2行32个数据状态
data1 =8'h11,
data2 =8'h12,
data3 =8'h13,
data4 =8'h14,
data5 =8'h15,
data6 =8'h16,
data7 =8'h17,
data8 =8'h18,
data9 =8'h19,
data10 =8'h20,
data11 =8'h21,
data12 =8'h22,
data13 =8'h23,
data14 =8'h24,
data15 =8'h25,
data16 =8'h26,
data17 =8'h27,
data18 =8'h28,
data19 =8'h29,
data20 =8'h30,
data21 =8'h31,
data22 =8'h32,
data23 =8'h33,
data24 =8'h34,
data25 =8'h35,
data26 =8'h36,
data27 =8'h37,
data28 =8'h38,
data29 =8'h39,
data30 =8'h40,
data31 =8'h41;
initial
begin
//第一行显示 年-月-日 星期 //Mon Tue Wed Thur Fri Sat Sun
one_1<=" "; one_2<=" "; one_3<=" "; one_4<=" "; one_5<="-"; one_6<=" "; one_7<=" "; one_8<="-";
one_9<=" ";one_10<=" ";one_11<=" ";one_12<=" ";one_13<=" ";one_14<=" ";one_15<=" ";one_16<=" ";
//第二行显示 Clock:00-00-00
two_1<="C"; two_2<="l"; two_3<="o"; two_4<="c"; two_5<="k"; two_6<=":"; two_7<=" "; two_8<=" ";
two_9<="-";two_10<=" ";two_11<=" ";two_12<="-";two_13<=" ";two_14<=" ";two_15<=" ";two_16<=" ";
shi<=8'd0;fen<=8'd0;miao<=8'd0;
end
//======================产生LCD 时序脉冲===========================
always @ (posedge clk ) //获得LCD时钟
begin
count<=count+1;
if(count==32'd50000)
begin
count<=32'b0;
lcd_clk<=~lcd_clk;
end
end
//=====================产生闪烁扫描时钟===========================
reg [31:0] count2;
reg scan_flag;
always @ (posedge clk or negedge rst) //获得校准时间选中闪烁状态
begin
if(!rst)
begin
scan_flag<=1'b0;
end
else
begin
count2<=count2+1;
if(count2==32'd10000000)
begin
count2<=32'b0;
scan_flag<=~scan_flag;
end
end
end
//====================产生按键标志位=================================
reg [3:0] flag;
always @ (posedge clk or negedge rst )
begin
if(!rst)
begin
flag<=4'b0;
end
else
if(key1)
begin
flag<=flag+1'b1;
if(flag==4'b1000)
flag<=4'b0000;
end
end

//===================计时以及校准=======================================
reg[3:0] week;
reg[7:0] dat_flag;
always @ (posedge clk or negedge rst ) //时钟计数器
begin
if(!rst)
begin //初始化显示 第一行 2012-05-19 Sat 第二行：Clock:00-00-00
shi<=8'b0;fen<=8'b0;miao<=8'b0;
month<=8'd5;dat<=8'd19;year<=16'd2012;week<=4'd5;
count1<=1'b0;
two_7<= (shi/8'd10)+8'b00110000;
two_8<= (shi%8'd10)+8'b00110000;
two_10<=(fen/8'd10)+8'b00110000;
two_11<=(fen%8'd10)+8'b00110000;
two_13<=(miao/8'd10)+8'b00110000;
two_14<=(miao%8'd10)+8'b00110000;
one_1<=(year/16'd1000)+8'b00110000;
one_2<=((year%16'd1000)/16'd100)+8'b00110000;
one_3<=((year%16'd100)/8'd10)+8'b00110000;
one_4<=(year%8'd10)+8'b00110000;
one_6<=(month/8'd10)+8'b00110000;
one_7<=(month%8'd10)+8'b00110000;
one_9<=(dat/8'd10)+8'b00110000;
one_10<=(dat%8'd10)+8'b00110000;
end
else
begin
two_7<= (shi/8'd10)+8'b00110000;
two_8<= (shi%8'd10)+8'b00110000;
two_10<=(fen/8'd10)+8'b00110000;
two_11<=(fen%8'd10)+8'b00110000;
two_13<=(miao/8'd10)+8'b00110000;
two_14<=(miao%8'd10)+8'b00110000;
one_1<=(year/16'd1000)+8'b00110000;
one_2<=((year%16'd1000)/16'd100)+8'b00110000;
one_3<=((year%16'd100)/8'd10)+8'b00110000;
one_4<=(year%8'd10)+8'b00110000;
one_6<=(month/8'd10)+8'b00110000;
one_7<=(month%8'd10)+8'b00110000;
one_9<=(dat/8'd10)+8'b00110000;
one_10<=(dat%8'd10)+8'b00110000;
// 判断是否为31天的月份
if(month==8'd1||month==8'd3||month==8'd5||month==8'd7||month==8'd8||month==8'd10||month==8'd12)
dat_flag<=8'd31;
// 判断是否为30天的月份
else if(month==8'd4||month==8'd6||month==8'd9||month==8'd11)
dat_flag<=8'd30;
// 判断是否为闰年和平年
else if(month==8'd2)
begin
if(year % 4 == 0 && year % 100 != 0 || year % 400 == 0)
dat_flag<=28;
else dat_flag<=27;
end
case (week)
//星期 //Mon Tue Wed Thu Fri Sat Sun
4'b0000 : //1
begin
one_13<="M";one_14<="o";one_15<="n";
end
4'b0001 : //2
begin
one_13<="T";one_14<="u";one_15<="e";
end
4'b0010 : //3
begin
one_13<="W";one_14<="e";one_15<="d";
end
4'b0011 : //4
begin
one_13<="T";one_14<="h";one_15<="u";
end
4'b0100 : //5
begin
one_13<="F";one_14<="r";one_15<="i";
end
4'b0101 : //6
begin
one_13<="S";one_14<="a";one_15<="t";
end
4'b0110 : //7
begin
one_13<="S";one_14<="u";one_15<="n";
end
endcase
case(flag)
4'b0000 :
begin
en_sel<=1'b1;
count1<=count1+1'b1;
if(count1==32'd49999999)
begin
count1<=1'b0;
miao<=miao+1'b1;
if(miao==8'd59)
begin
miao<=1'b0;
fen<=fen+1'b1;
if(fen==8'd59)
begin
fen<=1'b0;
shi<=shi+1'b1;
if(shi==8'd23)
begin
shi<=1'b0;
dat<=dat+1'b1;
week<=week+1'b1;
if(week==4'b0110)
week<=1'b1;
if(dat==dat_flag)
begin
dat<=8'd1;
month<=month+1'b1;
if(month==8'd12)
begin
month<=8'd1;
year<=year+1'b1;
if(year==16'd9999)
year<=16'd0; //可以计1万年
end
end
end
end
end
end
end
4'b0001 :
begin
count1<=32'b0; //shi<=shi;fen<=fen;miao<=miao;year<=year;month<=month;dat<=dat;week<=week;
end
4'b0010 : //调年
begin
case(scan_flag)
1'b0:
begin
count1<=32'b0; //shi<=shi;fen<=fen;miao<=miao;
one_1<=8'd20;one_2<=8'd20;one_3<=8'd20;one_4<=8'd20;
end
1'b1:
begin
count1<=32'b0; //shi<=shi;fen<=fen;miao<=miao;
end
endcase
if(key2) //加数
begin
year<=year+1'b1;
if(year==16'd9999)
year<=16'd0;
end
if(key3) //减数
begin
year<=year-1'b1;
if(year==16'd0)
year<=16'd9999;
end
end
4'b0011 : //调月
begin
case(scan_flag)
1'b0:
begin
count1<=32'b0; //shi<=shi;fen<=fen;miao<=miao;
one_6<=8'd20;one_7<=8'd20;
end
1'b1:
begin
count1<=32'b0; //shi<=shi;fen<=fen;miao<=miao;
end
endcase
if(key2) //加数
begin
month<=month+1'b1;
if(month==8'd12)
month<=8'd0;
end
if(key3) //减数
begin
month<=month-1'b1;
if(month==8'd0)
month<=8'd12;
end
end
4'b0100 : //调日
begin
case(scan_flag)
1'b0:
begin
count1<=32'b0; //shi<=shi;fen<=fen;miao<=miao;
one_9<=8'd20;one_10<=8'd20;
end
1'b1:
begin
count1<=32'b0; //shi<=shi;fen<=fen;miao<=miao;
end
endcase
if(key2) //加数
begin
dat<=dat+1'b1;
if(dat==dat_flag)
dat<=8'd0;
end
if(key3) //减数
begin
dat<=dat-1'b1;
if(dat==8'd0)
dat<=dat_flag;
end
end
4'b0101 : //调星期
begin
case(scan_flag)
1'b0:
begin
count1<=32'b0; //shi<=shi;fen<=fen;miao<=miao;
one_13<=8'd20;one_14<=8'd20;one_15<=8'd20;
end
1'b1:
begin
count1<=32'b0; //shi<=shi;fen<=fen;miao<=miao;
end
endcase
if(key2) //加数
begin
week<=week+1'b1;
if(week==4'd6)
week<=4'd0;
end
if(key3) //减数
begin
week<=week-1'b1;
if(week==4'd0)
week<=4'd7;
end
end
4'b0110 : //调时
begin
case(scan_flag)
1'b0:
begin
count1<=32'b0; //shi<=shi;fen<=fen;miao<=miao;
two_7<= 8'd20;
two_8<= 8'd20;
end
1'b1:
begin
count1<=32'b0; //shi<=shi;fen<=fen;miao<=miao;
end
endcase
if(key2) //加数
begin
shi<=shi+8'b00000001;
if(shi==8'd23)
shi<=8'b0;
end
if(key3) //减数
begin
shi<=shi-8'b00000001;
if(shi==8'b0)
shi<=23;
end
end
4'b0111 : //调分
begin
case(scan_flag)
1'b0:
begin
count1<=32'b0; //shi<=shi;fen<=fen;miao<=miao;
two_10<=8'd20;
two_11<=8'd20;
end
1'b1:
begin
count1<=32'b0; //shi<=shi;fen<=fen;miao<=miao;
end
endcase
if(key2) //加数
begin
fen<=fen+8'b00000001;
if(fen==8'd59)
fen<=8'b0;
end
if(key3) //减数
begin
fen<=fen-8'b00000001;
if(fen==8'b0)
fen<=59;
end
end
4'b1000 : //调秒
begin
case(scan_flag)
1'b0:
begin
count1<=32'b0; //shi<=shi;fen<=fen;miao<=miao;
two_13<=8'd20;
two_14<=8'd20;
end
1'b1:
begin
count1<=32'b0; //shi<=shi;fen<=fen;miao<=miao;
end
endcase
if(key2) //加数
begin
miao<=miao+8'b00000001;
if(miao==8'd59)
miao<=8'b0;
end
if(key3) //减数
begin
miao<=miao-8'b00000001;
if(miao==8'b0)
miao<=59;
end
end
endcase
end
end

always @(posedge lcd_clk )
begin
case(next)
state0 :
begin rs<=1'b0; data<=8'h38; next<=state1; end
state1 :
begin rs<=1'b0; data<=8'h0e; next<=state2; end
state2 :
begin rs<=1'b0; data<=8'h06; next<=state3; end
state3 :
begin rs<=1'b0; data<=8'h01; next<=state4; end
state4 :
begin rs<=1'b0; data<=8'h80; next<=data0; end //显示第一行
data0 :
begin rs<=1'b1; data<=one_1; next<=data1 ; end
data1 :
begin rs<=1'b1; data<=one_2; next<=data2 ; end
data2 :
begin rs<=1'b1; data<=one_3; next<=data3 ; end
data3 :
begin rs<=1'b1; data<=one_4; next<=data4 ; end
data4 :
begin rs<=1'b1; data<=one_5; next<=data5 ; end
data5 :
begin rs<=1'b1; data<=one_6; next<=data6 ; end
data6 :
begin rs<=1'b1; data<=one_7; next<=data7 ; end
data7 :
begin rs<=1'b1; data<=one_8; next<=data8 ; end
data8 :
begin rs<=1'b1; data<=one_9; next<=data9 ; end
data9 :
begin rs<=1'b1; data<=one_10; next<=data10 ; end
data10 :
begin rs<=1'b1; data<=one_11; next<=data11 ; end
data11 :
begin rs<=1'b1; data<=one_12; next<=data12 ; end
data12 :
begin rs<=1'b1; data<=one_13; next<=data13 ; end
data13 :
begin rs<=1'b1; data<=one_14; next<=data14 ; end
data14 :
begin rs<=1'b1; data<=one_15; next<=data15 ; end
data15 :
begin rs<=1'b1; data<=one_16; next<=state5 ; end
state5:
begin rs<=1'b0;data<=8'hC0; next<=data16; end //显示第二行
data16 :
begin rs<=1'b1; data<=two_1; next<=data17 ; end
data17 :
begin rs<=1'b1; data<=two_2; next<=data18 ; end
data18 :
begin rs<=1'b1; data<=two_3; next<=data19 ; end
data19 :
begin rs<=1'b1; data<=two_4; next<=data20 ; end
data20 :
begin rs<=1'b1; data<=two_5; next<=data21 ; end
data21 :
begin rs<=1'b1; data<=two_6; next<=data22 ; end
data22 :
begin rs<=1'b1; data<=two_7; next<=data23 ; end
data23 :
begin rs<=1'b1; data<=two_8; next<=data24 ; end
data24 :
begin rs<=1'b1; data<=two_9; next<=data25 ; end
data25 :
begin rs<=1'b1; data<=two_10; next<=data26 ; end
data26 :
begin rs<=1'b1; data<=two_11; next<=data27 ; end
data27 :
begin rs<=1'b1; data<=two_12; next<=data28 ; end
data28 :
begin rs<=1'b1; data<=two_13; next<=data29 ; end
data29 :
begin rs<=1'b1; data<=two_14; next<=data30 ; end
data30 :
begin rs<=1'b1; data<=two_15; next<=data31 ; end
data31 :
begin rs<=1'b1; data<=two_16; next<=scan ; end
scan : //交替更新第一行和第二行数据
begin
next<=state4;
end
default: next<=state0;
endcase
end
assign en=lcd_clk && en_sel;
assign rw=1'b0;
endmodule