XProfan

English

E.T.

Have the (yet inoffizielle ??) waitinput n in of my Images-SlideShow "missbraucht" and fixes, the sometime The Time n not any more or only yet sporadisch clutching. The Loop runs then "durch", as would the N=0.
example, pointed sometime "rennt:
Compile Mark Separation

...
Clear Ende%, LfdBild%

WhileNot Ende%

    Inc LfdBild%

    If (%Key = 27) OR (%GetCount+1 = 0)

        Ende% = 1

    ElseIf (%GetCount + 1) > 0

        Pic_Laden
        Einblenden(@Rnd(5))
        Text
        waitinput ShowTime%

        If @IsKey(19)

            Pause

        EndIF

        Ausblenden(@Rnd(5))
        @DeleteString(0,PicNr%)

    EndIf

EndWhile

Killtimer
...

with Settimer funktionierts...
Compile Mark Separation

...
Clear end%, LfdBild%

WhileNot end%

    Inc LfdBild%

    If (%Key = 27) OR (%GetCount+1 = 0)

        end% = 1

    ElseIf (%GetCount + 1) > 0

        Pic_Laden
        overlay(@Rnd(5))
        Text
        SetTimer ShowTime%
        waitinput

        If @IsKey(19)

            interval

        EndIF

        Invisible(@Rnd(5))
        @DeleteString(0,PicNr%)

    EndIf

EndWhile

Killtimer
...

somehow, as would the "interne Timer" with Waitinput n overcrowded

...

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

10/30/10 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote