t2_lift2.v

实现一个4层楼的单电梯控制系统。门可以自动开关也可以手动开关。代码可综合

`timescale 1ns/1ns
module t1_lift2;

reg clk,reset,maintain;
reg up1,up2,up3,down2,down3,down4;
reg inter_button1,inter_button2,inter_button3,inter_button4;
reg close_door,open_door;
reg floor;

wire led_up1,led_up2,led_up3;
wire led_down2,led_down3,led_down4;
wire inter1,inter2,inter3,inter4;
wire door;
wire [1:0]number;
wire status;
wire [1:0]r_up1,r_up2,r_up3,r_down2,r_down3,r_down4;
wire [1:0]r_inter1,r_inter2,r_inter3,r_inter4;

lift2 ele2(.clk(clk),
	   .reset(reset),
	   .up1(up1),
	   .up2(up2),
	   .up3(up3),
	   .down2(down2),
	   .down3(down3),
	   .down4(down4),
	   .inter_button1(inter_button1),
	   .inter_button2(inter_button2),
	   .inter_button3(inter_button3),
	   .inter_button4(inter_button4),
	   .close_door(close_door),
	   .open_door(open_door),
	   .floor(floor),
	   .led_up1(led_up1),
	   .led_up2(led_up2),
	   .led_up3(led_up3),
	   .led_down2(led_down2),
	   .led_down3(led_down3),
	   .led_down4(led_down4),
	   .inter1(inter1),
	   .inter2(inter2),
	   .inter3(inter3),
	   .inter4(inter4),
	   .door(door),
	   .status(status),
	   .number(number),
	   .r_up1(r_up1),
	   .r_up2(r_up3),
	   .r_up3(r_up3),
	   .r_down2(r_down2),	   
	   .r_down3(r_down3),	   
	   .r_down4(r_down4),	   
	   .r_inter1(r_inter1),
	   .r_inter2(r_inter2),
	   .r_inter3(r_inter3),
	   .r_inter4(r_inter4)
	   );

initial
begin
  $shm_open("lift2.shm");
  $shm_probe("AS");
end

initial
begin
   clk=0;
   reset=0;
   close_door=0;
   open_door=0;
end

always  #5 clk=~clk;

initial
begin
floor=0;down3=0;down4=0;up3=0;inter_button2=0;inter_button4=0;up1=0;up2=0;down2=0;inter_button1=0;inter_button3=0;   #12 reset=1;up2=1;
   #3  inter_button3=1;
   #7   up2=0;
   #5 inter_button3=0;down2=1;
   #25 down2=0;
   #10 inter_button1=1;
   #50 floor=1;  
   #70 floor=0;
   #10 open_door=1; 
   #10 open_door=0;
   #25 floor=1;
   #15 up1=1;
   #10 up1=0;
   #5  close_door=1;
   #35 floor=0;
   #25 close_door=0;
   //#40 
   #10 inter_button1=0;
    
   #90  floor=1;
   #60 floor=0;
   #90 floor=1;
   #40 floor=0;
  // #90 floor=1;
  // #10 floor=~floor;
   #1500 $finish;
end

endmodule