XProfan

Was media du con aufräumen? Ist él el no aufgeräumt?

Proc QuadratKoordinaten

    Parámetros a%,b%' el son el virtuellen Koordinaten el Quadrate (also 1,1 oder 0,2)
    Declarar Valor$

    If Between(%mousex,a% * Breite%,(a% + 1) * Breite%, %mousey, b% * Hoehe%,  (b% + 1) * Hoehe%)

        'hier voluntad el tatsächlichen X/Y-Koordinaten ermittelt
        Valor$ = Str$(%mousex \ Breite% * Breite%) + " " + Str$(%mousey \ Hoehe% * Hoehe%)

    EndIf

    Volver Valor$

ENDPROC

Proc MouseAbfrage

    WhileLoop 0,Anzahl%-1

        WhileLoop 0,Anzahl%-1

            Test$ = QuadratKoordinaten(&Loop,l%)

            If Test$ > " "

                x% = Val(Substr$(Test$,1," "))
                y% = Val(Substr$(Test$,2," "))
                Romper

            EndIf

            Test$ = " "

        Wend

        Case Test$ > " ":Romper
        Inc l%

    Wend

    Claro l%
    'Título de la ventana Test$ ' a Kontrolle voluntad el X/Y-Koordinaten en el Titelleiste gezeigt

ENDPROC

Proc Bewegen

    Parámetros x1%,y1%
    'innerhalb la ventana bleiben

    If ((x1% > -1) And (y1% > -1)) And (((x1% + Breite%) <= Width(%hwnd)) And ((y1% + Hoehe%) <= Height(%hwnd)))

        SetWindowPos hAnzeige&,x1%,y1%
        x% = x1%
        y% = y1%
        x_alt% = x1%
        y_alt% = y1%

    EndIf

ENDPROC

Selección aleatoria
Ventana de Estilo 2 | 8 | 16' | 512
Ventana 100,100 - 806,600 + %cyCaption + 6' Ventana puede ser auch cualquier einstellen
Declarar l%,Test$,x%,y%,x_alt%,y_alt%,Breite%,Hoehe%,Anzahl%
Declarar i1%,i2%
Anzahl% = 4' hier puede ser el número el Felder einstellen. Anzahl% = 4 ergibt 16 Felder
Breite% = (Width(%hwnd) / Anzahl%,0)
Hoehe% = (Height(%hwnd) / Anzahl%,0)
SetWindowPos %hwnd = %winleft,%wintop - (Anzahl% * Breite% + 6),(Anzahl% * Hoehe% + %cyCaption + 6)' Rundungsfehler ausgleichen
x_alt% = Rnd(Anzahl%) * Breite%
y_alt% = Rnd(Anzahl%) * Hoehe%
Var hPic& = Crear("hNewPic",Breite%,Hoehe%,$0F00FF)
Var hAnzeige& = Crear("Mapa de bits",%hwnd,hPic&,x_alt%,y_alt%)

Mientras que 1

    WaitInput
    Localizar 1,1
    Case %Mousepressed = 1:MouseAbfrage()

    If %key = 2

        Romper

    ElseIf Test$ > " "

        i1% = Abs(x_alt% - x%)' <= 100
        i2% = Abs(y_alt% - y%)' <= 100

        If ((i1% + i2%) = Breite%) | ((i1% + i2%) = Hoehe%)

            SetWindowPos hAnzeige&,x%,y%
            x_alt% = x%
            y_alt% = y%

        EndIf

        Test$ = " "

    ElseIf IsKey(37)

        Bewegen(x_alt% - Breite%,y_alt%)

    ElseIf IsKey(38)

        Bewegen(x_alt%,y_alt% - Hoehe%)

    ElseIf IsKey(39)

        Bewegen(x_alt% + Breite%,y_alt%)

    ElseIf IsKey(40)

        Bewegen(x_alt%,y_alt% + Hoehe%)

    EndIf

Wend

whileloop 1,part_x&,If((part_x& Mod 2)=0,2,1)

    space&=Crear("hNewPic", &bucle, part_y&, Back_Color())
    DrawPic space&, ((spalte_&-1)*part_x&), (zeile_&-1)*part_y&; 0
    DrawPic pic_part&[i_&], ((spalte_&-1)*part_x&)+&bucle, (zeile_&-1)*part_y&; 0
    DeleteObject space&

EndWhile