Sub

→ 関数

While cond
WEnd

main  xx, 12

Sub  main( x, ByVal y )

  Exit Sub

End Sub

'***********************************************************************
'* Function: Func
'***********************************************************************
Sub  Func()
    Set threads = new ArrayClass
    threads.Add = FuncStart()
        :
    Do
        is_waiting = True
        For Each  thread  In  threads.Items
            is_waiting = is_waiting  and _
            _
                thread.Dispatch

            If IsEmpty( thread.StepIndex ) Then _
                Exit Do
        Next
        If is_waiting Then _
            WScript.Sleep  100
    Loop
End Sub


 
'***********************************************************************
'* Function: FuncStart
'***********************************************************************
Function  FuncStart()
    Set a_Me = new FuncClass
    local_variable = "A"


            '// ================================ Start of pseudo multi thread.
                a_Me.StepIndex = 2
                a_Me.local_variable = local_variable
            End Function

            '***********************************************************************
            '* Class: FuncClass
            '***********************************************************************
            Class  FuncClass
                Public  StepIndex

                '// Local variables
                Public  local_variable

            '***********************************************************************
            '* Method: Dispatch
            '***********************************************************************
            Public Sub  Dispatch()
                Select Case  Me.StepIndex
                    Case  2:  Me.Step2
                    Case  91:  Me.FinalizeStep1
                    Case Else:  Error
                End Select
            End Sub

            '***********************************************************************
            '* Method: Step2
            '***********************************************************************
            Public Sub  Step2()
                local_variable = Me.local_variable
            '// ================================== End of pseudo multi thread.


    local_variable = "B"


            '// ================================ Start of pseudo multi thread.
                Me.StepIndex = 91
                Me.local_variable = local_variable
            End Sub

            '***********************************************************************
            '* Method: FinalizeStep1
            '***********************************************************************
            Public Sub  FinalizeStep1()
                local_variable = Me.local_variable
            '// ================================== End of pseudo multi thread.


    local_variable = "C"


            '// ================================ Start of pseudo multi thread.
                Me.StepIndex = Empty
            '// ================================== End of pseudo multi thread.
End Sub
End Class

'* Section: Global


 

プリエンプション（スレッドのコンテキスト・スイッチ）を発生させる代わりに、関数から戻って、

ユーザーがスレッドを切り替えることを

擬似マルチスレッド

と呼びます。

擬似マルチスレッドに対応するには、関数（処理）の途中からリターンする 「中断」 機能だけでなく、
関数の途中から 「再開」 する機能を、関数に組み込む必要があります。 そのため、途中の状態（
ローカル変数だった変数、ループ変数）は、スレッドのコンテキスト（クラス）に配置します。

他のスレッドやプロセスの処理を待つ直前で、関数を区切ります。

→ スレッド (コンピュータ) - Wikipedia (Web)

参考

→ 【簡単理解】Javaのスレッド・マルチスレッドとは？ (Web)

Func  0, 0, out  '// False
Func  1, 0, out  '// False
Func  0, 1, out  '// False
Func  1, 1, out  '// True

WScript.Echo  out

Sub Func( a, b, out )
    and_ = ( a > 0 )
    If and_ Then and_ = ( b > 0 )
    If and_ Then
        out_bool = "True"
    Else
        out_bool = "False"
    End If
    out = out & a &" and "& b & " = "+ out_bool + vbCRLF
End Sub

Function  GetRef( FuncName as string ) as Function or Sub

文字列で指定したシンボルのプロシージャを返します。

FuncName に指定したプロシージャが定義されていないときは、エラー 5 になります。

サンプル：