[*]Profan

- Seite 2 -

Hubert
Binnewies

Pedro Santos

Hallo

Xprofan10 verhält sich anders als xprofan9 den waitinput wird nicht verlassen wenn Control(STATIC verwendet wird, testen kann man es mit den Beispielcode Panelbar von Rolf Koch von seine Webpage ladbar

Nachtrag: Wenn das waitinput durch getmessage ersetzt wird funktioniert es
Gruss

Pedro

Nicht ganz..
Auch bei XProfan 9.1 wird bei einem Control(Static das Waitinput nicht verlassen.
Hier geht es zwar auch mit einem GetMessage, aber es entstehen weitere Probleme.
Man muss fast einen eigenen Message Handler schreiben und ein Problem ist für mich bisher ungelöst und es hat noch keiner geantwortet.
Siehe hier : [...]

Hubert

WinXP Prof, XProfan 9.1 Newbie

Ein kluger Kopf sagte mal:
"Nach dem derzeitigen Stand der Technik ist es unmöglich Programme zu schreiben, die fehlerfrei laufen!"

06.08.2006 ▲

- Seite 3 -

Jac
de
Lad

Danke, Roland ich hatte vergessen, dass es den Befehl schon bei XProfan 9 gab!

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

06.08.2006 ▲

Jac
de
Lad

Hallo Roland, mir ist grad aufgefallen, dass XProfan 10 alle Ausdrücke hinter einem if und so immer vollständig auswertet. Beispiel...
Kompilieren Markieren Separieren

if %ParCount AND (Par$(1)=/hallo)

    ...

endif

...stürzt mit Fehlermeldung ab, wenn keine Parameter in der Kommandozeile angegeben wurden. Meiner Meinung nach wäre es sinnvoller (und vor allem schneller!), wen XProfan die Ausdrücke nicht vollständig auswerten würde, wenn der Ausdruck sowieso falsch ist...vielleicht lässt sich das ja einrichten!

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

08.08.2006 ▲

Beides hat seine Vor- und Nachteile! Aus C++ kenne ich das die Auswertung stoppt sobald das Ergebnis eh feststeht. Es wird von links nach rechts ausgewertet.

Michael
Dell

Dann müßte der wichtigste Faktor immer Links stehen, bei komplexen Berechnungen ist das aber oft nicht möglich. Wenn dann sollte das mittels eines Set(.. Befehls zuschaltbar sein.

Salu Michael...

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

Michael Dell

Dann müßte der wichtigste Faktor immer Links stehen, bei komplexen Berechnungen ist das aber oft nicht möglich.

Hm nee - ich glaub hier müsste ich widersprechen. Es hat nichts mit der komplexiblität einer Berechnung zu tun. Es würde sich im Grunde nichts ändern außer das Aufrufe wegfallen (Was zur Folge haben kann das Funktionen welche im Argument vorkommen vielleicht erst garnicht aufgerufen würden!) weil der Result bereits true oder false ist.

Jac
de
Lad

XProfan arbeitet das sowieso von links nach rechts ab. Da sehe ich kein Problem, aber ich lasse mich zur Not auch vom Gegenteil überzeugen. Ich denke nur, dass könnte auch etwas Performance bringen und, wie in meinem letzten Post, auch einige kleine programmiererische Vorteile.

Jac

PS: Per Set()-Funktion ein- und ausschalten fänd ich gut! Auch der Kompatibilität wegen (obwohl ich da keine Probleme sehe...)

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

Michael
Wodrich

Auch die Sprache Pascal wertet nach dem ShortCut-Verfahren.

Hier muß der Programmierer natürlich aufpassen:
Kompilieren Markieren Separieren

if 1 and func()

    ...

endif

if 1 or func()

    ...

endif

Im ersten Fall wird die Funktion aufgerufen um die Bedingung zu ergründen.
Im zweiten Fall steht das Ergebnis aber schon bei der 1 fest (wird als True gewertet). Hier wird die Funktion NICHT aufgerufen.

Das kann, wenn in der Funktion Dinge für den if-Zweig vorbereitet, natürlich zu Problemen führen.

Einfache Abhilfe: man verkneift sich solche Konstrukte.
Eine ganze Programmiererwelt hat gezeigt, daß man mit dem Kurzverfahren sehr gut leben kann.

Schöne Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

Ich denke - entscheidend ist das man weiß wie die eigene Sprache funktioniert...

Jac
de
Lad

Ich muss nochmal zwei Sachen ansprechen:

1. Wenn man mit AddHotKey einen Hotkey erstellt funktioniert der nicht, wenn man als Taste eine der Maustasten definiert ($01-$04). Ich denke, das sollte auch möglich sein, bzw. es wäre günstig.

2. Wenn ich ein Control nicht auf einem Fenster sondern zum Beispiel auf einem Static erzeuge dann wird beispielsweise beim Klicken auf einen Button das Waitinput nicht durchbrochen. Ich weiß, dass es mit GetMessage geht, aber da kommen in meinem Programm beispielsweise andere Probleme hinzu. Ich denke, dass Waitiinput, soweit das realisierbar ist, alle Steuerelemente abfragen sollte, also auch Buttons auf Statics usw.

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

09.09.2006 ▲

Jörg
Sellmeyer

Hallo Jac,
Probier mal das hier:
Kompilieren Markieren Separieren

Cls
Declare st&,b&
st&=Control(DIALOG,,$54000000,0,0,Width(%hwnd),Height(%hwnd),%hwnd,-1,%hinstance)
b&=Create(Button,st&,Test,50,50,50,24)
Declare ende%

WhileNot ende%

    WaitInput

    IF Equ(%key,2)

        Let ende%=1

    ElseIf Clicked(b&)

        print Es geht!!

    EndIf

Wend

Gruß
Jörg

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

09.09.2006 ▲

Jac
de
Lad

@Jörg: Ich probiers morgen mal aus, muss mich jetzt erstmal bei Titan Quest entspannen.

Noch ne Sache: Bitte, bitte, bitte Roland, baue bei Listviews auch ein, dass waitinput bei Druck auf <Enter> mit %Key=13 verlassen wird (wie bei Listboxen)! Und vielleicht könnte man das bei Comboboxen mit Editierfunktion auch einbauen.

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

09.09.2006 ▲