//Author:"泪与汗的缠绵"

//Data：2011-11月

//功能：数字芯片74ls163——————模十计数器

module Counter(QData,OUTPUT,Clear,Clk,DataIn,Enable,Load);
 output [3:0] QData;
 output OUTPUT;
 reg[3:0] QData;
 reg OUTPUT;
 input [3:0]DataIn;
 input Clear,Clk,Enable,Load;

 always@(posedge Clk)
  begin
  if(!Clear)//清零端生效
   QData<=4'b0000;
  else
   if(Enable)
    begin
     if(Load)//下载数据段有效，载入输入的数值
      QData<=DataIn;
     else
      begin
       if(QData==4'b1001)//计数值满十，则清零
        begin
        QData<=4'b0000;
        OUTPUT<=1'b1;
        end
       else
       QData<=QData+4'b0001;//计数值加“1”
      end
     end
    else
    QData<=QData;
  end

endmodule