Français
Forum

Prog. finissons avec fensterschließen Croix funktioniert pas?

 

Manfred
Barei
Salut,

habe avec folgendem Prog. Code quelque chose Probleme et zwar läst sich cela la fenêtre pas plus sur cela schließen Croix finissons.
KompilierenMarqueSéparation
proc prgexit

    MessageBox("Programm  beenden?","Frage:",36)

    if %Button = 6

        ende& = 1
        ASSIGN #1,PrgDir$+"NACHN.BMP"
        ASSIGN #2,PrgDir$+"ABS.BMP"
        ASSIGN #3,PrgDir$+"EMP.BMP"
        ERASE #1
        ERASE #2
        ERASE #3

    endif

    SetMenuItem 0
    SETFOCUS(%HWND)

endproc

proc anzeige

    DECLARE ende&
    DECLARE Formular&, Datenbank&
    SETTRUECOLOR 1
    WINDOWSTYLE 538
    window (%MaxX+2),((%MaxY/2)-250)-596,510
    GETSYSCOLOR(15)
    PopUp "&Datei"
    AppendMenu 102,"D&rucken"
    Separator
    AppendMenu 190,"&Ende"
    SetWindowPos %HWnd=((%MaxX/2)-298),((%MaxY/2)-250)-596,510;0
    ende&=0
    SETFOCUS(%HWND)

    whilenot ende&

        sleep 100

        If @MenuItem(190) or (%Key = 2)

            prgexit

        ELSEIF GETFOCUS(Formular&)

        ELSEIF GETFOCUS(Datenbank&)

        endif

    ENDWHILE

endproc

anzeige

je besoin qui Whilschleife mais avec einem sleep, es doit doch possible son, habe cela aussi irgentwo einmal gelesen, finde es mais pas plus.

je hoffe vous pouvez aider.

Grus aus qui Heide de Manfred
Windows XP Prof. , Profan 8/9
 
Zu wenig Wissen ist gefärlich, zu viel auch.(XProfan X4) | Win 10 Pro 64 | Win7 Ultimate 32/64 | AMD FX-8320, 16GB, GeForce GT 630 |
03.02.2005  
 




Manfred
Barei
allô nochmal,

Soory, es venez toujours une Fehlermeldung cela qui Variable PrgDir$ pas Declariert ist, s'il te plaît auskommentieren.
Habe den Prog. Code aus meinem Laufenden Programme entnommen et pour cet Beispiel oublier qc qui Variable trop effacer.

Grus Manfred
 
Zu wenig Wissen ist gefärlich, zu viel auch.(XProfan X4) | Win 10 Pro 64 | Win7 Ultimate 32/64 | AMD FX-8320, 16GB, GeForce GT 630 |
03.02.2005  
 




Michael
Dell
allô Manfred,

versuchs la fois so:
KompilierenMarqueSéparation
whilenot ende&

    sleep 100

    If @MenuItem(190) or (%Key = 2) or (%MenuItem = -2)

        prgexit

    ELSEIF GETFOCUS(Formular&)

    ELSEIF GETFOCUS(Datenbank&)

    endif

Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht! 
03.02.2005  
 




Manfred
Barei
allô Michael,

merci pour qui Antwort, habe je mais aussi déjà probiert ( Funzt pas).

Grus Manfred
 
Zu wenig Wissen ist gefärlich, zu viel auch.(XProfan X4) | Win 10 Pro 64 | Win7 Ultimate 32/64 | AMD FX-8320, 16GB, GeForce GT 630 |
03.02.2005  
 




CB
Hi,
probier la fois cela:

DEF &WM_CLOSE $010
DEF &WM_COMMAND $0111
Utilisateur Messages &WM_COMMAND,&WM_CLOSE

dans qui Hauptschleife: (seulement prinzipiell, suis dans la hâte):

Whilenot Ende&
Sleep 100
Waitinput
Si %UMessage = &WM_CLOSE
Ende& = 1
ElseIf %UMessage = &WM_COMMAND
Si &ULParam = Formular&
.
.
.

Salut,
Christian
 
XProfan 8/9.1, Win XP, AMD 64/3200
03.02.2005  
 



cela Vous Tandis que-Boucle besoin - avec einem Sleep - est hoffe je seulement qui halbe vérité.

peut-être veux Du mais aussi seulement cela cela Programme weiterläuft wärend dessen qui Hauptroutine qui normalen Aufgaben erledigt.

oui c'est ca pour gibts qui Fil.pcu

cinq Zeilen plus et tu as cela gewünschte Ergebnis:
KompilierenMarqueSéparation
 $U thread.pcu = thread.

proc prgexit

    MessageBox("Programm  beenden?","Frage:",36)

    if %Button = 6

        ende& = 1
        ASSIGN #1,PrgDir$+"NACHN.BMP"
        ASSIGN #2,PrgDir$+"ABS.BMP"
        ASSIGN #3,PrgDir$+"EMP.BMP"
        ERASE #1
        ERASE #2
        ERASE #3

    endif

    SetMenuItem 0
    SETFOCUS(%HWND)

