Anfängerfrage: Programieren der Berechnung eines Quadrates..

[Ganja Smoker]

Kann bitte jemand dieses Program für mich programieren und mir den Code schicken? Bitte gaaanz schnell wenn's geht.

var a,b: real; //Seitenlängen
U: real; //Umfang
F: real; //Flächeninhalt (a ist schon belegt ;))


Wir schreiben morgen eine Klausur & dank Übungsmangelns hatte ich keine Möglichkeit mit Delphi selber zu programieren. Mit dem Koplementieren (StrToFloat) usw komme ich nicht klar.

Das Prog soll etwa so aussehen:

http://upper-elite.com/0907//images/487123delphi.JPG


Danke schonmal im Voraus!

[zecke]

:hi:

Willkommen in der DP!

Nun das Programm wird dir keiner fertig schreiben, weil kein Hausaufgabenforum.

Wobei hast Du denn genau Probleme?

Bei a und b wird ein Wert (StrToFloat) gespeichert und Du errechnest was benötigt wird. Danach gibst Du die Ergebnisse wieder aus (FloatToStr).

[Klaus01]

Guten Abend,

das wird wohl niemand für Dich machen, denn Du bekommst die Note dafür und nicht wir.
Wie weit bist denn Du - FloatToStr ist doch nicht so schlimm und wenn
die die vielen Nachkommastellen nerven dann versuche es mit FloatToStrF.

Kannst Deinen Code ja mal zeigen.

Grüße
Klaus

[Ganja Smoker]

Es geht mir hier nicht um HAs sondern darum, dass wir ein Program des Lehrers Stück für Stück programiert haben & morgen Klausur ist ohne das irgendwe ne Peilung hat.

Wie ich das ganze Bereche + Ausgebe, darum gehts. Bei mir sieht das bis jetzt so aus und ich komme nicht weiter:

Zitat:

var
Form1: TForm1;
a, b, U, F: real;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

a := StrToFloat(Edit1.Text);
b := StrToFloat(Edit2.Text);

U:=a+a+b+b;
F:=a*b;



end;

Woher weiß Delphi welche Variable auf welches Textfeld bezogen ist!?

[zecke]

Das musst Du Delphi sagen :mrgreen:

Delphi-Quellcode:

Edit_Umfang.Text:=FloatToStr(U);
Edit_Flaeche.Text:=FloatToStr(F);

[Ganja Smoker]

Okay das sieht dann so aus:

Zitat:

var
Form1: TForm1;
a, b, U, F: real;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

a := StrToFloat(Edit1.Text);
b := StrToFloat(Edit2.Text);

U:=a+a+b+b;
F:=a*b;

Edit3.Text:=FloatToStr(U);
Edit4.Text:=FloatToStr(F);

end;

end.

Es läuft :) Viiieeelleeen Dank Jungs! ;) Alles weitere bekomme ich dann auch durch probieren raus....

[uwewo]

Zitat:

Zitat von Ganja Smoker

Woher weiß Delphi welche Variable auf welches Textfeld bezogen ist!?

Das musst Du machen!

Fläche und Umfang hast Du schon berechnet, Nun musst Du noch ich vermute mal Edit3 u. Edit4 die Werte
für Umfang und Fläche zuweisen.

Zum zuweisen einer Zahl für das Edit Feld musst Du die Zahl in einen Text wandeln, dazu kannst Du FloatToStr verwenden. <F1> erklärt den Rest.

War jemand schneller, trotzdem ich sende meine Antwort

[Ganja Smoker]

Danke nochmal ihr Beiden :bounce1:

Ehm und wie mache ich das, dass ne Memo-Komponente beim Programstart leer ist bzw. dort ein definiertter Text steht? Die hat ja keine "Caption". Da soll also am Anfang nicht Memo1 o.ä. stehen....

[zecke]

:hi:

Tipp: Memo1.Lines

[jfheins]

Das, oder TMemo.Text ;)

[Ganja Smoker]

Zitat:

Memo1.Clear;
Memo1.Lines.Add('Berechnung eines Quadrates');
Memo1.Lines.Add('');
Memo1.Lines.Add('Das Ergebnis für den Umfang lautet:');
Memo1.Lines.Add(UEdit.Text);
Memo1.Lines.Add('');
Memo1.Lines.Add('Das Ergebnis für den Flächeninhalt lautet:');
Memo1.Lines.Add(FEdit.Text);
Memo1.Lines.Add('');
Memo1.Lines.Add('Designed by Ganja Smoker, © 2007');

Aber zum Programstart steht da: Memo1 - das soll weg... undzwar bevor ich auf "Berechnung" klicke....

[zecke]

:hi:

Im OI kannst Du das einstellen oder Du machst im OnCreate der Form ein "Memo1.Lines.Clear;".

[Ganja Smoker]

Im Object Inspector finde ich alles außer "OnCreate"...

Click,context.....

[mkinzler]

Markiere die Form und schau dann in den OI

[Ganja Smoker]

http://upper-elite.com//images/20811hmmmmm.JPG

[fwsp]

du hast das memo markiert, und nicht die form. einfach mal auf die graue form klicken.

[mkinzler]

Es ist immer moch das Memo markiert.

[grenzgaenger]

das steht nicht im ereignis der komponente, sondern im ereignis der form. <HTH>

PS: wieso vergess ich ständig, dass es noch 'ne zweite seite vom thread gibt... :wall: :wall: :wall:

[zecke]

:hi:


Möglichkeit 1:

Klicke ein mal auf das Memo, dann schaust Du im OI mit dem Reiter Properties nach Lines. Dort gehst Du rechts auf "..." rechts von Lines also. Es öffnet sich ein Fenster und dort steht "Memo1". Wenn Du das hier löschst, und dann auf OK klickst, wird es beim Start des Programmes nicht angezeigt, nämlich das, was Du in dem Fenster stehen hast.

Möglichkeit 2:

Klicke ein mal auf die Form, dann schaust Du im OI mit dem Reiter Events nach OnCreate. Dort kannst Du ein Memo1.Lines.Clear; eingeben und beim Programm start wird das Feld geleert.



Nach meinen Vorrednern und dieser Erklärung sollte es klar sein, wenn nicht => herumprobieren hilft immer :mrgreen: