XPSE

Français

p.specht

thread.is liefert lt. xpse-page momentan toujours zéro.
Gibt es Hinweise, pourquoi cela so ist? dans Java, aussi interpretierend, scheint qui entsprechende Befehl thread.isalive trop marcher. wohin pourrait je ou bien quelqu'un Berufenerer ansetzen?

Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...

30.11.2018 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

« cette Beitrag wurde comme Solution gekennzeichnet. »

Tjo, là habe je wohl Mist gebaut.

s'il te plaît la fois cette Workaround regarder:

Kompilieren Marque Séparation

nProc thread.is2(long thread)

    long cs=criticalsection.begin(str(thread))
    thread=long(thread,36)
    criticalsection.end(cs)
    return thread

endProc

Alle Sprachen
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

05.12.2018 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

p.specht

JAU klappt - merci iF!

Kompilieren Marque Séparation

 {$cleqt}
Windowstyle 24
cls rgb(255,200,200)

nProc thread.is2(long thread)

    long cs=criticalsection.begin(str(thread))
    thread=long(thread,36)
    criticalsection.end(cs)
    return thread

endProc

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&)
::::::::::::::::::::::::::::::imprimer thread.is2(thread&),

tandis que thread.is2(thread&)

endwhile

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

tandis que thread.is2(thread2&)

endwhile

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

tandis que thread.is2(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