网上下的程序如下:
module key
input clk,reset;
input [3:0] row;
output [3:0] col;
output [3:0] key_value;
reg [3:0] col;
reg [3:0] key_value;
reg [5:0] count;//delay_20ms
reg [2:0] state;
reg key_flag;
reg clk_500khz;
reg [3:0] col_reg;
reg [3:0] row_reg;
always @(posedge clk or negedge reset)
if(!reset) begin clk_500khz<=0; count<=0; end
else
begin
if(count>=50) begin clk_500khz<=~clk_500khz;count<=0;end
else count<=count+1;
end
always @(posedge clk_500khz or negedge reset)
if(!reset) begin col<=4'b0000;state<=0;end
else
begin
case (state)
0:
col[3:0]<=4'b0000;
key_flag<=1'b0;
if(row[3:0]!=4'b1111) begin state<=1;col[3:0]<=4'b1110;end //有键按下,扫描第一行
else state<=0;
end
1:
begin
if(row[3:0]!=4'b1111) begin state<=5;end
else
end
2:
begin
if(row[3:0]!=4'b1111) begin state<=5;end
else
end
3:
begin
if(row[3:0]!=4'b1111) begin state<=5;end
else
end
4:
begin
if(row[3:0]!=4'b1111) begin state<=5;end
else
end
5:
begin
if(row[3:0]!=4'b1111)
begin
col_reg<=col;
row_reg<=row;
state<=5;
key_flag<=1'b1;
end
else
begin state<=0;end
end
endcase
end
always @(clk_500khz or col_reg or row_reg)
begin
if(key_flag==1'b1)
begin
case ({col_reg,row_reg})
8'b1110_1110:key_value<=0;
8'b1110_1101:key_value<=1;
8'b1110_1011:key_value<=2;
8'b1110_0111:key_value<=3;
8'b1101_1110:key_value<=4;
8'b1101_1101:key_value<=5;
8'b1101_1011:key_value<=6;
8'b1101_0111:key_value<=7;
8'b1011_1110:key_value<=8;
8'b1011_1101:key_value<=9;
8'b1011_1011:key_value<=10;
8'b1011_0111:key_value<=11;
8'b0111_1110:key_value<=12;
8'b0111_1101:key_value<=13;
8'b0111_1011:key_value<=14;
8'b0111_0111:key_value<=15;
endcase
end
end
endmodule
另一个程序,和上面的思想一样:
module key44
(
);
//-------------------------------------------------------------------------------------------------
// Port declaration
output
output
output
input
input
//-------------------------------------------------------------------------------------------------
//
reg
reg
parameter
reg
reg [3:0] count,row_reg,col_reg;
reg
reg [4:0] Mega_cnt;
wire
always @( posedge sys_clk, negedge rst )
begin
end
assign clk = Mega_cnt[4];
// Frequency Division Two
always @( posedge clk )
clk2 <= ~clk2;
// A quarter of the clk
always @( posedge clk2 )
clk4 <= ~clk4;
always @( posedge clk4, negedge rst )
if(!rst)
else
assign valid = ((state == S_1)||(state == S_2)||(state == S_3)||(state == S_4)) &&
// Save the value of row and col
always @( negedge clk )
if( valid )
// Decode the Key
always @( row_reg, col_reg, clk )
always @( posedge clk4, negedge rst )
always @( state, row, S_row )
begin
end
endmodule
下面是我自己写的一个程序:
module Key_led(clk,row,col,key_temp);
input clk,row;
output key_temp,col;
reg[3:0] key_temp;
reg[3:0] col;
wire[3:0] row;
reg key_down , clk_100;
reg[1:0] key_curstate ,key_nexstate;
integer cont;
always @(posedge clk)
begin
if(cont==500000) cont=1;
else cont=cont+1;
if(cont==1) clk_100=1;
else clk_100=0;
end
initial begin
key_curstate=2'b00;
end
always @(posedge clk_100)
begin
if(row!=4'b1111) key_down=1;
else key_down=0;
end
always @(posedge clk_100)
begin
col=4'b0000;
case(key_curstate)
00:begin
if(key_down==0) key_nexstate=00;
else key_nexstate=10;
end
10:begin
if(key_down==0) key_nexstate=01;
else key_nexstate=11;
end
11:begin
if(key_down==0) key_nexstate=01;
else key_nexstate=11;
end
01:begin
if(key_down==0) key_nexstate=00;
else key_nexstate=10;
end
endcase
if(key_curstate==2'b11)begin
col=4'b0111;
end
always @(posedge clk_100)
key_curstate=key_nexstate;
endmodule