**スレッドの基本 スレッドの生成はCreateThread関数で行う。 スレッドは引数を１つだけもつ関数にする。 名前は何でもいい。 スレッドは戻り値を持っていて、GetExitCodeThreadで調べることができる。 スレッドの終を待つにはWaitFor〇〇関数を使うと良いかも。 #asciiart(blockquote){ #N88BASIC Dim hT As HANDLE Dim id As DWord hT = CreateThread(ByVal 0, 0, AddressOf(t), 5, 0, Varptr(id)) WaitForSingleObject(hT, INFINITE) CloseHnadle(hT) Print "スレッドは正しく終了しました" Function t(a As DWordPtr) As Long Print a End Function } このようにサブスレッドを作るのは簡単なんだけど、スレッド間の同期や、終了にかかあるタイミングがおかしいと、不具合のもとになる。 マルチスッドレは速くならない。速くなるケースは、マルチコアCPUで、かつスレッドの実際の処理がスレッドの生成や同期にかかるコストより大きくないといけない。 ウインドウプロシージャのような、場合、長大な処理をウインドウプロシージャでやると、フリーズするので、マルチスレッドにすることで、処理がすぐにカエルので、フリーズ対策になる。 ***クリティカルセクション ***セマフォ ***イベント