endproc

proc anzeige

    DECLARE ende&
    DECLARE Formular&, Datenbank&
    SETTRUECOLOR 1
    WINDOWSTYLE 538
    window (%MaxX+2),((%MaxY/2)-250)-596,510
    PopUp "&Datei"
    AppendMenu 102,"D&rucken"
    Separator
    AppendMenu 190,"&Ende"
    SetWindowPos %HWnd=((%MaxX/2)-298),((%MaxY/2)-250)-596,510;0
    ende&=0
    SETFOCUS(%HWND)
    thread.start 1

    whilenot ende&

        waitinput

        If @MenuItem(190) or (%Key = 2)

            prgexit

        ELSEIF GETFOCUS(Formular&)

        ELSEIF GETFOCUS(Datenbank&)

        endif

    ENDWHILE

    thread.stop 1

endproc

proc thread.do

    settext %hwnd,time$(0)+"."+time$(1)

endproc

='./../../references-fonction/XProfan/anzeige/'>anzeige
Salve, iF
 
03.02.2005  
 




Manfred
Barei
Salut,

trop Christian: cela Waitinput peux je dans cette Boucle pas gebrauchen, c'est pourquoi sleep.

trop IF: non, je coutume qui Boucle avec einem sleep là qui Boucle avec einem Waitinput pas funktioniert.
vous hôtelier zwischendurch toujours la fois wieder abgefragt.

qui Boucle wird pour betätigen eines Buttons sortir de et verzweigt dans un Unterschleife. qui Hauptschleife wird mais toujours wieder la fois abgefragt.

Um eh bien pas qui gesamte CPU-Auslastung diesem Programme zuzuteilen cela sleep.

je hoffe j'ai mich verständlich ausgedrückt.

Grus Manfred
 
Zu wenig Wissen ist gefärlich, zu viel auch.(XProfan X4) | Win 10 Pro 64 | Win7 Ultimate 32/64 | AMD FX-8320, 16GB, GeForce GT 630 |
03.02.2005  
 



exposition Dir doch nochmal meinen Source à - qui pouvoir oui c'est ca cela quoi Du vouloir. Schaue Dir aussi fois le Aider zur Fil.Pcu à. Du musst doch pas cela Hauptprogramm avec dem Gewurstel beschäftigen - besonders si Du doch eigendlich cela Waitinput brauchst. Pour cette ist qui Procédure Fil.Do doch là.

je denke si Du un bisl umdenkst ist cela oui c'est ca cela quoi Du brauchst.

Salve, iF
 
03.02.2005  
 




Rolf
Koch
Hi Manfred,

jawohl, IFs Fil.pcu ist wirklich quoi Du besoin!
plusieurs Minuteur mettons, verschiedene Sujets nebenbei abfragen et Travailler (dato étions es doch jusque 5, IF?) et ca chez 0% Prozessorauslastung im Hauptprogramm.
Vorallem qui Einbindung ist mind. genauso simple comme si on une Minuteur mets.

Rolf (Hatschi )
 
03.02.2005  
 




Jörg
Sellmeyer
allô Manfred,
So devrait es aussi avec Deinem Code marcher:
KompilierenMarqueSéparation
proc prgexit

    MessageBox("Programm  beenden?","Frage:",36)

    if %Button = 6

        ende& = 1
        KillTimerTimer freigeben
        ASSIGN #1,PrgDir$+"NACHN.BMP"
        ASSIGN #2,PrgDir$+"ABS.BMP"
        ASSIGN #3,PrgDir$+"EMP.BMP"
        ERASE #1
        ERASE #2
        ERASE #3

    endif

    SetMenuItem 0
    SETFOCUS(%HWND)

endproc

proc anzeige

    DECLARE ende&
    DECLARE Formular&, Datenbank&
    SETTRUECOLOR 1
    WINDOWSTYLE 538
    window (%MaxX+2),((%MaxY/2)-250)-596,510
    GETSYSCOLOR(15)
    PopUp "&Datei"
    AppendMenu 102,"D&rucken"
    Separator
    AppendMenu 190,"&Ende"
    SetWindowPos %HWnd=((%MaxX/2)-298),((%MaxY/2)-250)-596,510;0
    ende&=0
    SETFOCUS(%HWND)
    SetTimer 1je kleiner der Timer, desto besser reagiert das Programm
    ob 1 oder 100 hat auf die CPUauslastung ca. 5%-10% Auswirkung

    whilenot ende&

        CaseNot %wmtimer:WaitiInput

        If @MenuItem(190) or (%Key = 2)

            prgexit

        ELSEIF GETFOCUS(Formular&)

        ELSEIF GETFOCUS(Datenbank&)

        endif

    ENDWHILE

endproc

/../references-fonction/XProfan/anzeige/'>anzeige

Salut
Jörg
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
03.02.2005  
 



répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

4.236 Views

Untitledvor 0 min.
H.Brill13.09.2022
Walter10.05.2021
W.L.19.07.2017
Deaktiviert04.02.2017
plus...

Themeninformationen



Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie