XProfan

 $DLL

DLLPROC Count_C,1,"Count_C"

    parameters param#
    declare i&,a&,s$,hAufrufer&,ThreadRunning#,hText&,StartWert&
    s$=@string $(param#,0)
    'first thing the Flag for the aufrufende Program settle, that the Thread runs
    a&=val(@substr$(s$,2,"²~³"))
    ThreadRunning#=a&
    long ThreadRunning#,0=1
    'Aufrufer-Fensterhandle detect
    hAufrufer&=@val(@substr$(s$,1,"²~³"))
    'Textcontrol-lever detect
    hText&=@val(@substr$(s$,3,"²~³"))
    'Startwert detect
    StartWert&=@val(@substr$(s$,4,"²~³"))
    'count manage
    i&=StartWert&

    while i&<=StartWert&+10000

        settext hText&,@st$(i&)
        inc i&

    endwhile

    'Return Value übermitteln
    @sendmessage(hAufrufer&,$1000,hText&,0)
    long ThreadRunning#,0=0'Flag for the aufrufende Program for, that the Thread runs, delete
    return 0

ENDPROC

'Multithreading-example with XProfan-ThreadProc in C-DLL over Profan2Cpp
 $H windows.ph
declare hDLL%,uwp&,CProcAddr&
declare hText1&,hText2&,hText3&
declare s1$,s2$,s3$
declare hThread1&,hThread2&,hThread3&
declare ThreadRunning1&,ThreadRunning2&,ThreadRunning3&
cls ~getsyscolor(4)'Mainwindow with Hintergrundgrau create (because the Text-Dialogelemente in this colour held are)
usermessages $1000'with this Message signals one Thread, that it itself now exits (the can additional with the ? Happen? ThreadRunningX& screen go, what in this example but not using becomes)
hText1&=@create("TEXT",%HWnd,"0",10,10,300,20)'here becomes Thread 1 reinschreiben
hText2&=@create("TEXT",%HWnd,"0",10,35,300,20)'here becomes Thread 2 reinschreiben
hText3&=@create("TEXT",%HWnd,"0",10,60,300,20)'here becomes Thread 3 reinschreiben
hDLL%=@usedll("MultithreadingBeispielC.dll")'in this DLL is the Thread-procedure include
'Threads started
CProcAddr&=~GetProcAddress(hDLL%,"Count_C")'"echte" ProcAddr the into DLL ausgelagerten procedure relating (with direct Profan-Procedures does it not, so Profan self not multithreading-capable is)
s1$=@st$(%HWnd)+"²~³"+@st$(@addr(ThreadRunning1&))+"²~³"+@st$(hText1&)+"²~³1"'Übergabestring for Thread 1 with the Hauptfensterhandle, the Flag ThreadRunning, the lever the Text-Dialogelements and the Startwert feed
hThread1&=~createthread(0,0,CProcAddr&,@addr(s1$),0,0)'Thread 1 started
s2$=@st$(%HWnd)+"²~³"+@st$(@addr(ThreadRunning2&))+"²~³"+@st$(hText2&)+"²~³-10000"'Übergabestring for Thread 2 with the Hauptfensterhandle, the Flag ThreadRunning, the lever the Text-Dialogelements and the Startwert feed
hThread2&=~createthread(0,0,CProcAddr&,@addr(s2$),0,0)'Thread 2 started
s3$=@st$(%HWnd)+"²~³"+@st$(@addr(ThreadRunning3&))+"²~³"+@st$(hText3&)+"²~³12345678"'Übergabestring for Thread 3 with the Hauptfensterhandle, the Flag ThreadRunning, the lever the Text-Dialogelements and the Startwert feed
hThread3&=~createthread(0,0,CProcAddr&,@addr(s3$),0,0)'Thread 3 started
'On the end the Threads Waiting and react

while (@gettext$(hText1&)<>"Fertig.") or (@gettext$(hText2&)<>"Fertig.") or (@gettext$(hText3&)<>"Fertig.")

    waitinput

    if %umessage=$1000'one Thread signals, that it itself now exits and commit thereby his Texthandle in &UwParam

        uwp&=&UwParam

        if uwp&=hText1&

            settext hText1&,"Fertig."

        elseif uwp&=hText2&

            settext hText2&,"Fertig."

        elseif uwp&=hText3&

            settext hText3&,"Fertig."

        endif

    endif

endwhile

waitinput'so to the end with 3x "Fertig." sees
'straighten up
~closehandle(hThread1&)
~closehandle(hThread2&)
~closehandle(hThread3&)
usermessages 0
freedll hDLL%
end

cls
// 3 threads by myThread-Proc
createThread(,,procAddr(myThread,1),,,)
createThread(,,procAddr(myThread,1),,,)
createThread(,,procAddr(myThread,1),,,)
waitinput

nproc myThread

    parameters data&
    //...
    return data&

endproc