【叶子出品】一段非常简单的多线程演示代码
#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
页:
[1]