EEPW论坛

4.蜂鸣器

module fmq(CLK,RESET,BEEP);

// I/O
input CLK;
input RESET;
output BEEP;

reg BEEP;
reg [24:0] div;
reg [14:0] delay_cnt;
wire [14:0] delay_end;

parameter clk_div0=56817;//50000000/2*440-1
parameter clk_div1=28408;//50000000/4*440-1
assign delay_end=div[24]?clk_div0:clk_div1;

蜂鸣器作业一

变化不大

module fmq(CLK,RESET,BEEP);

// I/O
input CLK;
input RESET;
output BEEP;

reg BEEP;
reg [24:0] div;
reg [14:0] delay_cnt;
wire [14:0] delay_end;

parameter clk_div0=28408;//50000000/4*440-1
parameter clk_div1=14204;//50000000/8*440-1
assign delay_end=div[24]?clk_div0:clk_div1;

//div
always@(posedge CLK or negedge RESET)
 begin
  if(!RESET)
   div<=25'd0;//???25??????0
  else
   div<=div+1'b1;
   
 end

always@(posedge CLK or negedge RESET)
 begin
  if(!RESET)
   delay_cnt<=delay_end;
  else if(delay_cnt==15'd0)
   begin
    BEEP<=~BEEP;
    delay_cnt<=delay_end;
   end
  else
    delay_cnt<=delay_cnt-1'b1;
   end
 endmodule

蜂鸣器例题2

一个按键对应一个音，中音区需要按着第八个键不放，再继续

module fmq(CLK,RESET,KEY,BEEP);

// I/O
input CLK;
input RESET;
input [7:0] KEY;
output BEEP;

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

//delay
always@(posedge CLK or negedge RESET)
 begin
  if(!RESET)
   delay_cnt<=16'd0;//???25??????0
  else if((delay_cnt==delay_end)&(!(delay_end==16'hffff)))
   begin
    delay_cnt<=16'd0;
    BEEP=~BEEP;
   end
  else
  delay_cnt=delay_cnt+1'b1;
   
 end

always@(KEY)
 begin
   case(KEY)
    8'b11111110:delay_end=16'd47774;//m1
    8'b11111101:delay_end=16'd42568;//m2
    8'b11111011:delay_end=16'd37919;//m3
    8'b11110111:delay_end=16'd35791;//m4
    8'b11101111:delay_end=16'd31888;//m5
    8'b11011111:delay_end=16'd28409;//m6
    8'b10111111:delay_end=16'd25309;//m7
    8'b01111110:delay_end=16'd23912;//h1
    8'b01111101:delay_end=16'd21282;//h2
    8'b01111011:delay_end=16'd18961;//h3
    8'b01110111:delay_end=16'd17897;//h4
    8'b01101111:delay_end=16'd15944;//h5
    8'b01011111:delay_end=16'd14205;//h6
    8'b00111111:delay_end=16'd12655;//h7
    default:delay_end=16'd0;
   endcase
 end
 endmodule

电子琴

结婚进行曲

LCD显示

1602完全是在Anmko大神的代码上做的

实在惭愧，感谢Anmko大神，写得很清楚