Forum: Programmieren allgemein
by cs_um,
28. Jun 2005
Wie kann ich das Dividieren durch 0 abfangen?
Bzw. was mache ich, wenn die Differenz=2 wird, was ja passieren kann?
HLS_S := Differenz / (2-Differenz);
Differenz := max_Farbwert - min_Farbwert;
Forum: Programmieren allgemein
by cs_um,
28. Jun 2005
mein algorithmus is ähnlich. aber irgendwie meint er, ich würde durch 0 teilen.
"gleitkommadivision durch 0"
procedure TForm1.RGB(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
var RGB_R, RGB_G, RGB_B : Real;
HLS_H, HLS_L, HLS_S : Real;
HSV_H, HSV_S, HSV_V : Real;
Forum: Programmieren allgemein
by cs_um,
20. Jun 2005
mal gleich noch ne frage hinterher:
hilft es, die variablen (also die position der scrollbars) global zu definieren und wo geht das?
Forum: Programmieren allgemein
by cs_um,
20. Jun 2005
ich habe jetzt ein wenig gebastelt und folgendes erstellt:
//SCROLLBALKEN ROT
procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
begin
label1.caption:=inttostr(scrollbar1.Position ); //Position ausgeben (Zahl)
Farbfeld.Brush.Color:=StrToInt('$'+((inttohex(scrollbar3.Position,2)+ //Blau-Anteil
Forum: Programmieren allgemein
by cs_um,
2. Mai 2005
Ich bin noch Anfänger und weiß gar nicht so recht, wie ich bei meinem Programm anfangen soll.
Es soll ein Feld zu sehen sein, dass mit einer Farbe gefüllt wird.
Daneben sollen Scrollbars sein, mit denen die jeweiligen Farbwerte eingegeben werden können.
Wenn nun in ein Farbwertsystem ein Wert eingeben wird (nicht als Zahl, sondern mit einem Schieberegler), dann sollen sich auch die...