这些小活动你都参加了吗?快来围观一下吧!>>
电子产品世界 » 论坛首页 » DIY与开源设计 » 电子DIY » 297-WSDYMG 进程贴

共29条 3/3 1 2 3 跳转至
助工
2013-07-14 20:59:49     打赏
21楼

今天看了按键程序:

源程序是这样的:

module key_debounce(sys_clk          ,
                    sys_rstn         ,
                    key_in           ,
                    led_out
                    );
//输入/输出信号
input               sys_clk          ;
input               sys_rstn         ;
input               key_in           ;
output              led_out          ;
//寄存器定义
reg                 led_out          ;
reg      [19:0]     delay_cnt        ;
wire                key_scan         ;
wire                key_low          ;
reg                 key_samp         ;
reg                 key_samp_r       ;
reg                 key_rst          ;
reg                 key_rst_r        ;
//逻辑部分  
always@(posedge sys_clk or negedge sys_rstn)        
    begin
        if(!sys_rstn)
            key_samp<=1'b1;
        else
            key_samp<=key_in;
    end
always@(posedge sys_clk or negedge sys_rstn)        
    begin
        if(!sys_rstn)
            key_samp_r<=1'b1;
        else
            key_samp_r<=key_samp;
    end
assign key_scan=key_samp_r&(~key_samp);
//延时部分
always@(posedge sys_clk or negedge sys_rstn)
    begin
        if(!sys_rstn)
            delay_cnt<=20'h0;
        else if(key_scan)
            delay_cnt<=20'h0;
        else
            delay_cnt<=delay_cnt+1'b1;
    end
always@(posedge sys_clk or negedge sys_rstn)        
    begin
        if(!sys_rstn)
            key_rst<=1'b1;
        else if(delay_cnt==20'hfffff)
            key_rst<=key_in;
    end
always@(posedge sys_clk or negedge sys_rstn)        
    begin
        if(!sys_rstn)
            key_rst_r<=1'b1;
        else
            key_rst_r<=key_rst;
    end
assign key_low=key_rst_r&(~key_rst);
//按键控制LED翻转输出
always@(posedge sys_clk or negedge sys_rstn)
    begin
        if(!sys_rstn)
            led_out<=1'b1;
        else if(key_low)
            led_out<=~led_out;
        else
            led_out<=led_out;
    end
endmodule
不过我分析了一下,好像这个程序没有延时消抖的功能吧,key_scan只是起到了一个清零的作用,其实寄存器记满了本来就会清零的啊,所以中间有段程序完全是浪费啊!

所以改成这样:



module key_debounce(input sys_clk,input sys_rstn,input key_in,output reg led_out);

reg      [19:0]     delay_cnt     ;
wire                temp             ;
reg                 key_rst          ;
reg                 key_rst_r       ;

always@(posedge sys_clk or negedge sys_rstn)
    begin
        if(!sys_rstn)
            delay_cnt<=20'h0;
        else
            delay_cnt<=delay_cnt+1'b1;
    end

assign temp=key_rst;    
always@(posedge sys_clk or negedge sys_rstn)        
    begin
        if(!sys_rstn)
            key_rst<=1'b1;
        else if(delay_cnt==20'hfffff)
            key_rst<=key_in;
    end


always@(posedge sys_clk or negedge sys_rstn)        
    begin
        if(!sys_rstn)
            key_rst_r<=1'b1;
        else
            key_rst_r<=temp;
    end
assign key_low=key_rst_r&(~key_rst);


always@(posedge sys_clk or negedge sys_rstn)
    begin
        if(!sys_rstn)
            led_out<=1'b1;
        else if(key_low)
            led_out<=~led_out;
        else
            led_out<=led_out;
    end
endmodule
功能实现是一样的,不过只是个人见解!如有错误请指正!



院士
2013-07-14 22:33:01     打赏
22楼

很久没有仔细看verilog了, 有些陌生了。

印象中,版主的延时消抖是有作用的。



助工
2013-07-15 08:22:28     打赏
23楼
我分析了好久,感觉变量key_scan没有起到消抖的作用啊;比如说,一直没有按键按下,也会满足计数条件,去检测按键状态!个人之言,水平有限!

助工
2013-07-15 10:11:12     打赏
24楼

忙活了一早上,终于把那个所谓的key——piano调试成功那个了,因为当初发货的蜂鸣器封装不合适,就胡乱试了一个,结果悲催的用了有源蜂鸣器,所以调试程序的时候总是乱响一气,怒了啊!最后在群里请教了几个老师,终于改好了,在此感谢@6-shark1234567,@293-jsyzgaochao真是大好人!废话少说,分享自己的程序(修改的版主的):

module key_piano(input sys_clk,input sys_rstn,input [7:0] key_in,output reg beep);                 

reg     [15:0]  delay_cnt   ;
reg     [15:0]  delay_end   ;

always@(posedge sys_clk or negedge sys_rstn)    
begin
    if(!sys_rstn)
        begin
            delay_cnt<=16'd0;
            beep<=1;
        end
    else if((key_in & 8'b01111111) != 8'b01111111)
        begin
            if((delay_cnt == delay_end)&(!(delay_end == 16'hffff)))
                begin
                    delay_cnt<=16'd0;
                    beep<=~beep;
                end
            else
                begin
                    delay_cnt<=delay_cnt+1'b1;
                end
        end
    else beep<=1;
end

always@(key_in)
begin
    case(key_in)                            
        8'b11111110:delay_end = 16'd47774; //����1�ķ�Ƶϵ��ֵ
        8'b11111101:delay_end = 16'd42568; //����2�ķ�Ƶϵ��ֵ
        8'b11111011:delay_end = 16'd37919; //����3�ķ�Ƶϵ��ֵ
        8'b11110111:delay_end = 16'd35791; //����4�ķ�Ƶϵ��ֵ
        8'b11101111:delay_end = 16'd31888; //����5�ķ�Ƶϵ��ֵ
        8'b11011111:delay_end = 16'd28409; //����6�ķ�Ƶϵ��ֵ
        8'b10111111:delay_end = 16'd25309; //����7�ķ�Ƶϵ��ֵ
        8'b01111110:delay_end = 16'd23912; //����1�ķ�Ƶϵ��ֵ
        8'b01111101:delay_end = 16'd21282; //����2�ķ�Ƶϵ��ֵ
        8'b01111011:delay_end = 16'd18961; //����3�ķ�Ƶϵ��ֵ
        8'b01110111:delay_end = 16'd17897; //����4�ķ�Ƶϵ��ֵ
        8'b01101111:delay_end = 16'd15944; //����5�ķ�Ƶϵ��ֵ
        8'b01011111:delay_end = 16'd14205; //����6�ķ�Ƶϵ��ֵ
        8'b00111111:delay_end = 16'd12655; //����7�ķ�Ƶϵ��ֵ
        default:delay_end = 16'd65535;
    endcase
end
endmodule


助工
2013-07-30 11:06:25     打赏
25楼

助工
2013-07-30 11:12:52     打赏
26楼

助工
2013-08-02 10:47:34     打赏
27楼

助工
2013-08-03 15:14:13     打赏
28楼

最近致力于FPGA的学习,可是资料总是那么厚,看着看着就不想看了,找到一些短篇的,分享给大家!唉,都怪自己没毅力!

VerilogHDL扫盲文.pdf



助工
2013-08-11 16:37:19     打赏
29楼
     本着“天下难事必作于易,天下大事必作于细”的思路指导,开始了我轰轰烈烈的CPLD开发板的学习,最经典的程序莫过于流水灯的程序了,因为以前有 一些C语言的基础,想来VERILOG也不是什么难事,可是天不遂人愿,今早整整一天,我被流水灯程序虐的体无完肤啊,真捉急啊,真捉急啊,程序虐我千百遍,我待程序如初恋,不断实践,不断探索,终于皇天不负有心人啊:

、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、
本来最初的想法很简单,实现的功能无外乎:D4灯狂闪,D1、D2、D3灯实现流水灯的效果。
就是这个简简单单的愿望跟想法,却屡遭罹难,遇到的问题主要有:
1、D4闪烁效果无法实现,一直是暗的;流水灯效果正常。
2、大家看我贴的程序,会看到我注释掉了两条语句,不注释掉的话,流水灯的效果也无法实现,D1灯常亮,D2、D3灯常灭;


、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、
实验最初的程序如下:

module mix_module (sys_clk,sys_rstn,led_out);

input sys_clk,sys_rstn;
output led_out;
reg [3:0] led_out;

parameter T48M=26'd48_000_000;
reg [25:0] Count;
reg[1:0] i;
reg led;

always@(posedge sys_clk or negedge sys_rstn)
begin
    if(!sys_rstn)
        Count<=26'b0;
    else
        if(Count==T48M)
            Count<=26'b0;
        else
            Count<=Count+1'b1;
end

always@(posedge sys_clk or negedge sys_rstn)
begin
    if(!sys_rstn)
        i<=2'b00;
    else
        begin
            if(Count==T48M)
                i<=i+1'b1;
            else
                i<=i;
            if(i==2'b11)
                i<=2'b00;
            //else
                //i<=i;
        end
end

always@(i)
begin
    led=~led;
    if(i==2'b00)
        led_out={led,3'b110};
    else if(i==2'b01)
        led_out={led,3'b101};
    else
        led_out={led,3'b011};
end   
endmodule

、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、
后来经过想网友@6-shark1234567,@KDY的请教跟学习,终于解决了问题:
修改后的程序如下:
版本一:
module mix_module (sys_clk,sys_rstn,led_out);

input sys_clk,sys_rstn;
output led_out;
reg [3:0] led_out;

parameter T48M=27'd48000_000;
reg [26:0] Count;
reg[1:0] i;
reg led;
initial led = 1'b1;

always@(posedge sys_clk or negedge sys_rstn)
begin
    if(!sys_rstn)
        Count<=27'b0;
    else
        if(Count==T48M)
            Count<=27'b0;
        else
            Count<=Count+1'b1;
end

always@(posedge sys_clk or negedge sys_rstn)
begin
    if(!sys_rstn)
        i<=2'b00;
    else
        begin
            if(Count==T48M)
                i<=i+1'b1;
            else
                i<=i;
            if(i==2'b11)
                i<=2'b00;
        end
end

always@(posedge sys_clk)
begin
if(Count==T48M)
    led=~led;
    if(i==2'b00)
        led_out={led,3'b110};
    else if(i==2'b01)
        led_out={led,3'b101};
    else
        led_out={led,3'b011};
end   
endmodule
版本二:
module mix_moduile (sys_clk,sys_rstn,led_out);

input sys_clk,sys_rstn;
output led_out;
reg [3:0] led_out;

parameter T48M=26'd48_000_000;
reg [25:0] Count;
reg[1:0] i;
reg led=1;

always@(posedge sys_clk or negedge sys_rstn)
        if(!sys_rstn)
                Count<=26'b0;
        else
                if(Count==T48M)
                    Count<=26'b0;
                else
                    Count<=Count+1'b1;


always@(posedge sys_clk or negedge sys_rstn)
if(!sys_rstn)
  led_out<=4'b0110;
else
if(Count==T48M)
begin
  led_out[3]<=~led_out[3];
  led_out[2:0]<={led_out[1],led_out[0],led_out[2]};
end

、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、
以上两个程序都很好的解决了我的问题,版本一来自于@KDY,版本二来自于@6-shark1234567,与我的程序相比,两位老师的程序都很好的采用了,同
步时序电路,而我采用的是always(i)异步触发的方式,虽然经过仿真的测试,时序图正确,但经过综合后却总是出错,所以在此向跟我一样,处在学习FPGA初级阶段的各位提个建议,那就是少用always()的异步电路,往往综合器比较坑!

在此将 KDY给我的建议列在下面,愿大家共同学习,共同进步!





共29条 3/3 1 2 3 跳转至

回复

匿名不能发帖!请先 [ 登陆 注册 ]