| |
|
|
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 | |
|
|
|
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 |
|
|
| |
|
|
|
| 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 |
|
|
| |
|
|
|
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 |
|
|
| |
|
|
|
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 ) |
|
|
| |
|
|
|
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 ▲ |
|
|
|