用verilog写一个MQ-2烟雾传感器用蜂鸣器报警的代码，并写出testbeach

以下是一个简单的Verilog代码，用于实现MQ-2烟雾传感器并使用蜂鸣器报警。代码中使用的是一个简单的阈值来检测烟雾水平，并在检测到烟雾水平超过阈值时触发蜂鸣器。请注意，这只是一个演示代码，应该根据实际应用程序进行修改和调整。

module smoke_sensor(
    input smoke_level,       // 烟雾水平输入
    output reg alarm         // 蜂鸣器输出
);

parameter THRESHOLD = 8;    // 烟雾水平阈值

always @(smoke_level) begin
    if (smoke_level > THRESHOLD) begin
        alarm <= 1'b1;      // 触发蜂鸣器
    end else begin
        alarm <= 1'b0;
    end
end

endmodule

以下是一个简单的测试用例，用于测试上述Verilog代码：

module smoke_sensor_tb;

reg smoke_level;
wire alarm;

smoke_sensor dut (
    .smoke_level(smoke_level),
    .alarm(alarm)
);

initial begin
    // 在没有烟雾的情况下，蜂鸣器应该不触发
    smoke_level = 0;
    #10;
    if (alarm != 1'b0) begin
        $display("Test failed: Smoke level 0, but alarm triggered.");
        $finish;
    end
    
    // 在烟雾水平超过阈值时，蜂鸣器应该触发
    smoke_level = 10;
    #10;
    if (alarm != 1'b1) begin
        $display("Test failed: Smoke level above threshold, but alarm not triggered.");
        $finish;
    end
    
    // 在烟雾水平低于阈值时，蜂鸣器应该不触发
    smoke_level = 5;
    #10;
    if (alarm != 1'b0) begin
        $display("Test failed: Smoke level below threshold, but alarm triggered.");
        $finish;
    end
    
    $display("Test passed.");
    $finish;
end

endmodule

在上述测试用例中，我们通过模拟烟雾水平的变化来测试Verilog代码的正确性。如果测试用例执行成功，则会输出 "Test passed."。如果测试用例执行失败，则会输出相应的失败消息。