XProfan

Français

Jörg
Sellmeyer

Pour meinem verständnis devrait %umessage pour dem Lecture zurückgesetzt volonté, avec cela es sinnvoll genutzt volonté peux.
Zumindest chez %umessage = 16 ist cela mais pas qui le cas. Selbst un effacer qui Message avec Utilisateur Messages -16 bringt rien, weil %umessage weiterhin la valeur 16 behält.

Kompilieren Marque Séparation

Utilisateur Messages 16
Cls

Tandis que 1

    WaitInput
    Imprimer %umessage
    Cas %mousepressed = 2:Fin
    Utilisateur Messages -16
    SetTimer 1
    WaitInput
    KillTimer
    Imprimer %umessage,"Hier devrait doch au plus tard 0 auftauchen"
    Utilisateur Messages 16

Wend

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

18.08.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

- page 1 -

Jörg
Sellmeyer

Tja, comment on hierdran sieht, funktioniert aussi cela pas

Kompilieren Marque Séparation

Fenêtre Style 2 + 8 + 16 + 32 + 512
Utilisateur Messages 16,$0044
Cls

Tandis que 1

    WaitInput
    Imprimer %umessage
    Cas %mousepressed = 2:Fin
    Cas %umessage = 16:SendMessage(%hwnd,$0044,0,0)
    imprimer %umessage
    Cas %umessage = 16:Pause

Wend

waitinput

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

18.08.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

Éditer: Pour quelque chose rumprobieren habe je maintenant edoch une Solution trouvé (de qui je eigentlich dachte, je hätte vous auparavant déjà getestet).

je voudrais soetwas faire - quasi cela Schließen-Croix comme Stop-Button "misbrauchen". Meiner attitude pour sollte cela possible son:

Kompilieren Marque Séparation

Fenêtre Style 2 + 8 + 16 + 32 + 512
Utilisateur Messages 16,$0044
Cls
neu################

Proc KillUMEssage

    SetTimer 1
    WaitInput
    KillTimer
    SendMessage(%hwnd,$0044,0,0)

ENDPROC

######################

Proc Test

    WhileLoop 10000

        Localiser 1,1
        Imprimer "Test " + Str$(&Boucle)

        Si %umessage = 16

            SendMessage(%hwnd,$0044,0,0)
            Pause

        EndIf

    Wend

ENDPROC

Tandis que 1

    WaitInput
    Imprimer %umessage,%clé
    Cas %mousepressed = 2:Fin

    Si %umessage = 16

        récente############
        KillUMEssage
        ###############
        Pause

    ElseIf ScanKey(65) bouton a

        Test

    EndIf

Wend

 $B "Ende?"

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

18.08.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Irgendwo J'ai eu Schonmal

Kompilieren Marque Séparation

setTimer 10

tandis que uMessage { waitInput }

killTimer

posté - mais là fehlt imho et avec ca, suis grad sans ordinateur sur dem je testen pourrait...

19.08.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

oui - cela J'ai eu aussi déjà so probiert (s.o.). seulement qui Tip de Dieter hats gebracht.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

19.08.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

RGH

qui Systemvariable %UMessage wird dans qui acte pas beim Lecture sur 0 zurückgesetzt, mais beim Eintritt ins WaitInput.

Salut
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

19.08.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

mais ensuite devrait im ersten Beispiel doch %umessage wieder 0 son, là oui encore un WaitInput dans qui Boucle ist. Avec l' Utilisateur Messages -16 peux on aussi rauslassen, es bewirkt nämlich nix.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

19.08.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

RGH

mais beim Eintritt ins WaitInput

je crois c'est pas qui le cas, je crois une uMessage wird seulement überschrieben si une neue eintrifft. (peux es ici ldr. pas testen, mon mais mich avec cela deswegen déjà herumgeprügelt avons trop doit.)

19.08.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

Sach je oui!

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

19.08.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Juhu XProfan wird toujours besser - bzw. pour chaque gefundenen "Fehler" aussi qui Programme stabiler.

19.08.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

- page 2 -

DeHarrow

allô!

Wärme la fois kurz cette Fil sur. chez %UMessage sollte doch cela Zurücksetzen pour dem WaitInput gefixt
worden son (depuis 11.2 glaube je)? Habe Probleme chez folgendem Beispiel:
Kompilieren Marque Séparation

 $P+
SET("ERRORLEVEL",0)
********************** HINWEISE ********************************
CODE ERZEUGT MIT ROKOS OBJECT CREATOR 4.6.6
DATUM  26.05.2010    um  14:21 Uhr
VERWENDETE PROFANVERSION IST 11.2a-NT XPROFAN
CODE ERSTELLT UNTER WINDOWS Unbekannt
!!! Dieser Code wird von Roc immer neu erzeugt        !!!
!!! Erst bearbeiten, wenn alle Objekte erzeugt wurden !!!
 $I C:XPROFAN11LIBPROFALT.INC
!!! Verändern Sie ggf. feste Pfade in variable Pfade  !!!
DECLARE ENDE%
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
WINDOWSTYLE 63
WINDOWTITLE "Neues Fenster"
WINDOW 22,20-640,500
CLS GETSYSCOLOR(15)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1
Hier kann ggf. Ihr Menü hin
SETFOCUS(%HWND)REPAINT
UserMessages $24  WM_GETMINMAXINFO
WaitInput
Test:

If %UMessage = 36

    Print %UMessage

EndIf

UserMessages 0
Sleep 500
Print %UMessage
Goto s=s3>"Test"

Es wird pour Bewegen des Fensters toujours seulement qui Message 36 angezeigt et pas zurückgesetzt,
wobei es avec dem damaligen Workaround klappt (anstatt UserMessage 0):
Kompilieren Marque Séparation

setTimer 33

tandis que %uMessage

    waitInput
    cas %wmtimer:pause

Wend

killtimer

fais je quoi faux ou bien gibt es là encore Schwierigkeiten?

Salut Jürgen
(X-Profan 11.2a sous Windows 7)

Angefangen hat alles mit Profan 5.0 ...noch auf Diskette

27.05.2010 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Probiere la fois si pour gesandter UserMessage %uMessage sich zurücksetzt alors cet Boucle sortir de wird:
Kompilieren Marque Séparation

proc rmUMsgs

    while %uMessage

        waitInput 1

    wend

en

/a>

cela Sleep au haut de Deinem Code bewirkt imho pas quoi Du erwartest - Du stellst den Fil seulement tot statt ihm Zeit trop donner - so gesehen "kontraproduktiv" angebracht.

27.05.2010 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

DeHarrow

oui, qui Wert ist maintenant 0. Hat mir Kopfzerbrechen bereitet, weil je déjà qui sais Gott quoi ausprobiert hatte, et sur qui Suchfunktion seulement spät fündig wurde. Thx

Angefangen hat alles mit Profan 5.0 ...noch auf Diskette

27.05.2010 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

◄