XPSE

 {$cleqt}
Windowstyle 24
cls rgb(255,200,200)
var edit& =@Créer("Edit",%Hwnd,"1",40,20, 140,20)
var edit2&=@Créer("Edit",%Hwnd,"2",40,50, 140,20)
var edit3&=@Créer("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
Imprimer " Theads volonté qui Reihe pour finissez mittels ESC-bouton!"
Imprimer "\n Hauptprogramm eh bien dans Hauptschleife!"

repeat

    locate 23,23:imprimer n&:inc n&
    Titre de la fenêtre str$(n&)
    waitinput 100

until (%clé=27) or (%clé=2)

imprimer "\n Hauptschleife wurde sortir de."
waitinput 1500
thread.stop(thread&)

tandis que thread.is(thread&)

endwhile

thread.close(thread&)
imprimer "\n Habe Fil Nr. 1 finissez."
waitinput 1500
thread.stop(thread2&)

tandis que thread.is(thread2&)

endwhile

thread.close(thread2&)
imprimer " Habe Fil Nr. 2 finissez."
waitinput 1500
thread.stop(thread3&)

tandis que thread.is(thread3&)

endwhile

thread.close(thread3&)
imprimer " Habe Fil Nr. 3 finissez."
waitinput 1500
beep
imprimer "\n ici Hauptprogramm: Isch 'abe feddisch... BYEBYE!"
waitinput 3000
FIN

nproc meinThread :parameters thread&,dataLong&,dataString$

    whilenot thread.message(thread&)==wm_close

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

    endwhile

    return 0

endproc

nproc meinZweiterThread :parameters thread2&,dataLong2&,dataString2$

    whilenot thread.message(thread2&)==wm_close

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

    endwhile

    return 0

endproc

nproc meinDritterThread :parameters thread3&,dataLong3&,dataString3$

    whilenot thread.message(thread3&)==wm_close

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

    endwhile

    return 0

endproc