Game Of Life

Ehemaliges Mitglied Erhaltene Danke: 1

Hi,
hab nach etwas längerer Programmierpause mal wieder was geschrieben.
Und zwar meine Umsetzung vom "Game Of Life"
Wer nicht genau weiß was das ist, kanns hier nachlesen oder einfach sofort ins Programm reingucken..
de.wikipedia.org/wiki/Game_Of_Life

Download (mit Ziel Speichern):
ngerrit.funpic.de/Game_Of_Life.zip

schreibt mal eure Meinung!

nGerrit

Ehemaliges Mitglied Erhaltene Danke: 1

Wenn ich das Fenster schließe, wärhend das Programm läuft, bekomme ich einen RunTimeError.

Ansosnten. Es wäre wohl ganz sinnvoll, irgendwie daraufhinzuweisen, dass man erst mal ein paar Dinger setzten muss mit der Maus, bevor es sinnvcoll ist auch "Start" zu klicken.

Dann maximier mal das Fenster.

Ich habe es übrigens früher mal so gelöst: www.luckie-online.de...OfLuckie/index.shtml

Ehemaliges Mitglied Erhaltene Danke: 1

mh ich kann es ohne probleme schließen...
und maximieren geht auch

Ehemaliges Mitglied Erhaltene Danke: 1

nGerrit hat folgendes geschrieben:

und maximieren geht auch

Ich habe auch nicht behauptte, dass es nicht ginge. Nur guck dir mal an, wie es dann aussieht. Das meinte ich.

AXMD · Verfasst: Fr 25.02.05 23:52

Ein paar Dinge gefallen mir gar nicht...

- Der bereits von Luckie erwähnte Runtime error
- Das ebenfalls bereits erwähnte "Was muss ich eigentlích machen, um selbst Zellen zu setzten?"
- Ein Fehler, wenn ich im Open/Savedialog auf Abbrechen klicke
- das Programm ist nicht grade bedienfreundlich und die Oberfläche ist auch sehr dürftig gestaltet...

AXMD

Ehemaliges Mitglied Erhaltene Danke: 1

also hier siehts danach eigentlich so aus wie vorher, nur das an den rändern mehr von der "form" ist

aber die objekte bleiben am gleichen platz.
hab aber jetzt mal ausgestellt, dass man maximieren kann..

nGerrit

sourcehunter · Beiträge: 482 Win XP | Suse 10.1 Delphi 2005 Pers.

Du solltest mal deinen Link überprüfen, da kommt ein Hinweis, dass externes linken nicht erlaubt ist.

_________________
Linux und OpenSource rulez!

AXMD · Verfasst: Sa 26.02.05 11:16

sourcehunter hat folgendes geschrieben:

Du solltest mal deinen Link überprüfen, da kommt ein Hinweis, dass externes linken nicht erlaubt ist.

Verknüpfung kopieren und in die Adresszeile deines Browsers eingeben

AXMD

GSE · Beiträge: 740 Win 2k, Win XP Pro D5 Prof, D6 Ent, D2k5 PE

ganz nett, aber
- wenn ich mit der maus zellen setze sind die nicht dort wo ich hinklicken sondern eine Zelle weiter unten (unter meinem cursor), das verwiirt.
- warum dauert das Laden so lange? was machst du da?

mfg
GSE

_________________
Programming today is a race between software engineers striving to build bigger and better idiot-proof programs
and the universe trying to produce bigger and better idiots. So far, the universe is winning. (Richard Cook)

Ehemaliges Mitglied Erhaltene Danke: 1

GSE hat folgendes geschrieben:

ganz nett, aber
- wenn ich mit der maus zellen setze sind die nicht dort wo ich hinklicken sondern eine Zelle weiter unten (unter meinem cursor), das verwiirt.

mh komisch.. also ich lese die koordinaten des maus klicks so ein:

markieren

Delphi-Quelltext

1:
2:

klick.x := Mouse.CursorPos.X- Form1.Left- PaintBox1.Left- 4;
klick.y := Mouse.CursorPos.Y- Form1.Top- PaintBox1.Top- 23;

danach hab ich quasi die relativen koordinaten in der paintbox.
die -4 und die -23 ergeben sich meines wissens aus dem balken oben und der "3D windows sache" links am fenster.

mir ist gerade beim tippen aufgefallen, dass dann bei leuten mit anderen skins als dem classischen windows skin dann probleme damit haben..
habt ihr ne bessere idee wie ich die koordinaten der maus in der paintbox auslesen kann?

beim laden les ich die ini's aus.. mit zwei for schleifen

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

    For x:= 1 To 130 Do
      For y:= 1 To 130 Do
       Begin
         Zellen[x,y] :=Ini.ReadBool(IntToStr(x),IntToStr(y),False);
       end;

dauert n bisschen, weil aber jetzt beim derzeitigen aufbau keine andere lösung

nGerrit

Moderiert von Christian S.: Code- durch Delphi-Tags ersetzt.

delfiphan · Beiträge: 2684 Erhaltene Danke: 32

ScreenToClient, zusammen mit GetCursorPos:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

Var P : TPoint;
begin
 GetCursorPos(P);
 Klick := PaintBox1.ScreenToClient(P);
end;

GSE · Beiträge: 740 Win 2k, Win XP Pro D5 Prof, D6 Ent, D2k5 PE

Du könntest einfach das OnMouseDown-Event der PaintBox verwenden, das liefert dir die relativen X und Y Werte schon mit.

mfg
GSE

_________________
Programming today is a race between software engineers striving to build bigger and better idiot-proof programs
and the universe trying to produce bigger and better idiots. So far, the universe is winning. (Richard Cook)

harryp · Beiträge: 52 Erhaltene Danke: 9 Win 8.1 Delphi 7, XE8

bin aus schulischen Gründen nun auch ma wieder bei diesem thema gelandet...

was haltet ihr eigentlich davon das game of life als eigene komponente zu machen. bin z.z. dabei - heeßt TGOL und ist in der Entwicklung...
Ist meiner Meinung nach übersichtlicher

(in)direkte frage an den master of universe - ach ne heeßt ja GSE - kannste dir das irgendwann ma anguckn ?

Alstar · Beiträge: 827

Hallo!
Erstens hat das ja kaum was mit dem eigentlich angepriesenen Spiel zu tun (Neuer Thread?!). Und zweitens: Wozu willst Du ein komplettes Spiel als Komponente programmieren? Was bringt das?

Alstar

harryp · Beiträge: 52 Erhaltene Danke: 9 Win 8.1 Delphi 7, XE8

Alstar hat folgendes geschrieben:

Hallo!
Erstens hat das ja kaum was mit dem eigentlich angepriesenen Spiel zu tun (Neuer Thread?!). Und zweitens: Wozu willst Du ein komplettes Spiel als Komponente programmieren? Was bringt das?

also - nur um das kurz zu klären ohne nen neuen thread zu öffnen - ich hab da ne programmierkorifäe (schreibt man das so?) im info-unterricht vorn sitzen. und der is der meinung, dass man das jedes jahr programmieren sollte --> es wird einem langweilig ohne neuerungen --> mal die idee der komponente. außerdem hat der da mehr zu forschen beim abgeben der jahresarbeit

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme