unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Edit_Geldeinwurf: TEdit;
Button_Einwurf: TButton;
Label_Geld: TLabel;
Button_Drink1: TButton;
Label_Kosten_Drink1: TLabel;
Edit_Rueckgeld: TEdit;
Button_Geldentname: TButton;
Label_Status: TLabel;
procedure Button_EinwurfClick(Sender: TObject);
procedure Button_Drink1Click(Sender: TObject);
procedure Button_GeldentnameClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Einwurf, Kosten_Drink1, Rueckgeld: real;
implementation
{$R *.dfm}
procedure TForm1.Button_EinwurfClick(Sender: TObject);
begin
Einwurf:=StrToFloat(Edit_Geldeinwurf.Text); {In der Variable Einwurf wird der Text im Edit-Feld zwischengespeichert und in einen Float-Wert umgewandelt}
Label_Geld.Caption:=Edit_Geldeinwurf.Text; {Das Label-Feld kriegt den Inhalt des Edit-Feldes}
end;
procedure TForm1.Button_Drink1Click(Sender: TObject);
begin
Kosten_Drink1:=StrToFloat(Label_Kosten_Drink1.Caption); {Der Preis des Getränks wird aus dem Edit-Feld herausgelesen}
If (Einwurf = Kosten_Drink1) or (Einwurf > Kosten_Drink1) Then {Wenn das eingeworfene Geld den Kosten entspricht oder größer ist, dann...}
begin
Rueckgeld:=(Einwurf - Kosten_Drink1); {Variable Rueckgeld wird definiert: eingeworfenes Geld minus den Kosten}
Edit_Rueckgeld.Text:=FloatToStr(Rueckgeld); {Im Edit-Feld zur Geldentnahme wird der Wert angezeigt}
Label_Status.Caption:=('Du bekommst ' + (FloatToStr(Rueckgeld)) + ' € raus!'); {In einem Label wird der Wert verbunden mit einer Nachricht ausgegeben}
end
else {Wenn die obengenannten Bedinungen nicht zu treffen, dann... }
begin
Label_Status.Caption:=('Du hast ' + (FloatToStr(Kosten_Drink1 - Einwurf)) + ' € zuwenig eingworfen!'); {...rechne und gebe aus wieviel und dass zuwenig Geld eingeworfen wurde}
end;
end;
procedure TForm1.Button_GeldentnameClick(Sender: TObject);
begin
Label_Geld.Caption:=('0.00');
Label_Status.Caption:=('Bitte Geld einwerfen!');
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Label_Status.Caption:=('Bitte Geld einwerfen!');
end;
end.