PureBoard

Verfasst: **13.09.2011 13:13**

Hi,

Mein problem ist, dass bei folgendem Quellcode das Fenster hängt,
sobald der Thread mit dem Start-Gadget gestartet wurde.

Code: Alles auswählen

Global endthread.i

Procedure Prozedur1()
  ....
  While Eof(1)=0 And endthread=0
    ....
  Wend
  ....
EndProcedure

If OpenWindow(1,0,0,480,270,"Beispielfenster",#PB_Window_ScreenCentered | #PB_Window_SystemMenu | #PB_Window_MinimizeGadget)
  
  ButtonGadget(1,100,100,100,70,"Start")
  ButtonGadget(2,280,100,100,70,"Ende")
  
  Repeat
    event=WaitWindowEvent()
    
    If event=#PB_Event_Gadget      
      Select EventGadget()
          Case 1 : If thread=0
            CreateThread(Prozedur1(),endthread)
            thread=1
          EndIf
        Case 2 : endthread=1
      EndSelect
    EndIf
    
  Until event = #PB_Event_CloseWindow
  
EndIf

danke für eure Hilfe,
Lowallyn

Verfasst: **13.09.2011 13:17**

Bei der Prozedur fehlt schonmal ein Parameter:

Code: Alles auswählen

Procedure Prozedur1(PARAMETER.i)

Verfasst: **13.09.2011 13:18**

...und bei CreateThread fehlt das @:

Code: Alles auswählen

CreateThread(@Prozedur1(),endthread)

So wurde die Procedure aufgerufen, ohne dass ein Thread erstellt wurde.
lg kevin

Verfasst: **13.09.2011 13:25**

Vielen Dank euch beiden.

CSHW89, du hast den Nagel auf den Kopf getroffen mit deiner Antwort ^^

Verfasst: **13.09.2011 13:30**

Lowallyn hat geschrieben:Vielen Dank euch beiden.

CSHW89, du hast den Nagel auf den Kopf getroffen mit deiner Antwort ^^

Den Parameter darfst du trotzdem nicht vergessen, sonst schmiert das Programm unter gewissen Umständen ab.

Verfasst: **13.09.2011 13:34**

Hab ich schon geändert.

Danke auch für diesen Hinweis

PureBoard

Fenster hängt ohne ersichtlichen Grunde

Fenster hängt ohne ersichtlichen Grunde

Re: Fenster hängt ohne ersichtlichen Grunde

Re: Fenster hängt ohne ersichtlichen Grunde

Re: Fenster hängt ohne ersichtlichen Grunde

Re: Fenster hängt ohne ersichtlichen Grunde

Re: Fenster hängt ohne ersichtlichen Grunde