XProfan

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

WhileLoop 0, 5

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

Endwhile

Titre de la fenêtre "MALERMEISTER PINSEL STREICHT FENSTER"
Fenêtre 900, 900
Cls RGB(0, 0, 0)
tx    = Créer("Text",   %HWnd, "Bitte 25 Farbcodes eingeben !", 200, 430, 220, 25)
edit1 = Créer("Edit",   %HWnd, »,      200, 460, 240, 25)
btn1  = Créer("Button", %HWnd, "Setze", 200, 500, 60, 25)
btn2  = Créer("Button", %HWnd, "Neu",   300, 500, 60, 25)
btn3  = Créer("Button", %HWnd, "Ende",  200, 560, 60, 25)
x = 10
y = 420
DrawText x, y - 60, "FARBEN (aussi zum Anklicken) "

WhileLoop 0, 4

    picbutton[&LOOP] = Créer("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)
toit()

WhileNot ende

    WaitInput

    Si Clicked(btn1)

        ' Farben mettons
        farben = GetText $(edit1)

        Si Len(farben) > 1

            SetzeFarben(farben, x, y)

        D'autre

            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

    Cas %Key = 2 : ende = 1

Endwhile

Proc DrawHaus

    Paramètres Long x, y
    DrawText 10, 10, "Malermeister Pinsel hat une schwierigen Auftrag angenommen."
    DrawText 10, 30, "Ein Kunde hat ihn gebeten, 25 la fenêtre seines Hauses avec 5 verschiedenen Farben trop streichen."
    DrawText 10, 50, "Jede la couleur soll juste souvent verwendet volonté. dans chacun waagrechten et vertical Fensterreihe"
    DrawText 10, 70, "müssen 2 la fenêtre qui gleiche la couleur avons. cet beiden la fenêtre devoir ensuite aussi encore paarweise"
    DrawText 10, 90, "entweder nebeneinander ou bien übereinander liegen."
    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

    Paramètres String s, Long x, y
    Déclarer Long p, z
    z = 1

    WhileLoop 0, 4

        WhileLoop 0, 4

            Si z <= Len(s)

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

            D'autre

                p = 5

            EndIf

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

        Endwhile

        x = 500
        Inc y, 60

    Endwhile

    Si s = "0012301134122344230023441"

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

    D'autre

        MessageBox("Leider sommes encore\nwelche faux\noder trop wenig !", "SCHADE !!!", 0)

    EndIf

ENDPROC

Proc toit

    Déclarer Long 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
        Décembre y1, 5
        Décembre y2, 5

    Endwhile

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

ENDPROC

Fin