Anfänger sucht Programmideen

[GroZ]

Hi,
Bin derzeit dabei Delphi kennenzulernen und möchte nen kleines Programm schreiben. Hab leider keine Idee was für eins. Kann mir jemand helfen?
Sollte relativ einfach gehalten sein.

[Klaus01]

- einen kleinen Rechner
- Schiffeversenken
- Malprogramm
- Snake
- Pac-man
..

Grüße
Klaus

[Nersgatt]

Tic Tac Toe
1. Ausbaustufe: mit menschlichem Gegener
2. Ausbaustufe: mit Gewinnererkennung
3. Ausbaustufe: Highscoreliste
4. Ausbaustufe: mit Computergegner
5. Ausbaustufe: Online-Highscoreliste
6. Ausbaustufe: mit menschlichem Gegnern übers Netzwerk/Internet

Das selbe für 4 Gewinnt, Käsekästchen, usw. usf.

[GroZ]

Okay ich werd mal Tic Tac Toe versuchen. danke jungs :)

[blondervolker]

Ein Vorschlag hab ich:

Der GREXIT-DRUCKER...:cyclops:


Um das Papier muss man sich selber kümmern...:-D
Oder bei Zipras nachfragen...

[Bambini]

Zitat:

Zitat von GroZ (Beitrag 1311098)

Okay ich werd mal Tic Tac Toe versuchen. danke jungs :)

http://www.delphipraxis.net/55052-ti...fuer-1vs1.html

[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 :D

[baumina]

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