-
Forum: Sonstige Fragen zu Delphi
Delphi
by andiak,
18. Nov 2007
hey thats cool muss ich mal schauen ob ich das jetzt alles nochmal ohne forum schreiben kann
danke für die antworten.. und das ihr mich erträgt ^^
-
Forum: Sonstige Fragen zu Delphi
Delphi
by andiak,
18. Nov 2007
Function TForm1.BerechnePreis( km: integer; var lieferpreis: extended): Boolean;
begin
BerechnePreis := true;
if km > 50 then
begin
BerechnePreis := false;
end
else
if km < 5 then lieferpreis := 10
else
-
Forum: Sonstige Fragen zu Delphi
Delphi
by andiak,
18. Nov 2007
also
Function TForm1.BerechnePreis( km: integer; var lieferpreis: extended): Boolean;
begin
BerechnePreis := true;
if km > 50 then
begin
BerechnePreis := false;
end
else
-
Forum: Sonstige Fragen zu Delphi
Delphi
by andiak,
18. Nov 2007
in der aufgabenstellung steht garnichts mehr von >25km
"7. Ein Baumarkt liefert bei Entfernungen unter 5km für 10€, darüber für 5€ Festpreis plus 1€ je gefahrenem Kilometer, jedoch höchstens 30€ Gesamtkosten. Zustellungen weiter als 50km werden nicht vorgenommen.
Schreiben Sie Delphi-Code für die Methode BerechnePreis, die in der booleschen Variablen ok vermerken soll, ob die Lieferung...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by andiak,
18. Nov 2007
Ok hier ist sie..Function TForm1.BerechnePreis( km: integer; var lieferpreis: extended): Boolean;
begin
BerechnePreis := true;
if km > 50 then
begin
BerechnePreis := false;
end
else if km < 5 then lieferpreis := 10
Momentan sehe dass da steht falls kmm größer als 50 sind dann BerechnePreis :=False
-
Forum: Sonstige Fragen zu Delphi
Delphi
by andiak,
18. Nov 2007
meinst du jetzt deinen mit der function oder der procedure von mir?
Edit ist dafür da die anzahl der klicks anzuzeigen warum mein lehrer nen edit feld genommen hat ka panel wär wohl passender
-
Forum: Sonstige Fragen zu Delphi
Delphi
by andiak,
18. Nov 2007
nicht unbedingt aber ich war grad wieder wo ganz anders und ich versteh das einfach nicht wenn da und dann wieder hier der andere code oder ein ganz neuer auftaucht ohne richtiger erklärung :/ ist von meiner seite aus nicht böse gemeint oder so finds voll super das ihr probiert mir zu helfen aberwie gesagt das ist alles so kompliziert wenn man grad neu anfängt
-
Forum: Sonstige Fragen zu Delphi
Delphi
by andiak,
18. Nov 2007
Hast du dir schon alles durchgelesen? Wir sind doch schon bei was ganz anderem :/
-
Forum: Sonstige Fragen zu Delphi
Delphi
by andiak,
18. Nov 2007
ich blicke jetzt grad aber garnicht mehr durch!
deswegen änder ich erstmal nicht les mir eure beiträge noch 5m al druch um zu schauen ob da für mich irgendwas sinn ergibt
" Schreiben Sie Delphi-Code für die Methode BerechnePreis, die in der booleschen Variablen ok vermerken soll, ob die Lieferung erfolgen kann, und in diesem Falle in lieferpreis : integer den Preis ablegt.
"
ist das...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by andiak,
18. Nov 2007
@ mckinzler
das versteh ich jetzt garnicht wenn ich deinen code nehme bekomm ich erstmal nur fehler
Unit1.pas(28): Prozedur kann keinen Ergebnistyp besitzen
-
Forum: Sonstige Fragen zu Delphi
Delphi
by andiak,
18. Nov 2007
aha ok naja da wir funktion noch nicht hatten bleib ich lieber bei procedure so weit bin ich jetzt
procedure TForm1.Button1Click(Sender: TObject);
var km : Integer;
kosten: real;
begin
kosten := ( km * 1 + 5 );
km := StrToInt(Edit1.Text);
-
Forum: Sonstige Fragen zu Delphi
Delphi
by andiak,
18. Nov 2007
klingt echt nicht so schwer :/ aber in der ausführung :(
mit funktion haben wir noch garnicht gearbeitet! das ist schon wieder ganz seltsam ich probier es nebenbei weiter :/
-
Forum: Sonstige Fragen zu Delphi
Delphi
by andiak,
18. Nov 2007
Ich würde mich an meinen bmi berechnungsprogramm erinnern wie das aufgebaut war
procedure TForm1.BerechnePreis(entfernung : Integer);
var km : Integer;
kosten: real;
begin
km := StrToInt(Edistance.Text);
if km < 50 then
-
Forum: Sonstige Fragen zu Delphi
Delphi
by andiak,
18. Nov 2007
hmm ok danke ich weiß mckinzler mag das nicht aber hat nich doch zu irgendwer lust mir folgende mthode zu schreiben?
"Ein Baumarkt liefert bei Entfernungen unter 5km für 10€, darüber für 5€ Festpreis plus 1€ je gefahrenem Kilometer, jedoch höchstens 30€ Gesamtkosten. Zustellungen weiter als 50km werden nicht vorgenommen.
Schreiben Sie Delphi-Code für die Methode BerechnePreis, die in der...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by andiak,
18. Nov 2007
hm ok danke ich glaub ich hab jetzt fast soweit alles außer die letze aufgabe
7. Ein Baumarkt liefert bei Entfernungen unter 5km für 10€, darüber für 5€ Festpreis plus 1€ je gefahrenem Kilometer, jedoch höchstens 30€ Gesamtkosten. Zustellungen weiter als 50km werden nicht vorgenommen.
Schreiben Sie Delphi-Code für die Methode BerechnePreis, die in der booleschen Variablen ok vermerken soll,...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by andiak,
18. Nov 2007
ok probier ich das mal
ok a,b hab ich bei c fehlt mir nur Behandlungsmethode
c: Zuweisung ist doch z.b. Panel1.Caption := 'Zehnmal auf den Button geklickt!'; oder?
d: Das werden demnach ja ausdrücke sein
i := StrToInt(Edit1.Text) ;
i := i + 1 ;
var i :integer;
Panel1.Caption := '' ;
-
Forum: Sonstige Fragen zu Delphi
Delphi
by andiak,
18. Nov 2007
Die zuweißung hab ich ja inzwischen geändert aber ich brauch direkt zu dem code noch diese antworten
(b) Beschreibe in eigenen Worten, wie sich das Programm verhalten wird.
(c) Finde in deinem korrigierten Code je ein Beispiel für ein Objekt, eine Eigenschaft, einen zugewiesenen Wert, ein Ereignis, eine Behandlungsmethode, eine Zuweisung.
(d) Welche Typen von Ausdrücken treten auf? Sortiere...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by andiak,
18. Nov 2007
procedure TForm1.Button1Click(Sender: TObject);
var i :integer;
begin
i := StrToInt(Edit1.Text) ;
i := i + 1 ;
if i = 10 then
begin
Panel1.Caption := 'Zehnmal auf den Button geklickt!';
i := 0;
end
-
Forum: Sonstige Fragen zu Delphi
Delphi
by andiak,
18. Nov 2007
procedure TForm1.Button1Click(Sender: TObject);
var i :integer;
begin
i := StrToInt(Edit1.Text) ; //da eine zeichenkette zu einer zahl oder?
i := i + 1 ;
if i = 10 then
begin
Panel1.Caption'Zehnmal auf den Button geklickt!';
i := 0;
end
-
Forum: Sonstige Fragen zu Delphi
Delphi
by andiak,
18. Nov 2007
Vielen dank für die antworten!
Bisher sind wir noch nicht weit in die materie eingetdrungen von delphi ^^
Haben bisher auch nur mit 1-2 Formularen gearbeitet und das schwierigste was wir bisher hatten war ein ratespiel
Wir hatten auch noch nicht viele Informatik Stunden aber torzdem legt der lehrer die stange ziemlich hoch.. wir sitzen hier zu 3 vorm rechner und uns gehts allen gleich ^^...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by andiak,
18. Nov 2007
Cool danke das hilft mir schon sehr und dadurch erkenn ich wo bei mir fehler im denkprozess waren xD
Hier sind noch ein paar Aufgaben!
4. Wir nehmen an, dass vor Programmstart per Objektinspektor Edit1.Text:='0' gesetzt wurde, und betrachten den nachstehenden Delphi-Code.
prozedur TForm1.Button1Click(Sender: TObject);
var i:=integer;
i := IntToStr(Edit1:Text)
i = i + 1;
if i =...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by andiak,
18. Nov 2007
Die Folgenden fragen sind die aus einer probe klausur ich werde sie so wie ich denke beantworten für fehler bitte korigieren!!
1.Beschreibe Funktion und Zweck des Objektinspektors von Delphi in 4–8 Sätzen?
er Objektinspektor weißt eine Übersicht aller Objekte die in dem momentanen Projekt verwendet werden.
Außerdem kann man mit dem Objektinspector allen wichtigen Eigenschaften einen Startwert...