XProfan

- Seite 4 -

Paul
Glatz

Mit meinen GIF klappt es und auch mit BMP

Roberto

Lalala...
Und wieder ein Problem.
Ich habe in meinen Code jetzt ein neues if mouse gemacht.
Das soll das Programm schliessen.
Aber wenn ich dann end hinschreib schliesst sich des Programm einfach so.
Kompilieren Markieren Separieren

declare passwindow&,e%,i%
Windowtitle RHP Système dexploitation
Window 50,20 - 800,600
LoadBMP Leiste.BMP,0,518;0
LOADBMP START.BMP,0,519;0
LOADBMP AUSSCHALTEN.BMP,724,514;-1
repaint

whilenot e%

    if Mouse(0,724 - 30,514+33)

    endif

    whilenot e%

        WaitInput

        if Mouse(0,518 - 99,518+30)

        endif

        if i% = 1 Ist das Startmenu offen

            cls
            LoadBMP Leiste.BMP,0,518;-1
            LOADBMP START.BMP,0,519;-1
            LOADBMP AUSSCHALTEN.BMP,724,514;-1
            repaintneu malen
            i% = 0Starmenu zu

        elseif i% = 0 es ist zu!

            LoadBMP STARTPUSHED.BMP,0,23;0
            repaintneu malen
            i% = 1 Startmenu offen

        endif

    endif

endwhile

54 = X oben links (X1)
586 = Y oben links (Y1)
153 = X unten rechts (X2)
616 = Y unten Rechts (Y2)

if Mouse(0,724 - 30,514+33)

Ich bin neu hier also Verurteilt mich nicht fÃƒÂ¼r meine fragen.^^

Paul
Glatz

Bitte:
Kompilieren Markieren Separieren

declare passwindow&,e%,i%
Windowtitle RHP Système dexploitation
Window 50,20 - 800,600
LoadBMP Leiste.BMP,0,518;0
LOADBMP START.BMP,0,519;0
LOADBMP AUSSCHALTEN.BMP,724,514;-1
repaint

whilenot e%

    whilenot e%

        WaitInput

        if Mouse(0,518 - 99,518+30)

            if i% = 1 Ist das Startmenu offen

                cls
                LoadBMP Leiste.BMP,0,518;-1
                LOADBMP START.BMP,0,519;-1
                LOADBMP AUSSCHALTEN.BMP,724,514;-1
                repaintneu malen
                i% = 0Starmenu zu

            elseif i% = 0 es ist zu!

                LoadBMP STARTPUSHED.BMP,0,23;0
                repaintneu malen
                i% = 1 Startmenu offen

            endif

        endif

        if Mouse(724+32,514+3 - 724+63,514+34)

            end

        endif

    endwhile

    54 = X oben links (X1)
    586 = Y oben links (Y1)
    153 = X unten rechts (X2)
    616 = Y unten Rechts (Y2)

    if Mouse(0,724 - 30,514+33)

Roberto

OMG wie findest du die Koordinaten raus

Ich bin neu hier also Verurteilt mich nicht fÃƒÂ¼r meine fragen.^^

Paul
Glatz

Probieren und Paint

Roberto

So hetzt hab ich wieder das problem mit den Koordinaten.
wenn ich das anklicke steht zu wenig parameter.
Was sind parameter?
Kompilieren Markieren Separieren

declare passwindow&,e%,i%
Windowtitle Arbeitsplatz
Window 50,20 - 450,350
loadbmp festplatte.bmp,10,10;0
waitinput

whilenot e%

    whilenot e%

        WaitInput

        if Mouse(10,10 + 33,10+33)

            windowtitle (R)
            Window 50,20 - 450,350
            waitinput

festplatte.bmp	25 kB

Hochgeladen:	20.02.2009

Ladeanzahl:
		Herunterladen

Ich bin neu hier also Verurteilt mich nicht fÃƒÂ¼r meine fragen.^^

Die Dinger die hinter den Dingern stehen die vor den Dingern stehen die dahinter stehen!

befehl parameter1,parameter2...
funktion(parameter1,parameter2...)

Paul
Glatz

Du Mouse(x1,y1 - x2,y2) statt Mouse(x1,y1 + x2,y2) schreiben

Hier ist ein hoffentlich richtiger Code:
Kompilieren Markieren Separieren

declare passwindow&,e%,i%
Windowtitle Arbeitsplatz
Window 50,20 - 450,350
loadbmp festplatte.bmp,10,10;0
repaint

whilenot e%

    WaitInput

    if Mouse(10,10 - 130,80)

        settext %hwnd,(R)
        cls
        waitinput

    endIf

endWhile

Rolf
Koch

OMG wie findest du die Koordinaten raus

*lol* Robin, ich glaube ich sagte bereits, daß der Object Creator (welcher Dir angeblich zu kompliziert ist) vieles kann.
Mauskoordinaten sind unter sogenannte Hotspots.
Einfach anklicken und Grösse ziehen und dort steht dann alles im Quellcode an Koordianten. Aber ich kann ja keinen Zwingen