【叶子出品】FreeBasic争抢式多线程的简单范例

这个东西是一开始学FB时做的一个小测试代码
本身没什么参考价值，但对于从VB转到FB的人来说这东西可以解除一些迷惑。

另外多线程属于负优化功能，多用并不会使程序效率提升，反而会导致效率变差，尤其是争抢式，请慎用。

[Visual Basic .NET] 纯文本查看 复制代码

#Include "Windows.bi"

Dim Shared i As Long
Dim Shared MeMutex As Any Ptr


Sub Thread1(Param As DWORD)
        Do While i < 100
                MutexLock(MeMutex)
                Print "线程" & Param & " - " & i
                i += 1
                MutexUnLock(MeMutex)
        Loop
End Sub


Dim As Any Ptr t1,t2
Print "开始输出"
MeMutex = MutexCreate()
t1 = ThreadCreate(Cast(Any Ptr,@Thread1),Cast(Any Ptr,1))
t2 = ThreadCreate(Cast(Any Ptr,@Thread1),Cast(Any Ptr,2))
ThreadWait(t1)
ThreadWait(t2)
MutexDestroy(MeMutex)
Print "输出完毕"
Sleep