Anfänger sucht Programmideen

[GroZ]

Hab jetzt nen Taschenrechner geproggt. Ist nich sonderlich gut^^.

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    BeendenBtn: TButton;
    Zahl1Edit: TEdit;
    Zahl2Edit: TEdit;
    Panel2: TPanel;
    PlusBtn: TButton;
    MinusBtn: TButton;
    LabeledEdit1: TLabeledEdit;
    MalBtn: TButton;
    DiviBtn: TButton;
    Label1: TLabel;
    Label2: TLabel;
    QuadratBtn: TButton;
    Wurzel: TButton;
    Button1: TButton;
    ClearBtn: TButton;
    Panel3: TPanel;
    ListBox1: TListBox;
    SpeicherBtn: TButton;
    DelBtn: TButton;
    Panel4: TPanel;
    procedure PlusBtnClick(Sender: TObject);
    procedure BeendenBtnClick(Sender: TObject);
    procedure MinusBtnClick(Sender: TObject);
    procedure MalBtnClick(Sender: TObject);
    procedure DiviBtnClick(Sender: TObject);
    procedure QuadratBtnClick(Sender: TObject);
    procedure WurzelClick(Sender: TObject);
    procedure ClearBtnClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure DelBtnClick(Sender: TObject);
    procedure SpeicherBtnClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  a, b, c, d : real;
implementation

{$R *.dfm}

procedure TForm1.PlusBtnClick(Sender: TObject);
begin
  a := StrToFloat(Zahl1Edit.Text);
  b := StrToFloat(Zahl2Edit.Text);
  c := a + b;
  LabeledEdit1.Text := FloatToStr(c);
end;

procedure TForm1.BeendenBtnClick(Sender: TObject);
begin
close;
end;

procedure TForm1.MinusBtnClick(Sender: TObject);
begin
  a := StrToFloat(Zahl1Edit.Text);
  b := StrToFloat(Zahl2Edit.Text);
  c := a - b;
  LabeledEdit1.Text := FloatToStr(c);
end;

procedure TForm1.MalBtnClick(Sender: TObject);
begin
  a := StrToFloat (Zahl1Edit.Text);
  b := StrtoFloat (Zahl2Edit.Text);
  c := a * b;
  LabeledEdit1.Text := FloatToStr(c);
end;

procedure TForm1.DiviBtnClick(Sender: TObject);
begin
  a := StrToFloat (Zahl1Edit.Text);
  b := StrToFloat (Zahl2Edit.Text);
  C := a / b;
  LabeledEdit1.text := FloatToStr(c);
end;

procedure TForm1.QuadratBtnClick(Sender: TObject);
begin
  a := StrToFloat (Zahl1Edit.Text);
  c := sqr(a);
  LabeledEdit1.Text := FloatToStr(c);
end;


procedure TForm1.WurzelClick(Sender: TObject);
begin
  a := StrToFloat (Zahl1Edit.Text);
  d := sqrt(a);
  LabeledEdit1.Text := FloatToStr(d);
end;

procedure TForm1.ClearBtnClick(Sender: TObject);
begin
  Zahl1Edit.Clear;
  Zahl2Edit.Clear;
  LabeledEdit1.Clear;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
s: string;

begin
  Listbox1.Items.Add(Zahl1Edit.Text);
  s := Listbox1.Items[0];
  s := s+'+'+(Zahl2Edit.Text)+ '=' + (LabeledEdit1.Text);
  ListBox1.Items[0] := s;
end;

procedure TForm1.DelBtnClick(Sender: TObject);
begin
  Listbox1.clear;
end;

procedure TForm1.SpeicherBtnClick(Sender: TObject);
begin
//Listbox1.Items.SaveToFile('Speicherort');
end;

end.

[mkinzler]

Ich würde die StrToFloat() durch TryStrToFloat() oder StrToFloatDef() ersetzen.

[GroZ]

Was ist der Unterschied? Hatte bisher immer richtige Ergebnisse

[baumina]

Kannst du einfach ausprobieren, in dem du einen Buchstaben statt einer Zahl eingibst.

[GroZ]

Ihr seht ja in etwa meinen Wissensstand bei Delphi. Was empfehlt ihr mir jetzt für ein Programm zu schreiben?

[Klaus01]

.. vielleicht den Rechner noch so zu gestalten das es auch ein Taschenrechner ist.

Die Taschenrechner die ich kenne haben nur ein (Edit) Feld um eingebenen Zahlen und das Ergebnis darzustellen.
Du hast zwei Editfelder für die Eingabe und ein Label für die Ausgabe.

Was wird, wenn mal mehr als zwei Zahlen behandelt werden sollen?

Grüße
Klaus

[BadenPower]

Zitat von GroZ:

Ihr seht ja in etwa meinen Wissensstand bei Delphi. Was empfehlt ihr mir jetzt für ein Programm zu schreiben?

Wenn Du Spass an Mathematik hast, dann kannst Du ja ein Mathe-Programm schreiben, so wie es auf dieser Internetseite zu sehen ist.

Neben einem Menu und den üblichen Komponenten kannst Du Dich auch im Malen auf Oberflächen und Eingabe-Überprüfung sowie Exception-Handling austoben.

[BUG]

OT:

Zitat von BadenPower:

so wie es auf dieser Internetseite zu sehen

Zitat:

Daher wird Mathepower dauerhaft kostenlos bleiben. Ich finde ohnehin, das Web sollte eine ähnliche Entwicklung nehmen wie das Fernsehen: Für alle kostenlos, weil durch Werbung finanziert.
...
Mathepower ist keine Datenkrake. Du surfst hier komplett anonym, und das bleibt auch so.

Hach ja, manche Sachen vertragen sich nicht wirklich gut

[Luckie]

Mach bitte dafür einen neuen Thread auf. Das gehört thematlich nicht mehr hier her.