EEPW论坛

数字钟：有按键消抖，s1键调小时，s2键调分钟，s3键对s清零，另外附带呼吸灯，到59m时开始呼吸，也可以改成倒数8s，led倒计时。

module clock(clk_50m,rstc,keys,sm_seg_out,sm_bit_out,ledbre);
input clk_50m; //50M jing zhen
input rstc; //fu wei
input [2:0] keys; //s qing 0:keys[2]; tiao fen :keys[1];tiao shi :keys[0]
//reg [3:0] ledcnt; //8s led dao ji shi
/*****************???**********************/
output [7:0] ledbre; //led shu chu
reg [7:0] ledbre;
reg [27:0] counter; //hu xi deng zhou qi tiao zheng
reg [6:0] PWM_adj;
reg [7:0] PWM_width;
/*******************??***********************/
reg [19:0] cnt20ms; //ji shi 20ms: jian pan xiao dou
reg [2:0] key_samp1; //20ms qian jian pan cai yang
reg [2:0] key_samp2; //20ms hou jian pan cai yang
reg [2:0] key_samp1_lock; //20ms qian cai yang ji cun
reg [2:0] key_samp2_lock ; //20ms hou cai yang ji cun
wire [2:0] key_change1; //pan duan shi fou you an jian an xia
wire [2:0] key_change2; //20ms hou shi fou an jian zhi bian dong
reg [2:0] okeys; //an jian shu chu
/*************display***************/
output [7:0] sm_seg_out; //shu ma guan duan xuan
output [7:0] sm_bit_out; //wei xuan
reg [7:0] sm_seg_out;
reg [7:0] sm_bit_out;
reg [4:0] dis_dat; //shu chu shu zi
reg [2:0] dis_loca; //shu ma guan cao miao
reg [3:0] sec11,min11; //s ge wei ,m ge wei
reg [2:0] sec12,min12; //s shi wei,m shi wei
reg [3:0] hou11;
reg [1:0] hou12;
parameter width = 15; //1ms ji shi
reg [width:0] cntms; //1ms ji shi
reg [26:0] cnt; //1s ji shi
parameter fre = 4999_9999; // 1s
/******************jian pan xiao dou kai shi**************************/
always @(posedge clk_50m or negedge rstc)
if(!rstc)
key_samp1 <= 3'b111;
else
key_samp1 <= keys; //dui keys cai yang

