XProfan

Walter
Köhler

avec @Clicked gehts übrigends seulement droite pas, cela wird chez vorhandenem

elseif %Menuitem gar pas plus erkannt.
Habe dans qui Aider bisher aucun Einschränkungen ou bien Hinweise ou bien Erklärungen gesehen.
WKS

WKS Win XP Xprofan 10 AMD 1.6GHz 1GB Ram

Walter
Köhler

quelquefois reicht es déjà un Problem Anderen mitzuteilen; et soudain venez qui Solution par Spielen de aleine.

elseif @menuitem(110)
test2

anstelle de

elseif %menuitem
cas menuitem(110)

maintenant sieht cela ok aus.

quand même merci
WKS

WKS Win XP Xprofan 10 AMD 1.6GHz 1GB Ram

encore besser ist une selectStruktur al�
Kompilieren Marque Séparation

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, mais dein Vorschlag comme mir gar pas.
mItem%=abs(%menuItem) pouvoir déjà la fois une Division / 0, et stirbt daher

cu WKS

WKS Win XP Xprofan 10 AMD 1.6GHz 1GB Ram

Jörg
Sellmeyer

je pourrait mir gar ne...aucune Szenario présenter, chez dem Abs une Division par zéro pouvoir.
Davids Vorschlag ist déjà très bien.
tu peux ersatzweise aussi direct Select %menuItem benutzen, dois ensuite mais toujours testen, si es un negativer Wert ist, là z.B. Buttons ses negative ID comme MenuItem zurückgeben.

Ansonsten probier la fois:
Kompilieren Marque Séparation

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

Wenns là irgendwo knallt, hätte Roland un réel Problem mais quelque chose qualitativ Anderes peux aussi chez mItem%=abs(%menuItem) pas rauskommen.

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

Walter
Köhler

probier es selbst, habe im Source qui Version de David eingebunden.
WKS

test3.xprf	2 kB

Hochgeladen:	09.06.2008

Downloadcounter:
		Download

WKS Win XP Xprofan 10 AMD 1.6GHz 1GB Ram

qui faute liegt im REM pour //-Syntax, cela peux X11 mais X10 encore pas, sei car, Du utilise xpse (ensuite gehts toujours).

Ersetze alors mon //-Rem dans un -Rem et qui l'affaire wird bien. ;)

chez Abs(%menuItem) wird rien par 0 dividiert.

Kompilieren Marque Séparation

Jörg
Sellmeyer

bof, si Du là solche Leichen rumliegen la hâte, darfst Du toi pas 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 - qui corps d'un mort était naturellement de David!!

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

Walter
Köhler

déjà bien déjà bien.!

Habe mich oui selbst stark gewundert, mais pas avec cela gerechnet cela un // pas comme REM anerkannt wird. Sorry, mais j'ai XProfan 10 seulement depuis un paire Tagen.

suis très gespannt si mon zweites Problem (et c'est viel wichtiger) gelöst volonté peux.

ici ist jedenfalls Ende, alles wird bien.

cu WKS

WKS Win XP Xprofan 10 AMD 1.6GHz 1GB Ram

RGH

si Du cela Hauptprogramm so anpaßt, ca va:
Kompilieren Marque Séparation

*** 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

quoi habe je geändert? Zunächst habe je Clicked() statt getFocus() verwandt. et aussi avant menuitem(110) cela Cas par un ElseIf ersetzt. So comme là stand, konnte es pas marcher.

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 oui selbst stark gewundert, mais pas avec cela gerechnet cela un // pas comme REM anerkannt wird.

dans XProfan 11 wirkt // comment un (REM)

Salut
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