XProfan

Declarar Handle imageA[6], btn1, btn2, btn3, tx, edit1, Largo x, y, ende, String farben
Declarar Handle picbutton[5]
VAR Handle Colors[] = $F30003, $04A3FA, $04FF04, $500AA9, $04F6F9, $FDFFF9
ende = 0

WhileLoop 0, 5

    MCLs 48, 48, Colors[&LOOP]
    imageA[&LOOP] = Crear("hSizedPic", 0, "& MEMBMP", 48, 48, 0)

EndWhile

Título de la ventana "MALERMEISTER PINSEL STREICHT FENSTER"
Ventana 900, 900
Cls RGB(0, 0, 0)
tx    = Crear("Text",   %HWnd, "Bitte 25 Farbcodes eingeben !", 200, 430, 220, 25)
edit1 = Crear("Edit",   %HWnd, "",      200, 460, 240, 25)
btn1  = Crear("Button", %HWnd, "Setze", 200, 500, 60, 25)
btn2  = Crear("Button", %HWnd, "Neu",   300, 500, 60, 25)
btn3  = Crear("Button", %HWnd, "Ende",  200, 560, 60, 25)
x = 10
y = 420
DrawText x, y - 60, "FARBEN (auch para Anklicken) "

WhileLoop 0, 4

    picbutton[&LOOP] = Crear("PicButton", %HWnd, imageA[&LOOP], x, y, 48, 48)
    DrawText x + 70, y + 20, " = " + Str$(&LOOP)
    Inc y, 60

EndWhile

x = 500
y = 400
DrawHaus(x, y)
Dach()

Sinestar encargado ende

    WaitInput

    If Clicked(btn1)

        ' Farben conjunto
        farben = GetText $(edit1)

        If Len(farben) > 1

            SetzeFarben(farben, x, y)

        Más

            Messagebox("Nicht genug\nFarben gesetzt !", "Info", 0)

        EndIf

    ElseIf Clicked(btn2)

        x = 500
        y = 400
        DrawHaus(x, y)
        SetText edit1, ""

    ElseIf Clicked(btn3)

        ' ENDE
        ende = 1

    ElseIf Clicked(picbutton[0])

        SetText edit1, GetText $(edit1) + "0"

    ElseIf Clicked(picbutton[1])

        SetText edit1, GetText $(edit1) + "1"

    ElseIf Clicked(picbutton[2])

        SetText edit1, GetText $(edit1) + "2"

    ElseIf Clicked(picbutton[3])

        SetText edit1, GetText $(edit1) + "3"

    ElseIf Clicked(picbutton[4])

        SetText edit1, GetText $(edit1) + "4"

    EndIf

    Case %Key = 2 : ende = 1

EndWhile

Proc DrawHaus

    Parámetros Largo x, y
    DrawText 10, 10, "Malermeister Pinsel ha una schwierigen Auftrag angenommen."
    DrawText 10, 30, "Ein Kunde ha ihn gebeten, 25 Ventana seines Hauses con 5 verschiedenen Farben a streichen."
    DrawText 10, 50, "Jede Farbe se igual oft verwendet voluntad. In cada waagrechten y senkrechten Fensterreihe"
    DrawText 10, 70, "müssen 2 Ventana el gleiche Farbe haben. Diese beiden Ventana debería entonces auch todavía paarweise"
    DrawText 10, 90, "entweder nebeneinander oder übereinander mentira."
    DrawText 10, 130, "https://www.raetselstunde.de/kunterbunt/denksport-aufgaben/malermeister-pinsel.html"
    USEP 0, 5, RGB(192, 192, 192)
    RectAngle (x - 10), (y - 10) - (x + 300), (y + 350)

    WhileLoop 0, 4

        WhileLoop 0, 4

            DrawPic imageA[5], x, y; 0
            Inc x, 60

        EndWhile

        x = 500
        Inc y, 60

    EndWhile

    DrawText 550, y + 20, "WWW.raetselstunde.de"

ENDPROC

Proc SetzeFarben

    Parámetros String s, Largo x, y
    Declarar Largo p, z
    z = 1

    WhileLoop 0, 4

        WhileLoop 0, 4

            If z <= Len(s)

                p = VAL(Mid$(s, z, 1))

            Más

                p = 5

            EndIf

            DrawPic imageA[p], x, y; 0
            Inc z
            Inc x, 60

        EndWhile

        x = 500
        Inc y, 60

    EndWhile

    If s = "0012301134122344230023441"

        MessageBox("Sie haben alles\nrichtig gemacht !", "GLÜCKWUNSCH !!!", 0)

    Más

        MessageBox("Leider son todavía\nwelche falso\noder a wenig !", "SCHADE !!!", 0)

    EndIf

ENDPROC

Proc Dach

    Declarar Largo x1, y1, x2, y2
    x1 = 490
    y1 = 380
    x2 = 800
    y2 = 380
    USEP 0, 8, RGB(255, 0, 0)

    WhileLoop 1, 15

        Line x1, y1 - x2, y2
        Inc x1, 3
        Inc x2, 3
        Dec y1, 5
        Dec y2, 5

    EndWhile

    USEP 0, 5, RGB(192, 192, 192)
    Line 485, 380 - 530, 305
    Line 805, 380 - 850, 305

ENDPROC

End