XProfan

Source wurde am 15.07.2007 aus qui MMJ-Quellcodesammlung (Dietmar Horn) dans qui Babyklappe sur XProfan.Com abgelegt:
Grafik: Einfaches Schachbrett erzeugen
PRFellow-Présentation
Autor: Thomas Bois
Einfaches Schachbrett
paramètre:
1: x-Koordinate qui linken oberen coin
2: y-Koordinate qui linken oberen coin
3: Feldbreite-/höhe
4: Handle des Ausgabefensters (peux aussi weggelassen volonté)

Proc ChessBoard

    Paramètres x%,y%,size%,hwin%
    Cas Equ(hwin%,0): Laisser hwin%=GetActiveWindow()
    Début de peinture hwin%
    Cas Lt(size%,10): Laisser size%=10
    Déclarer i%,r%,l%,white&
    Laisser l%=x%
    Laisser white&=RGB(255,255,255) cela wird chez chacun Farbeinstellung sais

    Tandis que Lt(i%,64)

        Si Equ(Mod(r%,2),0)

            Si Equ(Mod(i%,2),0)

                UseBrush 1,white&

            D'autre

                UseBrush 1,0

            EndIf

        D'autre

            Si Equ(Mod(i%,2),0)

                UseBrush 1,0

            D'autre

                UseBrush 1,white&

            EndIf

        EndIf

        Rectangle % X, y%-Ajouter(x%,size%),Ajouter(y%,size%)
        Ajouter x%,size%
        Inc i%

        Si Equ(Mod(i%,8),0)

            Ajouter y%,size%
            Laisser x%=l%
            Inc r%

        EndIf

    Wend

    EndPaint

ENDPROC

Beispiel
Cls RGB(23,23,23)
Titre de la fenêtre Schachbrett
ChessBoard 180,80,32,%hwnd
WaitInput