XProfan

Walter
Köhler

con @Clicked gehts übrigends sólo bastante no, el se en vorhandenem

elseif %MenuItem nada mehr erkannt.
Posesiones en el Ayuda bisher no Einschränkungen oder Hinweise oder Erklärungen gesehen.
WKS

WKS Win XP Xprofan 10 AMD 1.6GHz 1GB Ram

Walter
Köhler

Manchmal reicht lo ya una Problema Anderen mitzuteilen; y plötzlich kommt el Solución por Spielen de aleine.

elseif @menuitem(110)
test2

anstelle de

elseif %menuitem
caso menuitem(110)

ahora sieht el ok de.

trotzdem Gracias
WKS

WKS Win XP Xprofan 10 AMD 1.6GHz 1GB Ram

todavía mejor es una selectStruktur al�
Kompilieren Marca Separación

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 me Leid, aber dein Vorschlag gefällt me nada.
mItem%=abs(%menuItem) macht ya veces una Division / 0, y stirbt por lo tanto

cu WKS

WKS Win XP Xprofan 10 AMD 1.6GHz 1GB Ram

Jörg
Sellmeyer

Yo podría me gar kein Szenario vorstellen, en el Abs una Division por Null macht.
Davids Vorschlag es ya muy bien.
Usted puede ersatzweise auch direkt Select %menuItem benutzen, mußt entonces aber siempre testen, si una negativer Valor es, como z.B. Buttons ihre negative ID como MenuItem zurückgeben.

Ansonsten probier veces:
Kompilieren Marca Separación

Print Abs(1)
Print Abs(0)
Print Abs(-1)re>

Wenns como irgendwo knallt, hätte Roland una echtes Problema aber algo qualitativ Anderes kann auch en mItem%=abs(%menuItem) no rauskommen.

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

Walter
Köhler

probier lo incluso, habe en el Source el Versión de David eingebunden.
WKS

test3.xprf	2 kB

Hochgeladen:	09.06.2008

Ladeanzahl:
		Descargar

WKS Win XP Xprofan 10 AMD 1.6GHz 1GB Ram

Der Fehler liegt en el REM después de //-Syntax, el kann X11 aber X10 todavía no, sei porque, Usted nutzt xpse (entonces gehts siempre).

Ersetze also mein //-Rem en una -Rem y el Sache se bien. ;)

En Abs(%menuItem) se nichts por 0 dividiert.

Kompilieren Marca Separación

Jörg
Sellmeyer

Naja, si como solche Leichen rumliegen hast, darfst Usted Usted no 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

en

Ah - el Leiche war natürlich de David!!

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

Walter
Köhler

ya bien ya bien.!

Posesiones mich sí incluso stark gewundert, pero no así gerechnet el una // no como REM anerkannt se. Sorry, pero yo habe XProfan 10 sólo seit unos pocos Tagen.

Bin muy gespannt si mein zweites Problema (y el es viel wichtiger) gelöst voluntad kann.

Hier es jedenfalls Ende, alles se bien.

cu WKS

WKS Win XP Xprofan 10 AMD 1.6GHz 1GB Ram

RGH

Si usted el Hauptprogramm así anpaßt, es:
Kompilieren Marca Separación

*** 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 Yo geändert? Zunächst Yo Clicked() en lugar de getFocus() verwandt. Und außerdem antes menuitem(110) el Case por una ElseIf ersetzt. So como como stand, podría no trabajo.

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

Posesiones mich sí incluso stark gewundert, pero no así gerechnet el una // no como REM anerkannt se.

In XProfan 11 wirkt // como una (REM)

Saludo
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