Hallo
wir sollen in Informatik einen Parkscheinautomaten für mehrere Tage bauen... Das mehrere Tage verwirrt mich. Ich habe erstmal einen für einen Tag erstellt, nur weiß jemand wie ich den auf mehrere Tage erweitern kann??
Wäre sehr dankbar für Hilfe.
Hier mal der Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DateUtils;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var e, a, zd: TDateTime;
parkdauer, parkdauer1: integer;
preis: real;
begin
e:= StrToTime(Edit1.Text);
a:= Now;
zd:= a-e;
Edit2.Text:= TimeToStr(a);
Edit3.Text:= TimeToStr(zd);
parkdauer1:= hourof(zd);
parkdauer:= parkdauer1*60;
if parkdauer < 60 then begin
preis:= (0*0.70);
Edit4.Text:= FloatToStr(preis)+',00';
end else begin
if parkdauer mod 60 = 0 then begin
preis:= (parkdauer div 60)* 0.7;
Edit4.Text:= FloatToStr(preis)+'0'
end else begin
preis:= ((parkdauer div 60)+1)*0.7;
Edit4.Text:=FloatToStr(preis)+'0';
end
end;
Edit5.Text:= 'Auf Wiedersehen und Gute Fahrt.'
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
Edit5.Clear;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Application.Terminate;
end;
end.