Lineare Funktionen

[galoru]

Ok danke für den Tipp
Hier mein Problem, ach ja bitte nicht bei den Bezeichnungen wundern ^^
http://s7.directupload.net/file/d/2822/swkx3m7u_jpg.htm

[Jens01]

Du kannst nicht einfach die Werte einfach von der Pixelhöhe der Balken abziehen. Du musst sie in Relation setzen.

so ähnlich:
BalkenhöhePixel = Wert * Pixel_Y-Achse/MaxWert_Y-Achse
(bitte Formel ggf überprüfen)

[DeddyH]

Das sollte sich doch mit einfacher Prozentrechnung hinbekommen lassen. Die 130 entsprechen dann 100 %, die 23 wäre demnach 17,7 % usw. Nun nimmst Du die Anzahl der Pixel von der unteren zur oberen Kante, das entspricht dann wiederum 100 %. Wenn Du nun davon 17,7 % errechnest, weißt Du, wie hoch der Balken werden muss. Bei dem ganzen aber bitte mit Gleitkommazahlen rechnen und erst bei der Ausgabe (= Zeichnen) runden, sonst geht das wahrscheinlich in die Hose.

[edit] BTW: Man kann auch an seinen Beitrag Grafiken anhängen, dann bleiben sie uns erhalten. [/edit]

[galoru]

Ja und wenn ich statt 23, 376 habe? Das sind ja keine 17,7% mehr davon?
Also so :fillrect(rect(60,330,100,round ((a*100/(a*100/e))))); ?
Ich checks grad gar nicht ,sorry.

[DeddyH]

Dann ändert sich doch auch die Anzahl, oder nicht?

[galoru]

Ja die Anzahl ändert sich ja , trotzdem versteh ich nicht genau was du mit de Pixeln von der unteren bis zur oberen Kante meinst.
Die Pixel von dem Balken?

[DeddyH]

Ist das Diagramm nicht immer gleich hoch?

[galoru]

Da Diagramm an sich ist immer gleich hoch, nur die Verteilung der Stimmen ändert sich ja im Verhältnis zur Gesamtanzahl.

[shmia]

Hier ist mal etwas Beispielcode zur Anregung der grauen Zellen.
Du kannst daraus lernen:
* Kommentare sind Nützlich
* Konstanten verbessern die Lesbarkeit
* mit Unter-Funktionen kommt man Schritt für Schritt zum Ziel

Delphi-Quellcode:

// Rechteck mit bestimmte Höhe erzeugen
function ErzeugeBalken(prozent:double):TRect;
const
  BALKENBREITE = 30;
  BALKENHOEHE   = 150;
begin
   Result := Rect(0,0, BALKENBREITE, trunc(BALKENHOEHE * prozent / 100.0));
end;

procedure TForm1.Button1Click(Sender: TObject);
const BALKENABSTAND = 65;
var
   balken : TRect;
   x,y : Integer;
begin
   balken := ErzeugeBalken(40.0{%});
   OffsetRect(balken, 35, 45);  // Rechteck verschieben
   Canvas.FillRect(balken);

   balken := ErzeugeBalken(65.0{%});
   OffsetRect(balken, 35 + BALKENABSTAND, 45);
   Canvas.FillRect(balken);
end;

[DeddyH]

Da hätte ich auch noch was:

Delphi-Quellcode:

function PixelFromPart(Total, //Gesamtanzahl
 Part, //Einzelergebnis
 Pixelheight  //Höhe des Diagramms in Pixel
 : integer): integer;
var
  Percent: double;
begin
  Result := 0;
  if Total <> 0 then
    begin
      //Prozentualen Anteil errechnen
      Percent := Part / (Total / 100);
      //Und auf die Diagrammhöhe übertragen
      Result := trunc(Pixelheight / 100.0 * Percent);
    end;
end;