使用易语言写一段完整的多线程代码

在易语言中编写多线程代码，可以利用`CreateThread`和`JoinThread`函数来创建、管理和协调多个线程。下面是一个简单的例子，其中两个线程同时执行，其中一个线程负责计数，另一个线程负责打印结果：

; 定义全局变量
Global int counter = 0
Global Thread threadCounter, threadPrinter

; 计数线程函数
Function Count()
    While True
        counter++
        Sleep(1000) ' 每秒增加一次计数值
        If counter >= 5 Then Break ' 达到5次后退出
    EndWhile

    ; 设置计数线程结束
    SetThreadRunning(threadCounter, False)
EndFunction

; 打印线程函数
Function Print()
    While threadCounter.Running
        Sleep(500) ' 每隔半秒检查计数是否结束
    EndWhile

    Print("计数达到: " & counter)
EndFunction

; 创建和启动计数线程
threadCounter = CreateThread(Count, "")

; 同时创建并启动打印线程
threadPrinter = CreateThread(Print, "")

; 等待计数线程结束
JoinThread(threadCounter)

; 最后销毁打印线程
SetThreadRunning(threadPrinter, False)
CloseThread(threadPrinter)

在这段代码中，`threadCounter`负责递增计数，`threadPrinter`负责在计数完成后打印结果。通过`JoinThread`函数，主线程会阻塞直到计数线程结束。