XPSE

 {$cleqt}
Windowstyle 24
cls rgb(255,200,200)
var edit& =@Crear("Edit",%Hwnd,"1",40,20, 140,20)
var edit2&=@Crear("Edit",%Hwnd,"2",40,50, 140,20)
var edit3&=@Crear("Edit",%Hwnd,"3",40,80, 140,20)
var thread& =thread.start(procaddr(meinThread), edit&, "1000")
var thread2&=thread.start(procaddr(meinZweiterThread), edit2&, "2000")
var thread3&=thread.start(procaddr(meinDritterThread), edit3&, "3000")
var n&=0
font 2
locate 15,1
Imprimir " Theads voluntad el Reihe después de final mittels ESC-Taste!"
Imprimir "\n Hauptprogramm nun en Hauptschleife!"

repeat

    locate 23,23:imprimir n&:inc n&
    Título de la ventana str$(n&)
    waitinput 100

until (%key=27) or (%key=2)

imprimir "\n Hauptschleife wurde verlassen."
waitinput 1500
thread.stop(thread&)

mientras que thread.is(thread&)

endwhile

thread.close(thread&)
imprimir "\n Posesiones Hilo Nr. 1 final."
waitinput 1500
thread.stop(thread2&)

mientras que thread.is(thread2&)

endwhile

thread.close(thread2&)
imprimir " Posesiones Hilo Nr. 2 final."
waitinput 1500
thread.stop(thread3&)

mientras que thread.is(thread3&)

endwhile

thread.close(thread3&)
imprimir " Posesiones Hilo Nr. 3 final."
waitinput 1500
beep
imprimir "\n Hier Hauptprogramm: Isch 'abe feddisch... BYEBYE!"
waitinput 3000
FIN

nproc meinThread :parámetros thread&,dataLong&,dataString$

    whilenot thread.mensaje(thread&)==wm_close

        settext(dataLong&,"["+time$(0)+"."+substr$(time$(1),1,".")+"]")
        sleep(1000)

    endwhile

    volver 0

ENDPROC

nproc meinZweiterThread :parámetros thread2&,dataLong2&,dataString2$

    whilenot thread.mensaje(thread2&)==wm_close

        settext(dataLong2&, "("+time$(1)+"."+substr$(time$(0),1,".")+")")
        sleep(1333)

    endwhile

    volver 0

ENDPROC

nproc meinDritterThread :parámetros thread3&,dataLong3&,dataString3$

    whilenot thread.mensaje(thread3&)==wm_close

        settext(dataLong3&, "{"+time$(0)+"."+substr$(time$(1),1,".")+"}")
        sleep(3000)

    endwhile

    volver 0

ENDPROC