Schulaufgabe: Koordinatenkreuz

flashoverburn · Hält's aus hier Beiträge: 7

hier mal unser Aufgabe irgendwie kommen wir damit garnicht klar:

Es ist ein Delphi-Programm zu entwerfen , das folgende Eigentschaften hat. Es soll auf einen Tastendruck hinein Koordinatensystem zeichnen können. Die Achsenteilung auf der x- und y- Achse kann vorher in einem Edit-Feld eingegeben werden Die Achsenspitzen sollen durch "Pfeile" abgeschlossen werden.

So das ist die Aufgabe wäre nett wenn uns da jemand helfen könnte.

Die Hauptprobleme liegen bei der Einteilung und den Pfeilen.

Raphael O. · Beiträge: 1596 VS 2013

für die Pfeile kansnt du ein dreieck zeichnen und die achsen machst du in etwa so:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

for i:=1 to maxspalten do
begin
image1.canvas.moveto(round((i/maxspalten)*image1.width),0);
image1.canvas.lineto(round((i/maxspalten)*image1.width),image1.height);
end;

flashoverburn · Hält's aus hier Beiträge: 7

gut wenn ich das verstehen würde ware es okay sind sozusagen unseren ersten schritte mit delphi wie mache ich den das dreieck

Raphael O. · Beiträge: 1596 VS 2013

schau dir mal image1.canvas. arc an..
wenn das in ner Schulaufgabe drankommt, dann mussst du das wohl oder überl verstehn...

flashoverburn · Hält's aus hier Beiträge: 7

wir arbeiten ja mehr in der schule mit moveto und lineto statt mit den befehlen was wir können ist gerade mal rectangel

Raphael O. · Beiträge: 1596 VS 2013

dann mal dir mit movetos und linetos so ein dreieck oben hin...
die achsen werden ja schon damit gemacht :-/

flashoverburn · Hält's aus hier Beiträge: 7

gut dann versuche ich das mal. wenn das nicht klappt melde ich wieder

flashoverburn · Hält's aus hier Beiträge: 7

gut das mit dem dreick geht aber wir haben probs mit den spalten dort zrigt er immer einen fehler an:
for-schleifenvariable muß eine einfache lokale vaiabel sein

waldmeister · Beiträge: 136 Win XP D7 Enterp

dann fehlt da wohl was

un zwar in der procedure wo die for schleife verwandt wird:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure...
var  // <------- das und
i: integer; // <---- das sin die dinge die fehlen!! die for-schleifen variable muss immer lokal ( in der benutzten procedure) deklariert werden!
begin
for i:=1 to maxspalten do 
begin 
bla....
bla....
end;

_________________
der wald....der meister....der meister des waldes....der waldmeister

flashoverburn · Hält's aus hier Beiträge: 7

Ich weis das wir es noch nicht so raus haben, aber das haben wir dann doch gemacht,´.

:lol:

also wir haben ja schon das Fadenkreuz an sich fertig,( das ist ja nicht ganz so schwer)

nun brauchen wir in regelmässigen abständen die spalten.
Und diese dumme Pfeile,,

Danke für deine Hilfe

jaenicke · Verfasst: Mi 28.01.04 09:51 Titel: Also

Hallo!

Also, ich werde Dir bestimmt nicht Code schicken, der das alles macht, Du sollst es ja verstehen (wie schon Fiji-Fighter gesagt hat)!

Aber ich kann Dir ja nen Denkanstoss geben...

Also: Du hast jetzt das Fadenkreuz! Nun, für die Pfeile musst Du ja nur jeweils zwei schräge Linien ziehen, wenn Du das Dreieck nicht möchtest :shock:

.

Dazu musst Du (Für das rechte Ende) vom Endpunkt eine Linie zu einem Punkt etwas weiter oben und etwas weiter links z.B. 5 Pixel nach links und oben zeichnen. Mit MoveTo und LineTo sollte das kein Problem sein...
(Ebenso kannst Du natürlich dann auch noch eine weitere Linie für ein Dreieck zeichnen.)

Und zur Unterteilung: Du solltest Dir überlegen, wie groß der Abstand zwischen den Unterteilungen sein soll und dementsprechend für verschiedene Zeichenbereiche die Unterteilungen festlegen.
(Nicht, dass ich das so machen würde, aber es ist das einfachste.)

Beispiel:
Für 0,5 < Zeichenbereich <= 3 zeichnest Du je einen Strich alle 0,5 Einheiten. Für 3 < Zeichenbereich <=10 zeichnest Du einen Strich alle 1 Einheiten. Und so weiter!

Das wäre allerdings ziemlich umständlich. Aber wie meintest Du das denn am Anfang mit die Unterteilungen sollen per Edits festgelegt werden?

Zitat:

Die Achsenteilung auf der x- und y- Achse kann vorher in einem Edit-Feld eingegeben werden

Ich geh mal davon aus, dass Du meintest, dass eingegeben werden soll, wie weit der Zahlenbereich gehen soll. Also von x=-3 bis x=3 oder so, oder?

Na ja, viel Spaß noch dabei,

Sebastian

Christian S. · Beiträge: 20451 Erhaltene Danke: 2264 Win 10 C# (VS 2019)

Hallo!

Bitte ändere den Titel des Topics da er wenig über das eigentlich Thema verrät. Hier der entsprechende Absatz aus den Delphi-Forum.de Richtlinien:

Richtlinien hat folgendes geschrieben:

1.1 Beiträge
Bitte formuliere den Betreff Deiner Beiträge so, dass andere Mitglieder anhand dieser bereits das eigentliche Thema festmachen können. Beiträge wie etwa "Eine Anfängerfrage" oder "Weiß jemand, wie das geht?" lassen den Leser im Unklaren darüber, was das Thema der Diskussion ist.[...]

Einfach oben bei deinem ersten Beitrag auf "Edit" klicken und den Titel ändern. Dank Dir!

Gruß Peter Lustig

_________________
Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".

Raphael O. · Beiträge: 1596 VS 2013

flashoverburn hat folgendes geschrieben:

nun brauchen wir in regelmässigen abständen die spalten.

hallo?¿¿
ich habe dir doch oben schon den Ansatz egegben, wie man das realisiert...
huier jetzt nochmal der ganze code, aber erwarte nicht, dass dir auch weiterhin alles auf dem Präsentierteller dargelegt wird :evil:

markieren

Delphi-Quelltext

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

for i:=1 to spaltenanzahl do
begin
image1.canvas.moveto(round((i/maxspalten)*image1.width),0);
image1.canvas.lineto(round((i/maxspalten)*image1.width),image1.height);
end;

for i:=1 to zeilenanzahl do
begin
image1.canvas.moveto(0,round((i/maxspalten)*image1.width));
image1.canvas.lineto(image1.Width,round((i/maxspalten)*image1.width));
end;

flashoverburn · Hält's aus hier Beiträge: 7

danke für eure hiele habe es geschaft hetute morgen um 6 uhr war ich dann doch fertig aber egal.

nein ich erwarte nicht das mir alles auf den präsentierteller gelegt wird ich würde es viel lieber selber verstehen nur das ist leichter gesagt als getan.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme