2020年2月2日 星期日

DE2-115 digital Clock 簡易的電子鐘

DE2-115 digital Clock 簡易的電子鐘

 參考來源　https://www.cnblogs.com/oomusou/archive/2008/07/27/1252656.html
SW17  : enable
SW16：reset
SW15 : load 
(設定時間)
SW[3:0]設定分的個位數
SW[6:4]設定分的十位數
SW[10:7]設定時的個位數
SW[13:11]設定時的十位數
HEX[2]顯示秒的個位數
HEX[3]顯示秒的十位數
HEX[4]顯示分的個位數
HEX[5]顯示分的十位數
HEX[6]顯示時的個位數
HEX[7]顯示時的十位數

 /*  
(C) OOMusou 2008 http://oomusou.cnblogs.com 

Filename: real_time_clock.v 
Compiler: Quartus II 7.2 SP3 + ModelSim-Altera 6.1g 
Description: Demo how to write digital clock top module 
Release: 07/27/2008 1.0 
*/ 

module real_time_clock  ( 
  input CLOCK_50, 
  input [17: 0] SW, 
  input [3: 0] KEY, 
  output [6: 0] HEX2, 
  output [6: 0] HEX3, 
  output [6: 0] HEX4, 
  output [6: 0] HEX5, 
  output [6: 0] HEX6, 
  output [6: 0] HEX7 
); 

wire clk_1; 
wire [3: 0] w_sq0; 
wire [2: 0] w_sq1; 
wire [3: 0] w_mq0; 
wire [2: 0] w_mq1; 
wire [3: 0] w_hq0; 
wire [2: 0] w_hq1; 

// 1Hz clock 
divn # (.WIDTH (26), .N (50000000))  
u0 ( 
  .clk (CLOCK_50), 
  .rst_n (KEY [0]), 
  .o_clk (clk_1) 
); 

clock u1 ( 
  .clk (clk_1), 
  .en (SW [17]), // input enable 
  .clr (SW [16]), // input clear 
  .load (SW [15]), // input load 
  .sd0 (4'h0), // input second digit 0 
  .sd1 (3'h0), // input second digit 1 
  .md0 (SW [3: 0]), // input minute digit 0 
  .md1 (SW [6: 4]), // input minute digit 1 
  .hd0 (SW [10: 7]), // input hour digit 0 
  .hd1 (SW [13:11]), // input hour digit 1 
  .sq0 (w_sq0), // output second digit 0 
  .sq1 (w_sq1), // output second digit 1  
  .mq0 (w_mq0), // output minute digit 0 
  .mq1 (w_mq1), // output minute digit 1 
  .hq0 (w_hq0), // output minute digit 0 
  .hq1 (w_hq1) // output minute digit 1 
); 

// sec. dig0 to seg7
seg7_lut u2 ( 
  .i_dig (w_sq0), 
  .o_seg (HEX2) 
); 

// sec. dig1 to seg7
seg7_lut u3 ( 
  .i_dig ({1'b0, w_sq1}), 
  .o_seg (HEX3) 
); 

// min. dig0 to seg7
seg7_lut u4 ( 
  .i_dig (w_mq0), 
  .o_seg (HEX4) 
); 

// min. dig1 to seg7
seg7_lut u5 ( 
  .i_dig ({1'b0, w_mq1}), 
  .o_seg (HEX5) 
); 

// hour dig0 to seg7 
seg7_lut u6 ( 
  .i_dig (w_hq0), 
  .o_seg (HEX6) 
); 

// hour dig1 to seg7 
seg7_lut u7 ( 
  .i_dig ({1'b0, w_hq1}), 
  .o_seg (HEX7) 
); 


endmodule

 /*  
(C) OOMusou 2008 http://oomusou.cnblogs.com 

Filename    : divn.v 
Compiler    : Quartus II 7.2 SP3 + ModelSim-Altera 6.1g 
Description : Demo how to write frequency divider by n 
Release     : 07/16/2008 1.0 
*/ 

module divn ( 
  input  clk, 
  input  rst_n, 
  output o_clk 
); 

parameter WIDTH = 3; 
parameter N     = 6; 

reg [WIDTH-1:0] cnt_p; 
reg [WIDTH-1:0] cnt_n; 
reg             clk_p; 
reg             clk_n; 

assign o_clk = (N == 1) ? clk : 
               (N[0])   ? (clk_p | clk_n) : (clk_p); 
         
always@(posedge clk or negedge rst_n) begin 
  if (!rst_n) 
    cnt_p <= 0; 
  else if (cnt_p == (N-1)) 
    cnt_p <= 0; 
  else 
    cnt_p <= cnt_p + 1; 
end 

always@(posedge clk or negedge rst_n) begin 
  if (!rst_n)  
    clk_p <= 1; 
  else if (cnt_p < (N>>1)) 
    clk_p = 1; 
  else 
    clk_p = 0;     
end 

always@(negedge clk or negedge rst_n) begin 
  if (!rst_n) 
    cnt_n <= 0; 
  else if (cnt_n == (N-1)) 
    cnt_n <= 0; 
  else 
    cnt_n <= cnt_n + 1; 
end 

always@(negedge clk or negedge rst_n) begin 
  if (!rst_n) 
    clk_n <= 1; 
  else if (cnt_n < (N>>1)) 
    clk_n = 1; 
  else 
    clk_n = 0; 
end 


endmodule 
/*  
(C) OOMusou 2008 http://oomusou.cnblogs.com 
 
Filename    : counter24.v 
Compiler    : Quartus II 7.2 SP3 + ModelSim-Altera 6.1g 
Description : Demo how to write 24 counter 
Release     : 07/27/2008 1.0 
*/ 
 
module counter24 ( 
  input            clk, 
  input            clr, 
  input            load, 
  input            en, 
  input      [3:0] d0, 
  input      [1:0] d1, 
  output reg [3:0] q0, 
  output reg [1:0] q1, 
  output           co 
); 
 
assign co = q0[1] & q0[0] & q1[1]; // 010   11 = 23 
 
always@(posedge clk) begin 
  if (clr) begin 
    q0 <= 0; 
    q1 <= 0; 
  end 
  else if (load) begin 
    q0 <= d0; 
    q1 <= d1; 
  end 
  else if (en) begin 
    if (q0 == 9) begin 
      q0 <= 0; 
      q1 <= q1 + 1; 
    end 
    else if (q1 == 2 & q0 == 3) begin // 23 
      q1 <= 0; 
      q0 <= 0; 
    end  
    else  
      q0 <= q0 + 1; 
  end 
  else begin 
    q0 <= q0; 
    q1 <= q1; 
  end 
end 
 
endmodule


/*  
(C) OOMusou 2008 http://oomusou.cnblogs.com 
 
Filename    : clock.v 
Compiler    : Quartus II 7.2 SP3 + ModelSim-Altera 6.1g 
Description : Demo how to write clock counter 
Release     : 07/28/2008 1.0 
*/ 
 
module clock ( 
  input        clk,  
  input        en,   
  input        clr,  
  input        load, 
  input  [3:0] sd0,  
  input  [2:0] sd1,  
  input  [3:0] md0,  
  input  [2:0] md1,  
  input  [3:0] hd0,  
  input  [2:0] hd1,  
  output [3:0] sq0,  
  output [2:0] sq1,   
  output [3:0] mq0,  
  output [2:0] mq1,  
  output [3:0] hq0,  
  output [1:0] hq1,  
  output       co    
); 
 
wire       w_clr; 
wire [3:0] w_md0;  
wire [2:0] w_md1; 
reg  [3:0] w_hd0; 
reg  [2:0] w_hd1; 
wire       w_sco; // second carry 
wire       w_mco; // minute carry 
wire       w_hco; // hour carry 
 
counter60 sec ( 
  .clk(clk), 
  .load(load), 
  .clr(w_clr), 
  .en(en), 
  .d0(sd0), 
  .d1(sd1), 
  .q0(sq0), 
  .q1(sq1), 
  .co(w_sco) 
); 
 
counter60 min ( 
  .clk(clk), 
  .load(load), 
  .clr(w_clr), 
  .en(en & w_sco), 
  .d0(w_md0), 
  .d1(w_md1), 
  .q0(mq0), 
  .q1(mq1), 
  .co(w_mco) 
); 
 
counter24 hour ( 
  .clk(clk), 
  .load(load), 
  .clr(w_clr), 
  .en(en & w_mco & w_sco), 
  .d0(w_hd0), 
  .d1(w_hd1), 
  .q0(hq0), 
  .q1(hq1), 
  .co(w_hco) 
); 
 
assign w_clr = clr | co; 
assign co    = w_hco & w_mco & w_sco; 
assign w_md0 = (!load) ? 0 : 
               (md0 < 10) ? md0 : 9; 
assign w_md1 = (!load) ? 0 :  
               (md1 < 6)  ? md1 : 5; 
                       
always@(load or hd0 or hd1) begin 
  if (!load) begin 
    w_hd0 = 0; 
    w_hd1 = 0; 
  end 
  else begin 
    if (hd1 <= 1) begin // 0 1 
      w_hd1 = hd1; 
       
      if (hd0 < 10) 
        w_hd0 = hd0; 
      else 
        w_hd0 = 9; 
    end 
    else begin // >= 2 
      w_hd1 = 2; 
       
      if (hd0 < 4) 
        w_hd0 = hd0; 
      else 
        w_hd0 = 3; 
    end 
  end 
end                         
 
endmodule

/*  
(C) OOMusou 2008 http://oomusou.cnblogs.com 
 
Filename    : counter60.v 
Compiler    : Quartus II 7.2 SP3 + ModelSim-Altera 6.1g 
Description : Demo how to write 60 counter 
Release     : 07/27/2008 1.0 
*/ 
 
module counter60 ( 
  input            clk, 
  input            clr, 
  input            load, 
  input            en, 
  input      [3:0] d0, 
  input      [3:0] d1, 
  output reg [3:0] q0, 
  output reg [2:0] q1, 
  output           co 
); 
 
assign co = q1[2] & q1[0] & q0[3] & q0[0]; // 101 1001 = 59  
 
always@(posedge clk) begin 
  if (clr) begin 
    q0 <= 0; 
    q1 <= 0; 
  end 
  else if (load) begin 
    q0 <= d0; 
    q1 <= d1; 
  end 
  else if (en) begin 
    if (q0 == 9) begin 
      q0 <= 0; 
       
      if (q1 == 5)  
        q1 <= 0; 
      else 
        q1 <= q1 + 1; 
    end 
    else  
      q0 <= q0 + 1; 
  end  
  else begin 
    q0 <= q0; 
    q1 <= q1; 
  end 
end 
 
endmodule

/*  
(C) OOMusou 2008 http://oomusou.cnblogs.com 
 
Filename    : switch_lut.V 
Compiler    : Quartus II 7.2 SP3 
Description : Demo how to use 8 bit 7 segment display decimal 
Release     : 07/20/2008 1.0 
*/ 
module seg7_lut ( 
  input      [3:0] i_dig, 
  output reg [6:0] o_seg 
); 
 
always@(i_dig) begin 
  case(i_dig) 
    4'h1: o_seg = 7'b111_1001;  // ---t---- 
    4'h2: o_seg = 7'b010_0100;  // |      | 
    4'h3: o_seg = 7'b011_0000;  // lt    rt 
    4'h4: o_seg = 7'b001_1001;  // |      | 
    4'h5: o_seg = 7'b001_0010;  // ---m---- 
    4'h6: o_seg = 7'b000_0010;  // |      | 
    4'h7: o_seg = 7'b111_1000;  // lb    rb 
    4'h8: o_seg = 7'b000_0000;  // |      | 
    4'h9: o_seg = 7'b001_1000;  // ---b---- 
    4'ha: o_seg = 7'b000_1000; 
    4'hb: o_seg = 7'b000_0011; 
    4'hc: o_seg = 7'b100_0110; 
    4'hd: o_seg = 7'b010_0001; 
    4'he: o_seg = 7'b000_0110; 
    4'hf: o_seg = 7'b000_1110; 
    4'h0: o_seg = 7'b100_0000; 
  endcase 
end 
 
endmodule 
於
標籤： ,

沒有留言:

張貼留言

訂閱： 張貼留言 (Atom)

Messaging API作為替代方案

  LINE超好用功能要沒了！LINE Notify明年3月底終止服務，有什麼替代方案？ LINE Notify將於2025年3月31日結束服務，官方建議改用Messaging API作為替代方案。 //CHANNEL_ACCESS_TOKEN = 'Messaging ...

  • python pip 不是内部或外部命令--解決方法
    python pip 不是内部或外部命令 -- 解決方法 要安裝 Pyqt5 1. 首先，開啟命令提示字元。 2. 輸入 pip3 install pyqt5 好像不能執行 ! ! 錯誤顯示 : ‘ pip3 ’ 不是內部或外部命令、可執行的程式或批...
  • 2017 勤益科大 課程講義 下載
    課程講義 下載 11/20 1)  PPT 下載  +  程式下載    http://www.mediafire.com/file/cru4py7e8pptfda/106%E5%8B%A4%E7%9B%8A2-1.rar 11/27 2)  PPT 下載...
  • 認 識 PreFix、InFix、PostFix
    • 認 識 PreFix、InFix、PostFix PreFix（前序式）：* + 1 2 + 3 4 InFix（中序式）： (1+2)*(3+4) PostFix（後序式）：1 2 + 3 4 + * 後 序式的運算 例如： 運算時由 後序式的...