verilog中期习题-2.pptVIP

//simulation program `timescale 100ns/1ns //(1000000000/60)ns=16,666,666ns=166666*100ns module clock_t; reg reset,clk; wire a0,b0,c0,d0,e0,f0,g0,a1,b1,c1,d1,e1,f1,g1,a2,b2,c2,d2,e2,f2,g2,a3,b3,c3,d3,e3,f3,g3,a4,b4,c4,d4,e4,f4,g4,a5,b5,c5,d5,e5,f5,g5; wire[3:0] hour1,hour0,minute1,minute0,second1,second0; parameter cycle=166666; clock clock_t(reset,clk,hour1,hour0,minute1,minute0,second1,second0,a0,b0,c0,d0,e0,f0,g0,a1,b1,c1,d1,e1,f1,g1,a2,b2,c2,d2,e2,f2,g2,a3,b3,c3,d3,e3,f3,g3,a4,b4,c4,d4,e4,f4,g4,a5,b5,c5,d5,e5,f5,g5); //调用 always #(cycle/2) clk=~clk;//产生时钟 initial begin clk=1;reset=1; #(cycle/2) reset=1; #(cycle) reset=0;//复位 #(cycle*60*60*24) $finish; end initial $monitor($time,,hour1,hour0,minute1,minute0,second1,second0); endmodule 电话计费器程序 /*信号定义： clk：时钟信号，本例中其频率值为1Hz； decide：电话局反馈回来的信号，代表话务种类，“01”表示市话，“10”表示长话，“11”表示特话； dispmoney：用来显示卡内余额，其单位为角，这里假定能显示的最大数额为50元; （500角） disptime：显示本次通话的时长； Write,read： 当write信号下降沿到来时写卡，当话卡插入，read信号变高时读卡； warn：余额过少时的告警信号。本例中，当打市话时，余额少于3角，打长 话时，余额少于6角，即会产生告警信号； cut：当告警时间过长时自动切断通话信号。 */ module account(state,clk,card,decide,disptime,dispmoney, write,read,warn,cut); output write,read,warn,cut; input state,clk,card; input[2:1] decide; output[10:0] dispmoney; //2048 output[8:0] disptime; //512 reg[10:0] money; reg[8:0] dtime; reg warn,cut,write,t1m; //t1m为分时钟 reg set,reset_ena; integer num1,temp; assign dispmoney=card?money:0; assign disptime=dtime; assign read=card?1:0; always @(posedge clk) //产生分时钟 begin if (num1==59) begin num1=0; t1m=1; end else begin if(state) num1=num1+1; else num1=0; t1m=0; end end always @(negedge clk) //该进程完成电话计费功能 begin if(!set) begin money=11‘h500; set=1; //卡内50元 end if(cardstate) //有卡并且在通话 if(t1m) //时间有1分钟 case({state,decide}) 3b101: if(money3)