XProfan

Walter
Köhler

with @Clicked GEHTS übrigends first right not, is with Existing

elseif %Menuitem none More recognized.
have in the Help yet no Einschränkungen or Notes or Explanations seen.
WKS

WKS Win XP Xprofan 10 AMD 1.6GHz 1GB Ram

Walter
Köhler

sometimes reicht it already a problem others mitzuteilen; and suddenly comes The Solution through play of aleine.

elseif @menuitem(110)
Test2

in lieu of of

elseif %menuitem
case menuitem(110)

now sees the ok from.

nevertheless thanks
WKS

WKS Win XP Xprofan 10 AMD 1.6GHz 1GB Ram

yet rather is a selectStruktur al�
Compile Mark Separation

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

does me sorrow, but your suggestion gefällt me none.
mItem%=abs(%menuItem) power already time a Division / 0, and die therefore

cu WKS

WKS Win XP Xprofan 10 AMD 1.6GHz 1GB Ram

Jörg
Sellmeyer

I could me quite no Szenario present, with the Abs a Division through zero power.
Davids suggestion is already very well.
You can ersatzweise too directly Select %menuItem using, must then but always testing, whether it one negativer worth is, there z.B. Buttons your negatives ID as MenuItem give back.

otherwise probier time:
Compile Mark Separation

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

If there somewhere knallt, had Roland one real trouble but something qualitative other can also with mItem%=abs(%menuItem) not rauskommen.

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

Walter
Köhler

probier it self, have in the Source The Version of David eingebunden.
WKS

test3.xprf	2 kB

Hochgeladen:	06/09/08

Downloadcounter:
		Download

WKS Win XP Xprofan 10 AMD 1.6GHz 1GB Ram

The Error lying in the REM to //-Syntax, the can X11 but X10 not yet, be because, You uses xpse (then GEHTS always).

supplant means my //-Rem into -Rem and the thing becomes well. ;)

with Abs(%menuItem) becomes nothing through 0 dividiert.

Jörg
Sellmeyer

Well, if you there such Leichen present have, must You yourself not wonder, ifs stink

Compile Mark Separation

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 - The corpse was naturally of David!!

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

Walter
Köhler

that's all right that's all right.!

have me Yes self heavy gewundert, but not so calculated the one // not as REM acknowledged becomes. Sorry, but I have XProfan 10 first since a couple Meet.

be very tensely whether my second trouble (and this is plenty importent) resolved go can.

here's anyway end, everything becomes well.

cu WKS

WKS Win XP Xprofan 10 AMD 1.6GHz 1GB Ram

RGH

If you the Hauptprogramm so anpaßt, goes it:
Compile Mark Separation

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

what have I changed? first of all have I Clicked() instead of getFocus() akin. and what's more to menuitem(110) the Case through one ElseIf supplant. so as there stood, could not functions.

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

have me Yes self heavy gewundert, but not so calculated the one // not as REM acknowledged becomes.

In XProfan 11 works // like a (REM)

Greeting
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