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.

[GroZ]

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

[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

[Mavarik]

Zitat:

Zitat von Klaus01 (Beitrag 1311096)

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

"Anfänger"? Pac-Man? Malprogramm? :gruebel:

[Mikkey]

Zitat:

Zitat von Mavarik (Beitrag 1311132)

"Anfänger"? Pac-Man? Malprogramm? :gruebel:

Pacman weiß ich nicht, aber in meiner ersten Version vom Visual-C++ (da gab's noch Handbücher aus Papier) war ein Tutorial, in dem Paint nachgebaut wurde. Das machte sich als Anfängereinstieg richtig gut.

[p80286]

Nach meinem ersten Snake wußte ich wie man mit einfach und doppelt verketteten Listen umgeht, aber für Anfänger?

Wie wäre es denn mit einer Datenstandsanzeige der Festplatte?
Gruß
K-H

[Mavarik]

Zitat:

Zitat von p80286 (Beitrag 1311147)

Nach meinem ersten Snake wußte ich wie man mit einfach und doppelt verketteten Listen umgeht, aber für Anfänger?

Snake und verkettete Listen?

hmm Ist das nicht das Beispiel für Arrays?

[Luckie]

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

[BadenPower]

Zitat:

Zitat von GroZ (Beitrag 1311127)

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

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:

Zitat von BadenPower (Beitrag 1311206)

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 :stupid:

[redox]

Versuch doch, notepad.exe nachzuprogrammieren - mit einer ToolBar und einer Statusleiste.

In der ToolBar Symbole für z.B. Beenden/Ausschneiden/Kopieren/Einfügen/Zeilenumbruch/Größere Schrift und in der Statusleiste anzeigen, wo der Cursor gerade ist.

Lässt sich fast alles in der DP nachlesen :-)

Dann 'mal TActionList anschauen und Nachlesen ;-)

MfG