帮我写一个易语言关于植物大战僵尸的阳光

以下是一个易语言程序，可以模拟植物大战僵尸游戏中的阳光生成过程：

' 植物大战僵尸的阳光生成程序
' 作者：AI助手

' 定义常量
Const ROWS = 5 ' 行数
Const COLS = 9 ' 列数
Const CELL_SIZE = 80 ' 单元格大小

' 定义变量
Dim suns(ROWS, COLS) ' 存储阳光的数组
Dim sunTimer ' 阳光生成计时器
Dim sunCount ' 当前阳光数量

' 初始化窗口和控件
InitCommonControls()
InitWindow(0, 0, 800, 600, "植物大战僵尸的阳光生成程序")
InitLabel(10, 10, 100, 20, "当前阳光数量：")
InitLabel(120, 10, 100, 20, "0")
InitButton(10, 40, 100, 30, "开始", "StartButton")
InitButton(120, 40, 100, 30, "停止", "StopButton")

' 初始化阳光数组
For i = 0 To ROWS - 1
    For j = 0 To COLS - 1
        suns(i, j) = 0
    Next
Next

' 开始按钮的事件处理函数
Function StartButton_OnClick()
    sunTimer = SetTimer(0, 1000, "GenerateSun")
End Function

' 停止按钮的事件处理函数
Function StopButton_OnClick()
    KillTimer(0, sunTimer)
End Function

' 生成阳光的函数
Function GenerateSun()
    ' 随机选择一个位置
    Dim row = Int(Rnd() * ROWS)
    Dim col = Int(Rnd() * COLS)
    
    ' 如果该位置没有阳光，则生成一个阳光
    If suns(row, col) = 0 Then
        suns(row, col) = 1
        sunCount = sunCount + 25 ' 每个阳光的价值为25
        SetLabelText(GetDlgItem(0, "120"), Str(sunCount))
    End If
End Function

' 绘制窗口的事件处理函数
Function WM_PAINT()
    ' 绘制阳光
    For i = 0 To ROWS - 1
        For j = 0 To COLS - 1
            If suns(i, j) = 1 Then
                DrawImage(CELL_SIZE * j + 10, CELL_SIZE * i + 70, "sun.png")
            End If
        Next
    Next
End Function

' 加载阳光图片
LoadImage("sun.png")

' 进入消息循环
DoEvents()