XProfan

- Page 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+ class=s2>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+ class=s2>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
            festplatte.bmp 25 kB
Hochgeladen: 20.02.2009
Downloadcounter:  
Download

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
	20.02.2009 ▲ Vollständiges Zitat Absatzweise Citazione Zeilenweise Citazione

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

@Robin: Du hast alle Computerbildschirmkoordinaten im Kopf wenn Du weisst, dass diese immer in X (links nach rechts) und Y (oben nach unten) angegeben werden - womit 0,0 also oben links ist und 1024,768 ist oft unten rechts am Schirm.

setPixel

maxx

Roberto

Ok ich lad mir den Object Creator runter

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

Der ist wirklich klasse, habe mir den erst neulig wieder geladen und war erstaunt wie sehr dieser sich auch verbessert hat - respekt!