kartenrechner

[fuman111]

hi ich wollte einen karten rechner (zb rollschuhbahn etc....) ist das denkt ihr so ok ?

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
RadioGroup1: TRadioGroup;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Panel1: TPanel;
RadioButton1: TRadioButton;
Panel2: TPanel;
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;
anzahl, eintrittspreis, saunapreis, endpreis, einzelpreis : INTEGER;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Close;

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Panel1.Caption := ' ';
Edit1.Text := ' ';
Form1.RadioGroup1.ItemIndex := -1;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
showMessage('Dein Name und das heutige datum');
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
// eingabe
if Form1.Edit1.Text = '' THEN
showMessage('Nix du')
else
anzahl := StrToInt(Form1.Edit1.Text);

Case Form1.RadioGroup1.ItemIndex of
-1 : showMessage('Sie haben nichts ausgewählt');
0 : eintrittspreis := 3;
1 : eintrittspreis := 6;
2 : eintrittspreis := 4;
end;

if Form1.RadioButton1.Checked THEN
saunapreis := 5
else
saunapreis := 0;
// verarbeitung
einzelpreis := eintrittspreis;
endpreis := (eintrittspreis * anzahl) + saunapreis;
// ausgabe
Form1.Panel1.Caption := 'Einzelpreis: '+IntToStr(einzelpreis)+'€';
Form1.Panel2.Caption := 'Gesamtpreis: '+IntToStr(endpreis)+'€';
end;

end.