Seite 2 von 2

Re: Sofort beenden bei Shutdown umgehen?

Verfasst: 24.07.2010 14:02
von Bisonte
Du meinst in etwa so ... :

:bounce: => :coderselixir: <= :D

oder in Worten : Viele Events -> lange warten -> eine Eventdurchreiche ( WindowEvent() )

Re: Sofort beenden bei Shutdown umgehen?

Verfasst: 24.07.2010 14:23
von ts-soft
Bisonte hat geschrieben:Du meinst in etwa so ... :
Ich meinte, statt:

Code: Alles auswählen

Repeat
  Select WaitWindowEvent()
    Select EventGadget()
      Case #btnPoppel
        FuenfMinutenInDerNasePoppeln()
    EndSelect
  EndSelect
ForEver
in etwa so:

Code: Alles auswählen

Procedure Poppel()
  Static time
  If time < 5 Minuten
    ... poppelfür 10 sekunde
  EndIf
  time + 10 sekunden
EndProcedure

Repeat
  Select WaitWindowEvent()
    Select EventTimer()
      Case #timePoppel
        Poppel()
    EndSelect
  EndSelect
ForEver
:mrgreen: