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.

[STS301]

try and error, funktioniert bei dir etwa etwas nicht?

[Nikolas]

Hallo und willkommen im Forum :dp:

Über dem Eingabefeld für den Text gibt es einen Button [Delphi-Code], der dafür zuständig ist, tags zu erzeugen, um das Syntaxhighlighting anzuschalten.

Wenn du also um deinen Code
[delphi*]Hier dein Code [/delphi*] schreibst (ohne die Sternchen) wirds etwas lesbarer. (Die Editfunktion ist übrigens oben rechts über deinem Beitrag)

Zu deinem Code:
Du solltest deine Komponenten benennen! Den Button1 könntest du wunderbar Bclose nennen usw.
Denn sage mir mal schnell und ohne das Programm zu starten, was das hier bedeutet: :mrgreen:

Delphi-Quellcode:

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

[DP-Maintenance]

Dieses Thema wurde von "Matze" von "Programmieren allgemein" nach "Sonstige Fragen zu Delphi" verschoben.
Delphi-Frage

[Reinhardtinho]

Was ist/macht denn der Kartenrechner? (Ich lese nur was von Saunapreis, Rollschuhbahn) :gruebel:

Wenn du eine kurze Beschreibung gibst, dann können wir dir vielleicht helfen, herauszufinden, ob es "ok" ist. :mrgreen:

MFG
Lorenz

[DeddyH]

Was mir aufgefallen ist:

Delphi-Quellcode:

if Form1.Edit1.Text = '' THEN
  showMessage('Nix du')
else
  anzahl := StrToInt(Form1.Edit1.Text);

Was machst Du, wenn man 'ABC' eingibt?

[Aurelius]

Zitat:

Zitat von Reinhardtinho

Was ist/macht denn der Kartenrechner? (Ich lese nur was von Saunapreis, Rollschuhbahn) :gruebel:

Wenn du eine kurze Beschreibung gibst, dann können wir dir vielleicht helfen, herauszufinden, ob es "ok" ist. :mrgreen:

MFG
Lorenz

Ich nehme an es soll ei Kartenautomat werden ^^

Ergänzung zu DeddyH: Schau deswegen nach TryStrToInt()

[s-off]

Zitat:

Zitat von xX0815Xx

[

Ergänzung zu DeddyH: Schau deswegen nach TryStrToInt()

In diesem Fall wäre wohl 'StrToIntDef' besser geeignet, da TryToStrInt einen boolschen Ausdruck zurückgibt.

[DeddyH]

Das kommt darauf, wie man reagieren möchte: Standard übernehmen oder Fehlermeldung ausgeben.

[s-off]

Zitat:

Zitat von DeddyH

Das kommt darauf, wie man reagieren möchte: Standard übernehmen oder Fehlermeldung ausgeben.

Deswegen sagte ich ja explizit in diesem Fall, denn

Delphi-Quellcode:

anzahl := StrToInt(Form1.Edit1.Text);

:zwinker: