//`timescale 1 ps/ 1 psmodule traffic_lights(clk,red,amber,green);input clk;output red;output amber;output green;reg red;reg amber;reg green;////dedine the parameterparameter on=1,off=0,red_tics=350,amber_tics=30,green_tics=200;//initialinitial red=off;initial arber=off;initial green=off;///the main progressalways beginred=on; //打開light(red,red_tics); //等待green=on;light(green,green_tics);amber=on;light(amber,amber_tics);end //類似C語言的函數調用////define tasktask light(color,tics); //定義交通燈的開啟時間taskoutput color; //輸出 控制信號input [31:0] tics; //輸入 延時時鐘beginrepeat (tics) @(posedge clock);color=off;endendtask//// produce the clock// always @ （posedge clk)// beginendmodule