Sinuskurve klappt nicht!

maxet · Hält's aus hier Beiträge: 14

Wenn ich die 'Einheit' vergrößere, verändert sich nichts.
hier der Quelltext, sorry fürs Format, ich weiß noch nich wo man den einfügt und dann richtig formatiert.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure sinus;
var i:integer; var y:real;
begin
Form2.Image1.Canvas.Pen.Color:=clblue;
Form2.Image1.Canvas.Pen.Width:=3;
with Form2.Image1.Canvas do
begin
for i:=-100000 to 100000 do
begin
Lineto(NullX+i,round(NullY-(sin(i))));  [i]edit: ich weiß die vielen Klammern[/i]  :oops: 
end;
end;
end;

Moderiert von Narses: Delphi-Tags hinzugefügt
Moderiert von Narses: Anhang konvertiert: DOC->PNG

edit: cool ist ja automatisch

Einloggen, um Attachments anzusehen!

jaenicke · Verfasst: Di 07.06.11 20:39

maxet hat folgendes geschrieben :

markieren

Delphi-Quelltext

1:
2:
3:

for i:=-100000 to 100000 do 
begin
  Lineto(NullX+i,round(NullY-(sin(i))));

Meinst du wirklich, dass auf deinen Bildschirm 100000 Pixel passen? ;-)

Was du willst, ist ja wohl eher eine Skalierung. Und wie macht man etwas z.B. doppelt so groß? Richtig, mit einer Multiplikation. Zum Beispiel:

markieren

Delphi-Quelltext

1:	Image1.Canvas.LineTo(NullX + i, Round(NullY - 2 * Sin(i)));

Nebenbei:
Real sollte nie verwendet werden, nimm lieber z.B. Double.

HenryHux · Verfasst: Di 07.06.11 20:42

Du vergisst, dein Bild genausolang wie die Kurve zu ziehen.

Versuch mal das:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure sinus;
var i : integer;
    y : Double;
    NullX, NullY : Integer;
    Max : Integer;
begin
  Max := 420;
  Form1.Image1.Width := Max;
  NullX := Form1.Image1.Left;
  NullY := Form1.Image1.Top;
  Form1.Image1.Canvas.Pen.Color := clblue;
  Form1.Image1.Canvas.Pen.Width := 3;
  for i:= -1*Max to Max do
  begin
    Form1.Image1.Canvas.Lineto(NullX+i,round(NullY-(sin(i))));
  end;
end;

lg

mandras · Verfasst: Di 07.06.11 21:30

Und da sin(x) nur Werte von -1 bis 1 liefert noch skalieren:

...

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

  for i:= -1*Max to Max do
  begin
    Form1.Image1.Canvas.Lineto(NullX+i,round (Skalierung*(NullY-(sin(i)))));
  end;
end;

der organist · Verfasst: Di 07.06.11 22:40

wie sieht es denn überhaupt aus?

_________________
»Gedanken sind mächtiger als Waffen. Wir erlauben es unseren Bürgern nicht, Waffen zu führen - warum sollten wir es ihnen erlauben, selbständig zu denken?« Josef Stalin

jaenicke · Verfasst: Di 07.06.11 22:59

der organist hat folgendes geschrieben :

wie sieht es denn überhaupt aus?

Die angehängte Worddatei beinhaltet ein Bild. Wie man es halt so macht, wenn man ein Bild posten möchte, man packt es in Word... :autsch:

Narses · Verfasst: Mi 08.06.11 00:05

Moin und

im Forum!

maxet hat folgendes geschrieben :

hier der Quelltext, sorry fürs Format, ich weiß noch nich wo man den einfügt und dann richtig formatiert.

Du markierst den Quelltext im Editor und klickst auf das Plus-Zeichen neben der ComboBox "Delphi" oder du schreibst deinen Quelltext zwischen Delphi-Tags:

markieren

Quelltext

1:	<span class="inlineSyntax"><span class="codecomment">{PROTECTTAG84722eb17d42ac9781950e3fc19e433b}</span></span>

Daraus wird dann:

markieren

Delphi-Quelltext

1:	begin end;

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

maxet · Hält's aus hier Beiträge: 14

jaenicke hat folgendes geschrieben :

maxet hat folgendes geschrieben :

markieren

Delphi-Quelltext

1:
2:
3:

for i:=-100000 to 100000 do 
begin
  Lineto(NullX+i,round(NullY-(sin(i))));

Meinst du wirklich, dass auf deinen Bildschirm 100000 Pixel passen? ;-)

Was du willst, ist ja wohl eher eine Skalierung. Und wie macht man etwas z.B. doppelt so groß? Richtig, mit einer Multiplikation. Zum Beispiel:

markieren

Delphi-Quelltext

1:	Image1.Canvas.LineTo(NullX + i, Round(NullY - 2 * Sin(i)));

Nebenbei:
Real sollte nie verwendet werden, nimm lieber z.B. Double.

jaja ist klar, ich hab die Funktion mit a*sin(b*x+c) +d rausgenommen. Die Variablen a,b,c,d hab ich normalerweise in Edits aber daran liegts nicht!

Trotzdem danke :lol:

maxet · Hält's aus hier Beiträge: 14

HenryHux hat folgendes geschrieben :

Du vergisst, dein Bild genausolang wie die Kurve zu ziehen.

Versuch mal das:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure sinus;
var i : integer;
    y : Double;
    NullX, NullY : Integer;
    Max : Integer;
begin
  Max := 420;
  Form1.Image1.Width := Max;
  NullX := Form1.Image1.Left;
  NullY := Form1.Image1.Top;
  Form1.Image1.Canvas.Pen.Color := clblue;
  Form1.Image1.Canvas.Pen.Width := 3;
  for i:= -1*Max to Max do
  begin
    Form1.Image1.Canvas.Lineto(NullX+i,round(NullY-(sin(i))));
  end;
end;

lg

der hat nen Bug!!!!! HHIILLFFEE, der rechte Teil vom Koordinatensystem vergrößert sich nicht mehr aargh! :?:

im Anhang der Screenshot, ich sitz grade an nem anderen PC

Einloggen, um Attachments anzusehen!

MDX · Verfasst: Do 09.06.11 15:07

Kannst du das Bild eventuell direkt hochladen, ohne es in eine Word-Datei einzufügen?

Martok · Verfasst: Do 09.06.11 15:37

MDX hat folgendes geschrieben :

Kannst du das Bild eventuell direkt hochladen, ohne es in eine Word-Datei einzufügen?

Das ist eine OpenDocument-Datei.

Habs trotzdem mal korrigiert. Ich frag mich ja immer noch, wie man auf solche Ideen kommt. Aber das ist ja seit Jahren ein ungelöstes Problem der DAU-Forschung...

_________________
"The phoenix's price isn't inevitable. It's not part of some deep balance built into the universe. It's just the parts of the game where you haven't figured out yet how to cheat."

MDX · Verfasst: Do 09.06.11 15:46

Martok hat folgendes geschrieben :

Das ist eine OpenDocument-Datei.

Ich hatte es mit gar nicht runtergeladen

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme