Forum: Programmieren allgemein
by christopher85,
1. Jul 2011
Also das mit dem i=2 ist vermutlich im eifer des Gefechtes da reingerutscht. Mein letztes Problem war das gedrehte Polygon wieder mit linien zu verbinden. Das Programm hat aber immer das letzte ausgelassen. Konnte mir dann kaum noch etwas erklären und hab dann allesmöglich versucht.
Die Projektdateien kann ich leider erst am Monat anhängen, da ich mich jetzt nichtmehr in der Hochschule...
Forum: Programmieren allgemein
by christopher85,
1. Jul 2011
procedure TForm1.Button4Click(Sender: TObject);
begin
w:=spinedit1.value;
w:=w*Pi/180;
for n:=1 to n-1 do
begin
u:=trunc((xp-x)*cos(w)+(yp-y)*sin(w));
v:=trunc(-(xp-x)*sin(w)+(yp-y)*cos(w));
image1.Canvas.Pixels:=clgreen;
image1.Canvas.Pen.Color:=clgreen;
Forum: Programmieren allgemein
by christopher85,
30. Jun 2011
Super! Dank Dir Jaenicke!
Nun stellt sich mir noch die Frage wie ich u und das dazugehörige v als Koordinaten wieder als Punkt zeichnen kann.
xp und yp.
Weil ja durch diese for-Schleife u und v innerhalb kurzer Zeit wieder überschrieben werden. Also muss ich ja innerhalb dieser for-Schleife die Punkte schon zeichnen lassen.
Also mal für mich so zur Chronologie:
//erst die...
Forum: Programmieren allgemein
by christopher85,
30. Jun 2011
Guten Abend!
Also im Anhang habe ich mal einen Screenshot angehängt. In ihm sieht man halt unten in dieser Berichtigungszeile, dass inkompatible Typen auftreten.
Und zwar in den Zeilen vom Code:
w:=spinedit1.value;
for i:=1 to n do
begin
u:=yp*sin(w)+xp+cos(w);
Forum: Programmieren allgemein
by christopher85,
30. Jun 2011
Hallo! Ich habe die selbe Aufgabe, jedoch ein etwas anderes Problem!
der debugger zeigt mir eine fehlermeldung an: die dateitypen seien inkompatibel. ich soll es wohl als integer deklariert haben. jedoch wird der code in extendet gerechnet.
// und zwar will ich in dem oberen programmstück die koorinaten eines Punktes errechnen. dazu nehme ich den winkel aus einer spinedit.
// meine...