Allgemeine Fragen zur PROFAN Programmierung

Views (Heute): 249196 (10632)

| Suchen
| Zurück zur Übersicht

Autor | Thema: wie gehts weiter mit der schleife
Florian May
| Datum:09.02.02 12:07 |
13 x 16 größes mit rot gefülltes bild als bmp declare A%,B%,x%,y%,z%,A1%,B1%,x1%,y1%,z1% SetTrueColor 1 cls LoadBmp "ge.bmp", 0,0 ;0 y%=0 x%=200 y1%=0 x1%=200 WhileLoop %BmpY y%=@Add(y%,1) LET A% = @GetPixel(0,y%) x%=@Add(x%,1) SetPixel 200,x%,A% EndWhile WhileLoop %BmpX y1%=@Add(y1%,1) LET A% = @GetPixel(y1%,0) x1%=@Add(x1%,1) SetPixel x1%,200,A1% EndWhile waitkey 'Nun soll das ganze wie oben wieder anfangen aber nich wie: ... y%=@Add(y%,1) ... x%=@Add(x%,1) ... sonder wie folgt: ... y%=@Add(y%,2) ... x%=@Add(x%,2) ... usw. für Länge und Breiet und zwar so oft wie Lang bzw Breit das Bild ist. Natürlich kann ich das nicht alles hinschreiben, da ich ja auch nicht weis wie weit bzw Lang das Bild ist wie kann ich das in wenigen zeilen dem Programm mitteilen? wie bekomme ich das denn hin..... mfg

| Zurück zur Übersicht