Hallo,
ich habe mal eine funktion zum Vergleichen zweier Zahlen geschrieben:
Delphi-Quellcode:
function Compare(c1,c2: tcolor): boolean;
var r1,g1,b1,r2,g2,b2: integer;
begin
result := false;
r1 := c1 and $FF;
r2 := c2 and $FF;
if (abs(r1-r2)<20) then
begin
G1 := (C1 shr 8) and $FF;
G2 := (C2 shr 8) and $FF;
if (abs(g1-g2)<20) then
begin
B1 := (C1 shr 16) and $FF;
B2 := (C2 shr 16) and $FF;
if (abs(b1-b2)<20) then result := true;
end;
end;
end;
Die funktioniert für deinen Fall auch schon ganz gut. Ich finde immer perfekt den Mittelpunkt der LED.
Ich bin nur gerade im Informatikunterricht und da kann ich jetzt nicht wirklich weiter machen. Ich werde heute anchmittag mal das fertige Projekt reinsetzen.
Momentan dauert eine Analyse eines Bildes ca. 250 ms (1500er Celeron mit Win2000), aber ich denke, den Code kann man noch super optimieren.
Also bis nachher
Edit:
Im Anhang ist mein Projekt aus der Schule, aber der ist etwas unordentlich. Ich mach das anchher nochmal besser und übersichtlicher, aber ich muss das hier "lagern", sonst krieg ich es nicht nach Hause. Und wer Spaß hat, kann sichs ja trotzdem angucken.