Allgemeine Fragen zur PROFAN Programmierung
Views (Heute): 249203 (10639)
  Suchen
 Zurück zur Übersicht
 AutorThema: Probleme mit der While Schleife
Florian May
Datum:21.01.02 14:21 Antwortenals Email verschicken  


ich lade eine kleine bmp 10x10 Pixel. Nun lasse ich den ersten Punkt 1,1 mit
gepixel ermitteln und bringe in etwas versetzt wieder mit setpixel auf den
Bildschirm.

Meine Frage nun wie kann ich erreichen das das Programm jede einzelne Strelle der
BMP abfragt (getpixel) und wieder auf den Bilsschirm brngt (setpixel).

Das heisst das Programm sollte so vorgehen:

getpixel 1,1 - setpixel 50,49
getpixel 2,1 - setpixel 51,49
getpixel 3,1 - setpixel 52,49
getpixel 4,1 - setpixel 53,49
getpixel 5,1 - setpixel 54,49
getpixel 6,1 - setpixel 55.49
getpixel 7,1 - setpixel 56,49

( getpixel x1,x2 - setpixel = x1 und x2 bilden die stellen welche getpixel ermittelt )

Das ist zunächst auch kein problem. Man baut ihr eine Schleife ein und erhöht x1 immer um eine zahl. wie oft das Programm dies tun muss kann ich ja mit %BmpX/%BmpY abfragen, da die
Breite bzw die Länge auch gleichzeitig angibt, wie oft sich da die while schleife wieder-
hohlen muss. nur leider weiss ich nicht wie ich vorgehen soll, wenn nun das Programm die
x2 Reihe durch hat und sie mit setpixel gestzt hat. Wie sage ich dem programm, das es nun die selbe Aktion nochmal eine
Stelle weiter untern durchführen soll. Also so:

getpixel 1,2 - setpixel 50,50
getpixel 2,2 - setpixel 51,50
getpixel 3,2 - setpixel 52,50
getpixel 4,2 - setpixel 53,50
getpixel 5,2 - setpixel 54,50
getpixel 6,2 - setpixel 55,50
getpixel 7,2 - setpixel 56,50

gibts da ne möglichkeit dies zu machen?

mfg

florian may


Frank Abbing
Datum:21.01.02 17:07 Antwortenals Email verschicken (frankabbing@12move.de) 


Hallo,

ist es das, was du suchst ?

y&=0
WhileLoop y&
x&=0
WhileLoop x&
Getpixel x&,y&
Setpixel x&+50,y&
EndWhile
EndWhile

So eine Routine dauert aber ziemlich lange, ich möchte jetzt keine Werbung machen, aber da gibt es wesentlich schnellere Methoden ;-)

Gruß, Frank



Frank Abbing
Datum:21.01.02 17:09 Antwortenals Email verschicken  


Sorry, so ist's besser...

y&=bildhoehe&-1
WhileLoop y&
x&=bildbreite&-1
WhileLoop x&
Getpixel x&,y&
Setpixel x&+50,y&
EndWhile
EndWhile



Florian May
Datum:22.01.02 18:58 Antwortenals Email verschicken  


werde mal testen sieht aber recht kurz aus, hoffe aber es erfüllt meine idee bzw wünsche

thx

welche bessere möglichkeit gibt es noch.



Sven Schmidts
Datum:22.01.02 20:50 Antwortenals Email verschicken (schmidts@flat2serv.de) 


:)


Frank Abbing
Datum:23.01.02 06:32 Antwortenals Email verschicken (frankabbing@12move.de) 


Hallo,

wie wäre es damit, den passenden Bildschirm-Ausschnitt einfach an die neue Stelle im Bildschirm zu kopieren?
Mit CopyBmp...

Gruß, Frank


Florian May
Datum: 02.02.02 11:57 Antwortenals Email verschicken  


ich will die daten anschließend in eine datei schreiben.........


 Zurück zur Übersicht