XProfan

Walter
Köhler

mit @Clicked gehts übrigends erst recht nicht, das wird bei vorhandenem

elseif %Menuitem gar nicht mehr erkannt.
Habe in der Hilfe bisher keine Einschränkungen oder Hinweise oder Erklärungen gesehen.
WKS

WKS Win XP Xprofan 10 AMD 1.6GHz 1GB Ram

Walter
Köhler

Manchmal reicht es schon ein Problem Anderen mitzuteilen; und plötzlich kommt die Lösung durch Spielen von aleine.

elseif @menuitem(110)
test2

anstelle von

elseif %menuitem
case menuitem(110)

jetzt sieht das ok aus.

trotzdem Danke
WKS

WKS Win XP Xprofan 10 AMD 1.6GHz 1GB Ram

noch besser ist eine selectStruktur al�
Kompilieren Markieren Separieren

declare mItem%
waitInput
mItem%=abs(%menuItem)//erstmal sichern damit Wert nicht verloren gehen kann durch andere Ops

if mItem%

    select mItem%

        caseof 0:

        caseof 1000:brub

        otherWise

    endSelect

    setMenuItem 0//besser auf 0 setzen

endif

Walter
Köhler

Tut mir Leid, aber dein Vorschlag gefällt mir gar nicht.
mItem%=abs(%menuItem) macht schon mal eine Division / 0, und stirbt daher

cu WKS

WKS Win XP Xprofan 10 AMD 1.6GHz 1GB Ram

Jörg
Sellmeyer

Ich könnte mir gar kein Szenario vorstellen, bei dem Abs eine Division durch Null macht.
Davids Vorschlag ist schon sehr gut.
Du kannst ersatzweise auch direkt Select %menuItem benutzen, mußt dann aber immer testen, ob es ein negativer Wert ist, da z.B. Buttons ihre negative ID als MenuItem zurückgeben.

Ansonsten probier mal:
Kompilieren Markieren Separieren

Print Abs(1)
Print Abs(0)
Print Abs(-1)

Wenns da irgendwo knallt, hätte Roland ein echtes Problem aber etwas qualitativ Anderes kann auch bei mItem%=abs(%menuItem) nicht rauskommen.

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

Walter
Köhler

probier es selbst, habe im Source die Version von David eingebunden.
WKS

test3.xprf	2 kB

Hochgeladen:	09.06.2008

Ladeanzahl:
		Herunterladen

WKS Win XP Xprofan 10 AMD 1.6GHz 1GB Ram

Der Fehler liegt im REM nach //-Syntax, das kann X11 aber X10 noch nicht, sei denn, Du nutzt xpse (dann gehts immer).

Ersetze also mein //-Rem in ein -Rem und die Sache wird gut. ;)

Bei Abs(%menuItem) wird nichts durch 0 dividiert.

Kompilieren Markieren Separieren

Jörg
Sellmeyer

Naja, wenn Du da solche Leichen rumliegen hast, darfst Du Dich nicht wundern, wenns stinkt

select mItem%

    caseof 0:da fehlt natürlich die Befehlsfolge nach dem : - ganz abgesehen davon, ist es überflüssig,

    da Du ja schon vorher if mItem% auf <> 0 abklopfst

    caseof 110:print test

    otherWise

endSelect

Ah - die Leiche war natürlich von David!!

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

Walter
Köhler

schon gut schon gut.!

Habe mich ja selbst stark gewundert, aber nicht damit gerechnet das ein // nicht als REM anerkannt wird. Sorry, aber ich habe xprofan 10 erst seit ein paar Tagen.

Bin sehr gespannt ob mein zweites Problem (und das ist viel wichtiger) gelöst werden kann.

Hier ist jedenfalls Ende, alles wird gut.

cu WKS

WKS Win XP Xprofan 10 AMD 1.6GHz 1GB Ram

RGH

Wenn Du das Hauptprogramm so anpaßt, geht es:
Kompilieren Markieren Separieren

*** HAUPTPROGRAMM *****
windowstyle %windowstyle | 512
windowtitle Menutest
CLS 0
showmax
popup &Datei
appendmenu 110,&Neuer Test
popup &Hilfe
appendmenu 210,&Hilfe	F11
baueMenue

whilenot ende%

    waitinput

    if iskey(34)BildRunter

        drawtext 0,0, Bild runter Taste
        inc Klick%
        drawtext 100,0, Klick%

    ElseIf menuitem(110)

        test2als REM dann geht es

    ELSEIF Clicked(BUTTON1&)

        test

    endif

    setmenuitem 0

endwhile

usecursor 0
DeleteObject (Icon1&)
end

Was habe ich geändert? Zunächst habe ich Clicked() statt getFocus() verwandt. Und außerdem vor menuitem(110) das Case durch ein ElseIf ersetzt. So wie es da stand, konnte es nicht funktionieren.

Gru0
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

RGH

Walter Köhler

Habe mich ja selbst stark gewundert, aber nicht damit gerechnet das ein // nicht als REM anerkannt wird.

In XProfan 11 wirkt // wie ein (REM)

Gruß
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