原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
module auto_seller(clk,rst,display,btn_ok,btn_mon,btn_sell,led_warn,led,Dir,StepDrive);
input clk,rst,btn_ok;
input [2:0] btn_mon;//选择放入的钱
input [3:0] btn_sell;//选择商品bbt_5,gz_10,kqs_15,kl_20
output [6:0] led;//led_5,led_10,led_15,led_20
output led_warn;//钱不足，指示灯
output [15:0] display;//数码管显示投入面值，diaplay[15:8]位选,display[7:0]段码
input Dir;
reg StepEnable;
output[3:0] StepDrive;
reg [3:0] StepDrive;
reg [2:0] state;
reg [31:0] StepCounter = 32b0;
parameter StepLockOut = 32d200000; //250HZ
reg InternalStepEnable;
reg clk1;
reg [6:0] led;
reg led_warn;//警告放入钱不足
reg [15:0] display;
reg [31:0] counter;
(* synthesis,keep *)reg [9:0] price,price_all;
reg [1:0] flag = 2b00;//数码管显示标志位
reg [1:0] flag1 = 2b00;
reg [1:0] flag2 = 2b00;
parameter COUNT1 = 25d10000;
/*分频使数码管显示稳定*/
always @ (posedge clk)
begin
if(counter== 0)
begin
counter = COUNT1;
clk1 = ~clk1;
end
else
counter = counter-1;
end
always @(negedge rst or posedge clk)
begin
if(!rst)
begin
led = 7b111_1111;//LED灭
price_all = 0;//价格清零
led_warn = 1;
price = 0;
end
else
begin/*三种面值共8种组合*/
case(btn_mon)
3b001: begin price_all = 5;end
3b010: begin price_all = 10;end
3b100: begin price_all = 50;end
3b011: begin price_all = 15;end
3b101: begin price_all = 55;end
3b110: begin price_all = 60;end
3b111: begin price_all = 65;end
default: begin price_all = 0;end
endcase
case(btn_sell)
4b0001: begin price = 5;
end
4b0010: begin price = 10;
end
4b0100: begin price = 15;
end
4b1000: begin price = 20;
end
default: begin price = 0;
end
endcase
if(btn_ok==0 )
begin
if(price_all price) //放入钱不足
begin
led_warn = 0;
price = 0;
end
else
begin //金钱足够
price_all = price_all-price;
if(price_all ==0)led_warn = 1;
case(price) //LED灯显示货物卖出
5: begin led = 7b111_1110; end
10: begin led = 7b111_1101; end
15: begin
文档评论（0）