always @(posedge clk_50m or negedge rstc)
if(!rstc)
key_samp1_lock <= 3'b111;
else
key_samp1_lock <= key_samp1; //dui keys cai yang zhi ji cun
assign key_change1 = key_samp1_lock & (~key_samp1); //key_change1 pan duan shi fou you an jian an xia
///////////////////////////////////////////////////////
always @(posedge clk_50m or negedge rstc)
if(!rstc)
cnt20ms <= 20'b0;
else if(key_change1) //you an jian an xia ji dui 20ms ji shu qi qing 0
cnt20ms <= 20'b0;
else
cnt20ms <= cnt20ms + 1'b1;
always @(posedge clk_50m or negedge rstc) //20ms yan shi hou zai ci cai yang ,yi xia zhu shi tong shi
if(!rstc)
key_samp2 <= 3'b111;
else if(cnt20ms == 20'd100_0000)
begin
key_samp2 <= keys;
end
always @(posedge clk_50m or negedge rstc)
if(!rstc)
key_samp2_lock <= 3'b111;
else
key_samp2_lock <= key_samp2;
assign key_change2 = key_samp2_lock & (~key_samp2);// key_change2 = 1 biao shi que shi you an jian an xia
///////////////////////////////////////////////
always @(posedge clk_50m or negedge rstc)
if(!rstc)
okeys <= 3'b111;
else
okeys <= ~key_change2; //fu zhi gei okeys
/*************************jian pan xiao dou jie shu*******************************/
/********************* 1s fen pin*********************/
always @(posedge clk_50m or negedge rstc)
begin
if(!rstc)
cnt<=1'b0;
else if(cnt == fre)
cnt <= 1'b0;
else
cnt <= cnt + 1'b1;
end
/******************* 1ms fen pin ,yong yu shu ma guan sao miao*****************************/
always @(posedge clk_50m or negedge rstc)
begin
if(!rstc)
cntms<=16'd0;
else
begin
if(cntms == 16'd49999)
cntms <= 16'd0;
else cntms <= cntms + 1'b1;
end
end
/*******************tiao zheng shi zhong*****************************/
always @(posedge clk_50m or negedge rstc)
begin
if(!rstc)
begin
sec11 <= 1'b0;
sec12 <= 1'b0;
min11 <= 1'b0;
min12 <= 1'b0;
hou11 <= 1'b0;
hou12 <= 1'b0;
end
else if(!okeys[2]) //qing 0
begin
sec11 <= 1'b0;
sec12 <= 1'b0;
end
else if(!okeys[1]) //tiao fen
begin
min11 <= min11 + 1'b1;
if((min11 == 4'b1001)&&(min12 ==3'b101))
begin
min11 <= 1'b0;
min12 <= 1'b0;
end
else if(min11 == 4'b1001)
begin
min11 <= 1'b0;
min12 <= min12 + 1'b1;
end
end
else if(!okeys[0]) //tiao shi
begin
hou11 <= hou11 +1'b1;
if((hou11 == 4'b0011)&&(hou12 == 2'b10))
begin
hou11 <= 1'b0;
hou12 <= 1'b0;
end
else if(hou11 == 4'b1001)
begin
hou11 <= 1'b0;
hou12 <= hou12 + 1'b1;
end
end
///////////////////zheng chang ji shi/////////////////////
else if(cnt == fre)
begin
if(sec11 == 4'd9) /****************??sec11????????******************/
begin
sec11 <= 1'b0;
if(sec12 ==3'd5) /**************??sec12????????*****************/
begin
sec12 <= 1'b0;
if(min11 == 4'd9) /****************??min11*************************/
begin
min11 <= 1'b0;
if(min12 == 3'd5) /**********??min12**************/
begin
min12 <= 1'b0;
if(hou11 == 4'd9) /****??hou11*****/
begin
hou11 <= 1'b0;
hou12 <= hou12 + 1'b1;
end
//////
else
begin
if((hou12 == 2'd2)&&(hou11 == 4'd3))
begin
hou11 <= 1'b0;
hou12 <= 1'b0;
end
else
begin
hou11 <= hou11 + 1'b1;
hou12 <= hou12;
end /*hhhhhhhhhhhhhhhhhhhhhh*/
end
end
else min12 <= min12 +1'b1 ; /**********min12**************/
end
else min11 <= min11+1'b1; /*mmmmmmmmmm11mmmmmmmmm*/
end
else sec12 <= sec12+1'b1 ; /**************sec12*****************/
end
else sec11 <= sec11+1'b1; /****************sec11******************/
end
else //wei dao 1s ji xu bao chi
begin
sec11 <= sec11;
sec12 <= sec12;
min11 <= min11;
min12 <= min12;
hou11 <= hou11;
hou12 <= hou12;
end
end
////////////////////////////////////////////////////
//////////////display/////////////////
always @(posedge clk_50m or negedge rstc) //1ms
begin
if(!rstc)
dis_loca <= 3'd0;
else
begin
if(cntms == 49999)
if(dis_loca == 3'b111)
dis_loca <= 3'b000;
else
dis_loca <= dis_loca + 1'b1;
else dis_loca <= dis_loca;
end
end

always @(dis_loca)
case(dis_loca)
3'b000 : sm_bit_out = 8'b1111_1110;
3'b001 : sm_bit_out = 8'b1111_1101;
3'b010 : sm_bit_out = 8'b1111_1011;
3'b011 : sm_bit_out = 8'b1111_0111;
3'b100 : sm_bit_out = 8'b1110_1111;
3'b101 : sm_bit_out = 8'b1101_1111;
3'b110 : sm_bit_out = 8'b1011_1111;
3'b111 : sm_bit_out = 8'b0111_1111;
default : sm_bit_out = 8'b1111_1111;
endcase

always @(sm_bit_out or sec11 or sec12 or min11 or min12 or hou11 or hou12)
case(sm_bit_out)
8'b1111_1110 : dis_dat = sec11; //s ge wei
8'b1111_1101 : dis_dat = sec12;
8'b1111_1011 : dis_dat = 4'b1010;
8'b1111_0111 : dis_dat = min11; //m ge wei
8'b1110_1111 : dis_dat = min12;
8'b1101_1111 : dis_dat = 4'b1010;
8'b1011_1111 : dis_dat = hou11; //h ge wei
8'b0111_1111 : dis_dat = hou12;
default : dis_dat = 4'b1011;
endcase

always @(dis_dat)
case(dis_dat)
4'b0000 : sm_seg_out = 8'hc0; //0
4'b0001 : sm_seg_out = 8'hf9; //1
4'b0010 : sm_seg_out = 8'ha4; //2
4'b0011 : sm_seg_out = 8'hb0; //3
4'b0100 : sm_seg_out = 8'h99; //4
4'b0101 : sm_seg_out = 8'h92; //5
4'b0110 : sm_seg_out = 8'h82; //6
4'b0111 : sm_seg_out = 8'hf8; //7
4'b1000 : sm_seg_out = 8'h80; //8
4'b1001 : sm_seg_out = 8'h90; //9
4'b1010 : sm_seg_out = 8'hbf; //-
4'b1011 : sm_seg_out = 8'hff; //null shu ma guan quan mie ,ju shi yan zhe neng xiao chu
shu ma guan xian shi de can ying
default : sm_seg_out = 8'hff; //null shu ma guan quan mie ,ju shi yan zhe neng xiao chu shu ma guan xian shi de can ying
endcase
always @(posedge clk_50m or negedge rstc) //hu xi deng 1m dao ji shi huo zhe shi 8s dao ji shi
begin
if(!rstc)
begin
// counter <= 0; //8s led dao ji shi
ledbre <= 8'b1111_1111;
end
else
/*begin
if((cnt == fre)&&(min11 == 4'd9)&&(min12 == 3'd5)&&((sec11 <= 4'd9)&&(sec12 == 3'd5)&&(sec11 >= 4'd1)))
begin
if(ledcnt == 4'b1000)
ledcnt <= 4'b0;
else
ledcnt <= ledcnt + 1'b1;
end
else
case(ledcnt)
4'b0000 : ledbre <= 8'b1111_1111;
4'b0001 : ledbre <= 8'b0000_0000;
4'b0010 : ledbre <= 8'b0000_0001;
4'b0011 : ledbre <= 8'b0000_0011;
4'b0100 : ledbre <= 8'b0000_0111;
4'b0101 : ledbre <= 8'b0000_1111;
4'b0110 : ledbre <= 8'b0001_1111;
4'b0111 : ledbre <= 8'b0011_1111;
4'b1000 : ledbre <= 8'b0111_1111;
default : ledbre <= 8'b1111_1111;
endcase
end*/
begin
counter <= counter + 1'b1;
PWM_width <= PWM_width[6:0]+ PWM_adj;
if(counter[27])
PWM_adj <= counter[26:20]; //128 zhong liang du,mei zhong chi xu shi jian 2 de 20 ci fang ge ji shu
else
PWM_adj <= ~ counter[26:20];
if((min11 == 4'd9)&&(min12 == 3'd5))
begin
ledbre[0] <= PWM_width[7];
ledbre[1] <= PWM_width[7];
ledbre[2] <= PWM_width[7];
ledbre[3] <= PWM_width[7];
ledbre[4] <= PWM_width[7];
ledbre[5] <= PWM_width[7];
ledbre[6] <= PWM_width[7];
ledbre[7] <= PWM_width[7];
end
else ledbre <= 8'b1111_1111;
end
end

endmodule

有个很严重的问题：

这款入门级CPLD芯片居然只有240个逻辑资源，严重不足啊。在公司电脑（32位Xp）上编译（好像是quartus ii 6.0还是什么），共占用235个，回来用自己的电脑（win7 64位）quartus ii v10.0上编译，占用245个，逻辑资源不够了，什么情况？

本来来有中文注释的，，但是上面中文乱码了，变成？了，改成拼音了，我把源文件传上来。clock_h.zip

乱码貌似是quartus版本问题，用公司电脑打开是正常显示的，在quartusii 10.0里变成？了。上网查了下，说从

7.0之后就不支持中文了，