Benzinabrechnung

[michael123]

Hallo
Ich habe versucht ein Programm für Benzinverbrauch schreiben, aber das habe ich garnicht geschafft.
Das Programm :

Mit einem Programm soll die Benzinabrechnug eines Betriebs berechnet werden.
Die Summe der gefahrenen Kilometer, die Summe des verbrauchten Benzins und die Summe der Rechnungsbeträge wird für jeden Monat eingegeben.
Daraus soll der Durchschnittsverbrauch pro Monat in einer Schleife berechnet werden.
Für die gefahrenen Kilometer, den Benzinverbrauch , die monatlichen Kosten und den Durchschnittsverbrauch soll mit einer Schleife die Jahressumme und der Durchschnitt berechnet werden und der größte und der kleinste Wert ermittelt werden.

Die Berechnung kann mit einem Button oder Prozedur Form1.KeyUp() erfolgen.
In die Worddatei steht, dass wie das Programm aussehen soll.

[masterchris_99]

Ja was hast du denn nciht geschafft?
Eigentlich ist es recht simpel hatte sowas auch einmal angefangen.
Jedoch habe ich das schnell wieder beendet da es ja die seite www.spritmonitor.de gibt

[michael123]

Ja masterchris_99
Ich bin Anfänger. Ich kann nicht Benzinabrechnug programmieren, wenn du das kannse, kannst du bitte den quelltext hinschicken und zwar in dieser seite ,ich habe keine Programme über Benzinabrechnung gefünden.

[DGL-luke]

Wie lange programmierst du denn schon in Delphi?

Ich fasse zusammen: Gegeben ist s_gefahren in km, V(Benzin_verbraucht) in l und Kosten pro Monat.

Da wäre es dann wohl am besten mit einer TStringList

per StrToInt oder Val kannst du aus den Stringwerten in TStringList.Cell[,] die Werte holen.

Ich würde mir dann ein paar Prozeduren schreiben wie

Delphi-Quellcode:

Type TCurrArray = array of Currency;
Type TIntArray = array of Integer;

procedure Costs(Costs: TCurrArray; out Max,out Min,out Average:Currency);
procedure Consumption(Dist,Gas: TIntArray; out Max,out Min,out Average:single);

In den Prozeduren musst du dann nur die Berechnungen machen und das ganze den out-Params zuweisen.

"out" bedeutet übrigens, dass der Wert, den du in der Prozedur für die Variable setzt, aussen wieder raus kommt:

Delphi-Quellcode:

procedure GetFour(out Four: Integer);
begin
Four := 4;
end;

GetFour(x);
ShowMessageBox(IntToStr(x)); // Gibt 4 aus

[michael123]

Button 1

[michael123]

[dfried]

Zitat von michael123:

Das Programm sollte wie unten steht aussehen
Wenn Sie Können das Programm programmieren, legen Sie das auf die Seite.

"Wenn Sie können legen das entsprechende Entgeld in meine Hand dann ich kann machen."

Ne mal ehrlich, das ist ein Forum in dem du Hilfe bei deinen Fragen bekommst, aber glaub nicht, dass dir jemand ein fertiges Programm präsentiert!

Zitat von michael123:

Ich programmiere seit 2 Monaten.

Na das ist doch dann die beste Gelegenheit um Delphi besser zu lernen, mit einer konkreten Aufgabe fällt mir das immer leichter als nur "ins blaue" zu programmieren.

Formulierdoch einfach mal konkret was du bisher schon gemacht hast und wo du aktuell Probleme hast.

[michael123]

[dfried]

Na, vor dem "Edit" war die Antwort interessanter

Mal noch ne kleine Frage, muss es unbedingt Delphi sein (nach deinen bisherigen Aussagen schint dir das ziemlich egal zu sein, hauptsache es "rechnet" was)? Wenn nicht, warum machst du das nicht einfach in Excel, oder schaust dich mal nach einer "Freeware" um?

[Cookiemaster]

Ja, ich würd dafür auch lieber Excel nehmen oder wenn du MS nicht hast/magst dann das Open Office.