易语言实现红色灯笼三秒循环闪烁效果代码

// 定义控件
begin
    object MainForm: TForm
        Left = 0
        Top = 0
        Width = 320
        Height = 240
        Caption = '红色灯笼'
        Font.Color = clBlack
        Font.Height = 16
        object Timer: TTimer
            Enabled = False
            Interval = 1000
            OnTimer = TimerOnTimer
        end
    end
end

// 定义变量
var
  count: Integer = 0;

// 定义方法
procedure TimerOnTimer(Sender: TObject);
begin
    if count mod 2 = 0 then
        MainForm.Color := clRed
    else
        MainForm.Color := clWhite;

    Inc(count);

    if count = 6 then
        count := 0;
end;

// 启动定时器
begin
    Timer.Enabled := True;
end.

说明：

1. 代码中使用了TTimer控件来实现定时器功能。
2. 每隔1秒钟，切换窗体的背景色为红色和白色。
3. count变量用来记录当前循环次数，每循环2次就切换一次颜色。
4. 当循环6次后，重新从第一次开始循环，形成三秒循环闪烁的效果。